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

(03-01-20, 07:43 PM)3booody كتب : غير ال 7 اسطر وخليها بهذا الشكل ان شاء الله تنجح

كود :

For Each txt As String In TextBox1.Text.Split(vbNewLine)
           Dim t As String = System.Text. _
                      RegularExpressions.Regex.Match(txt, "member_id=(.+)&amp").Groups(1).Value
           If Not t = "" And Not ListBox1.Items.Contains(t) Then
               ListBox1.Items.Add(txt)
           End If
       Next

غيرتهم اخ عبودي شوف ظهر معي كيف الزر رقم 1 به الكود القديم الذي يظهر به خطاء الذاكره 
والزر رقم اتنين هذا بعد التعديل ارجوك اقف جنبي

---

(03-01-20, 07:43 PM)جميل كتب : الكود الذي في الصورة يجعلت البرنامج يعمل مصفوفة طويلة حسب عدد مرات وجود member_id، وفي النهاية لا يأخذ سوى القيمة الأولى.

جرب هذا الكود لاستخلاص القيمة الأولى مباشرة

PHP كود :

Dim member_id=Regex.Match(WebBrowser1.DocumentText,"member_id=(.+)&amp").Groups(1).Value 


لم يظبط معي اخ جميل انا ارفقت المشروع لو حضرتك تعدل عليه يبقي جزاك الله خير