[3booody]

السلام عليكم ورحمة الله وبركاته

بعد أذن اخوتي واساتذتي ,, اتمنى هذا الكود يكون شرح الك عن التعابير القياسية هو جواب لسؤالك ولكن بصيغة مختلفة حتى تفهم التعابير القياسية اكثر وال Groups في التعابير القياسية وتحل سؤالك بنفسك لاني عطيتك نصف الحل
ولاتستخدم نفس طريقتي هدفي هو فقط اوصلك فكرة التعامل مع النصوص بال Regex

كود :

Dim txt As String = TextBox1.Text.Replace("""", "'").ToLower
       Dim data = From t As String In txt.Split(vbNewLine) Select Regex.Match(t, _
       "name':'(.+)','fan_count':(.+),'link':'(.+)','id':'(.+)'").Groups(1).Value & "#" & _
       Regex.Match(t, "name':'(.+)','fan_count':(.+),'link':'(.+)','id':'(.+)'").Groups(2).Value & "#" & _
       Regex.Match(t, "name':'(.+)','fan_count':(.+),'link':'(.+)','id':'(.+)'").Groups(3).Value & "#" & _
       Regex.Match(t, "name':'(.+)','fan_count':(.+),'link':'(.+)','id':'(.+)'").Groups(4).Value

       MsgBox("Name=" & data(0).Split("#")(0))
       MsgBox("fan=" & data(0).Split("#")(1))
       MsgBox("link=" & data(0).Split("#")(2))
       MsgBox("id=" & data(0).Split("#")(3))

لاتنسى استدعاء مجال الاسماء 

كود :

Imports System.Text.RegularExpressions