[اليوم السابع]

(22-12-19, 04:18 PM)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

بفضل الله وفضل اخ عاصم وابو روضه و ابو ليلي و اخ عبود تم الحل كل الاكواد صحيحه ولكن الخطأ كان مني فالأنسان يخطأ و يصيب