[Basil Abdallah]

مرحبا 
بدي طريقة من خلالها استطيع عمل بحث في هذه الصفحة على سؤال معين 
واذا كان السؤال موجود يقوم بعرض السؤال والخيارات مع الاجابة(Answe) في richtextbox
https://arabi.123.st/h6-page
https://arabi.123.st/h5-page

الادوات :
textbox for question 
button for share 
webbrowser for search in web site 

rictextbox for show the rusalt 

كود :

If WebBrowser1.DocumentText.Contains(TextBox1.Text) Then
       '        Dim src = WebBrowser1.DocumentText
       '        Label1.Text = "تم العثور على النص المطلوب!"
       '        RichTextBox1.Text = WebBrowser1.Document.Body.OuterText
       '        Dim mts = Regex.Matches(src, "<p>\d+.<br>.+?<p>Answer:\s\w</p>", RegexOptions.Singleline)
       '        Dim qc = mts.Count, ca = 0
       '        For Each mt As Match In mts
       '            If mt.Value.Contains(TextBox1.Text) = True Then
       '                RichTextBox1.Clear()
       '                Dim question = Regex.Replace(mt.Value, "<.*>", "").Trim
       '                Dim answer = Regex.Match(mt.Value, "<p>Answer:\s(\w)</p>").Groups(1).Value
       '                RichTextBox1.Text += question & vbNewLine & "Answer: " & answer

       '                RichTextBox1.Find("Answer: ", RichTextBoxFinds.MatchCase) 'text to colorize / change font  
       '                'test - change font / color  
       '                RichTextBox1.SelectionFont = New Font("Verdana", 12, FontStyle.Bold)
       '                RichTextBox1.SelectionColor = Color.Red
       '            End If
       '        Next

هذا كود ولكن بحاجة لتعديل الRegexPattren
وللاسف ليست لدي اي خبره بالريجكس