[trakktour]

(15-11-18, 04:10 AM)rmnr كتب : followers

كود :

Dim followers As String = """edge_followed_by"":{""count"":(.*?)}"
Dim FLWRS As Match = Regex.Match(input, followers.Trim, RegexOptions.IgnoreCase)
MsgBox("followers: " & FLWRS.Groups(1).Value)

following

كود :

Dim following As String = """edge_follow"":{""count"":(.*?)}"
Dim FLWING As Match = Regex.Match(input, following.Trim, RegexOptions.IgnoreCase)
MsgBox("following: " & FLWING.Groups(1).Value)

شكرا يا غالي الله يجازيك كل خير