(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)
شكرا يا غالي الله يجازيك كل خير
