[ابو روضة]

استخدم RegEx لقراءة البيانات هكذا

PHP كود :

Dim t = Regex.Match(s, "<div class=""ch"">(.+?)</div>").Groups(1).Value
Dim h = "https://facebook.com" & Regex.Match(s, "<a href=""(.+?)"">").Groups(1).Value 


أما الدمج والضغط فلم أفهم المقصود منها!

لم ينفع اخى هذا الكود وما اريده مشابهه لهذا الكود أى الأسم مع الرابط

PHP كود :

 Dim web As New WebClient()
        web.Encoding = Encoding.UTF8
        Dim result As String = web.DownloadString("https://www.alukah.net/fatawa_counsels/3002/")
        Dim a12 As MatchCollection = Regex.Matches(result, "<a id=""ctl00_MainContentPlaceHolder_.*?"" title="".*?"" href=""(.*?)"">(.*?)<\/a>", RegexOptions.IgnoreCase Or RegexOptions.Singleline)
        For i = 0 To a12.Count - 1
            lst.Add("https://www.alukah.net" & a12(i).Groups(1).Value)
            ListBox1.Items.Add(a12(i).Groups(2).Value)
        Next