منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

انا عايز افهم شئ بسيط 
انا في الكود ده بستخلص الكلمه اللي امام كلمه  "name"": اريد ان استخرج الكلمه اللتي امام كلمه name"": و كلمه  "id"":
مع بعض كيف ادمج الاثنين بحيث تظهر مثلا في الريتش بوكس 
مكان الايدي 11111111111
مكان الاسم ههههههههههه علي سبيل المثال

(09-11-19, 10:37 AM)princelovelorn كتب : [ -> ]

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

تفضل أخي هذة دورة بالعربي جيدة في تقنية regex

مكونة من 25 درس على اليوتيوب ستفيدك إن شاء الله

الرابط هنا

تمنياتي لك بالتوفيق والنجاح

شكرا اخي جاري الاطلاع عليها

اخي ما هو aa

(09-11-19, 12:25 PM)AbdoDabak كتب : [ -> ]

كود :

 Dim aa As String = File.ReadAllText("C:\Program Files\auth.json")
       Console.WriteLine(aa)
       Console.Read()
       RichTextBox1.Text = (aa)
       RichTextBox2.Text = System.Text.RegularExpressions.Regex.Match(aa, "access_token"":""(.+?)""").Groups.Item(1).Value

اخي ما هو aa

---

(09-11-19, 12:25 PM)AbdoDabak كتب : [ -> ]اخي ما هو aa

ياريت بقي لو تديني حل

اش بدك تسوي بالكود مشان اعرف كيف اسويلك ياه

(09-11-19, 01:34 PM)AbdoDabak كتب : [ -> ]اش بدك تسوي بالكود مشان اعرف كيف اسويلك ياه

شكرا اخي تم

---

الحمد لله انك لاقيت الحل
ممكن تضع الكود للفائدة

(09-11-19, 03:05 PM)AbdoDabak كتب : [ -> ]

اخي اذا بدك متل اللي بالصورة

PHP كود :

Imports System.Text.RegularExpressions
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim aa As String = IO.File.ReadAllText("C:\Program Files\auth.json")
        RichTextBox1.Text = aa
        Dim lbl As String
        For Each a As Match In Regex.Matches(RichTextBox1.Text, "((.*?)\w+:+\w+(.*?))", RegexOptions.Compiled + RegexOptions.Multiline)
            lbl = a.Groups(1).Value
            RichTextBox2.Text = lbl
        Next
    End Sub
End Class 


---

الحمد لله انك لاقيت الحل
ممكن تضع الكود للفائدة

  RichTextBox2.Text = System.Text.RegularExpressions.Regex.Match(json, "access_token"":""(.+?)""").Groups.Item(1).Value