[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