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

(28-05-17, 05:21 PM)alma2 كتب :

كود :

       'htmlSource النص المصدري

       Dim ms As MatchCollection = Regex.Matches(htmlSource, "(?<=id="")\d{15}"">.+?(?=<)")
       For Each m As Match In ms

           Dim s() As String = Split(m.Value, """>")
           If s.Count = 2 Then

               Dim accountID As String = s(0)
               Dim accountName As String = s(1)

               MsgBox("Account ID: " & vbTab & accountID & vbNewLine & "Account Name: " & vbTab & accountName)

           End If

       Next

شكرا لك اخى الفاضل
ولكن انا وبعض الاعضاء منتظرين حل ب HtmlAgilityPack

كما وضحنا فى الردود السابقة ولكن شكرا لمساعدتك