01-04-20, 03:31 PM
للبحث وتجاهل التشكيل
----------------------
----------------------
كود :
Dim Txt As String = Nothing
For Each x As String In TextBox1.Text
Txt &= x & "[ًٌٍَُِّْ]*"
Next
Dim M As MatchCollection
M = Regex.Matches(RichTextBox1.Text, Txt)
For Each x As Match In M
RichTextBox1.Select(x.Index, x.Length)
RichTextBox1.SelectionColor = Color.Red
RichTextBox1.SelectionBackColor = Color.Yellow
Next