[الماجيك مسعد]

(26-05-17, 02:27 AM)سعود كتب : ممكن تستخدم كود قد تحتاج التعديل عليه ليلبي طلبك لكن قم بتجربته.

PHP كود :

                                       Dim str As String = """https://www\.facebook\.com/profile\.php\?id=([0-9]{1,}).*?;"""
                                        Dim reg As New Regex(str, RegexOptions.IgnoreCase)
                                        Dim mc As MatchCollection = reg.Matches(html)
                                        For Each ma As Match In mc
                                            If ma.Success Then
                                                TextBox2.AppendText(ma.Groups(1).Value & vbNewLine)
                                            End If
                                        Next 


---

سبب تاخري في الرد اني احاول قدر المستطاع ان استفيد من امكانات  HtmlAgilityPack لكن لم اتمكن .
لذلك اعتذر عن التاخير

ولا يهمك اخى الكريم

بالفعل فى الرد السابق كان يوجد حل بتقنية الريجكس

ولكن ليس هو المطلوب
لانى اريدها عن طريق HtmlAgilityPack

لكى اتعلم بها اكثر ولكى افهم ما الخطأ فى الكوود الخاص بى

ولكن كتر خيرك على محاولة المساعدة

سانتظر ربما يفيدنا احد الاعضاء حتى نستفيد جميعا