رنگی کردن موردی که توسط جستجو پیدا شده

[nedaei]

با سلام من یک برنامه قرآنی دارم آماده میکنم میخام وقتی آیه ای یا کمله ای رو در قرآن سرچ کردم جواب رو رنگی نشون بده ضمنا من با ریچ تکس باکس کار میکنم
ممنون میشم

[windowsyar]

سلام
چون برنامه تون قرآنی هست احتمالا می خواهید در بین کلمات با اعراب جستجو کنید و کلمات را رنگی کنید
متنی که می خواهید جستجو شود در txt_search بنویسید
حدیثتون که در Rich_matn1.Text قرار دارد

Dim _Txt As String = Rich_matn1.Text

                        Dim erab As String = "[ًٌٍَُِّْ]*"

                        Dim tx() As Char = Far2Ar(txt_search.Text)

                        Dim xt(tx.Length - 1) As String

                        For h As Integer = 0 To tx.Length - 1

                            xt(h) = tx(h)

                        Next

                        Dim rg As String = Join(xt, erab) & erab

                        rg = rg.Replace("ک", "[كک]").Replace("ي", "[یىي]").Replace("ا", "[آاإأ]")







                        'Clear Prevous Highlighting

                        Dim matchs As MatchCollection = Regex.Matches(_Txt, rg)

                        For m As Integer = matchs.Count - 1 To 0 Step -1

                            Dim s As Integer = matchs(m).Index

                            Dim l As Integer = matchs(m).Length

                            Rich_matn1.Select(s, l)

                            Rich_matn1.SelectionColor = Color.Blue

                            Rich_matn1.SelectionBackColor = Me.BackColor

                        Next

و این تابع را هم وارد کنید

Friend Function Far2Ar(ByRef Valus As String) As String





        Valus = Valus.Replace("ی", "ي").Replace("ک", "ك").Replace("ة", "ه")





        Return Valus





    End Function

[windowsyar]

با توجه به این که فرمودید جستجو بدون اعراب را در ریچ تکس باکس می خواهید کد آن را هم در این سورس برای شما قرار دادم
----------------
من نمی دانم برنامه شما به چه صورتی است
ولی در برنامه هایی که من برای قرآن نوشتم و از سورس هایی که برای قرآن دیدم
دو ستون کردن فقط برای یافتن نتایج جستجو کاربرد دارد
ولی هنگامی که شما یک آیه را با اعراب به کاربر نمایش دادید
باید با کد جستجو با اعراب آن کلمه را دارای رنگ متفاوت کنید
-----------------
در کل خوشحال می شم بتونم در این کار خیر کمکتون بکنم

[nedaei]

با سلام این هم کدها

                 

            Dim a, b, d As String

            Dim dr As OleDbDataReader

            dr = cmd.ExecuteReader

            While dr.Read()

                a = dr("Ayehtext").ToString

                b = dr("AyehNo").ToString

                'c = dr("FaTranslate").ToString

                d = dr("SorehName").ToString

                RichTextBox1.Text += (a + "(" + b + "/" + d + ")" + vbCrLf)

            End While





            Dim x As Integer = 0

            x = RichTextBox1.Text.IndexOf(TextBox1.Text, x)

            Do While x <> -1

                RichTextBox1.Select(x, TextBox1.Text.Length)

                x += 1

                RichTextBox1.SelectionColor = Color.Red

                x = RichTextBox1.Text.IndexOf(TextBox1.Text, x)





            Loop





            cnn.Close()

[windowsyar]

از این کد استفاده کنید

Dim a, b, d As String

            Dim dr As OleDbDataReader

            dr = cmd.ExecuteReader

            While dr.Read()

                a = dr("Ayehtext").ToString

                b = dr("AyehNo").ToString

                'c = dr("FaTranslate").ToString

                d = dr("SorehName").ToString

                RichTextBox1.Text += (a + "(" + b + "/" + d + ")" + vbCrLf)

            End While

          Dim _Txt As String = RichTextBox1.Text

        Dim erab As String = "[ًٌٍَُِّْ]*"

        Dim tx() As Char = Far2Ar(TextBox1.Text)

        Dim xt(tx.Length - 1) As String

        For h As Integer = 0 To tx.Length - 1

            xt(h) = tx(h)

        Next

        Dim rg As String = Join(xt, erab) & erab

        rg = rg.Replace("ک", "[كک]").Replace("ي", "[یىي]").Replace("ا", "[آاإأ]"

        Dim matchs As MatchCollection = Regex.Matches(_Txt, rg)

        For m As Integer = matchs.Count - 1 To 0 Step -1

            Dim s As Integer = matchs(m).Index

            Dim l As Integer = matchs(m).Length

            RichTextBox1.Select(s, l)

            RichTextBox1.SelectionColor = Color.Red

        Next

            cnn.Close()

و در آخر قبل از End Class بنویسید

    Friend Function Far2Ar(ByRef Valus As String) As String

        Valus = Valus.Replace("ی", "ي").Replace("ک", "ك").Replace("ة", "ه")

        Return Valus

    End Function

در اول این را هم imports کنید

Imports System.Text.RegularExpressions