31-10-20, 07:51 PM
(آخر تعديل لهذه المشاركة : 31-10-20, 07:56 PM {2} بواسطة 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
هذا كود ولكن بحاجة لتعديل الRegexPattren
وللاسف ليست لدي اي خبره بالريجكس
بدي طريقة من خلالها استطيع عمل بحث في هذه الصفحة على سؤال معين
واذا كان السؤال موجود يقوم بعرض السؤال والخيارات مع الاجابة(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
وللاسف ليست لدي اي خبره بالريجكس
Basil Abdallah