[w4po]

وعليكم السلام ,

تفضل:

Regex pattern:

"_glj.*?profile.*?id=?\D(\d.*?)\D.*?_5d-5.>(.*?)<.*?glp"

Code:

كود :

Dim r As New Regex("_glj.*?profile.*?id=?\D(\d.*?)\D.*?_5d-5.>(.*?)<.*?glp")

Dim matches As MatchCollection = r.Matches(input)
For i As Integer = 0 To matches.Count - 1
    Dim id As String = matches(i).Groups(1).Value
    Dim name As String = matches(i).Groups(2).Value
Next i