(03-01-20, 01:00 PM)3booody كتب : السلام عليكم ورحمة الله وبركاته

اعتقد الذاكرة المؤقتة قليلة لإستيعاب حجم البيانات المدخلة للمصفوفة

(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

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

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

PHP كود :

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


(04-01-20, 01:57 AM)جميل كتب : حاول أعدل فيه لكن لست متأكد من أنه يفي بالغرض

PHP كود :

       Dim member_id = System.Text.RegularExpressions.Regex.Matches(TextBox1.Text, "member_id=(.+)&amp")
        For Each txt As System.Text.RegularExpressions.Match In member_id
            ListBox1.Items.Add(txt.Groups(1).Value)
        Next
        Label1.Text = ListBox1.Items.Count 


(04-01-20, 02:06 AM)جميل كتب : لا أدري من ناحية الذاكرة،
لكن إذا أردت العناصر غير مكرره فهذا التعديل يحل التكرار

PHP كود :

       Dim member_id = System.Text.RegularExpressions.Regex.Matches(TextBox1.Text, "member_id=(.+)&amp")
        For Each txt As System.Text.RegularExpressions.Match In member_id
            If ListBox1.FindStringExact(txt.Groups(1).Value) = -1 Then
                ListBox1.Items.Add(txt.Groups(1).Value)
            End If
        Next
        Label1.Text = ListBox1.Items.Count