السلام عليكم اخوتى
كيف اجلب الروابط داخل الاسماء من خلال الريجيكس
فانا اجلب الاسماء فقط هكذا على سبيل المثال
فكيف أدمج الرابط داخل الاسم كما نفعل بالويب براوزر والHtmlAgilityPack فهذا الكود مثلا يجلب الرابط
داخل الاسم
ولكنى لم أتطرق لها فى الريجيكس الى االان أو لم افهمها
فلو سمحتم ممكن طريقة مبسطة افهم بها
كيف اجلب الروابط داخل الاسماء من خلال الريجيكس
فانا اجلب الاسماء فقط هكذا على سبيل المثال
كود :
Dim web As New WebClient()
web.Encoding = Encoding.Default
Dim result As String = web.DownloadString("https://www.gametop.com/category/windows-7-games.html")
Dim a12 As MatchCollection = Regex.Matches(result, "<h3 class=""title"">(.+?)<\/h3>", RegexOptions.IgnoreCase)
For i = 0 To a12.Count - 1
ListBox1.Items.Add(a12(i).Groups(1).Value)
Next
فكيف أدمج الرابط داخل الاسم كما نفعل بالويب براوزر والHtmlAgilityPack فهذا الكود مثلا يجلب الرابط
داخل الاسم
كود :
For Each n As HtmlAgilityPack.HtmlNode In doc.DocumentNode.SelectNodes("//tr/td/font/a")
ListBox1.Items.Add(n.InnerText)
lst.Add("http://saaid.net/tarbiah/" & n.Attributes("href").Value)
Me.Text = ListBox1.Items.Count
Next
ولكنى لم أتطرق لها فى الريجيكس الى االان أو لم افهمها
فلو سمحتم ممكن طريقة مبسطة افهم بها