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

[3booody]

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

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

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

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

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

طب احلها كيف انا الجهاز عندي سريع جدا وبيفتح ملفات نصيه 250 ميجا عادي 
بالله عليكم انا في ورطه كبيره

[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

[جميل]

الكود الذي في الصورة يجعلت البرنامج يعمل مصفوفة طويلة حسب عدد مرات وجود member_id، وفي النهاية لا يأخذ سوى القيمة الأولى.

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

PHP كود :

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


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

(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 


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

[جميل]

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

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, 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 


تمام اخي جميل ولكن من المهم هل هذا سيظبط باذن الله في مشكله الذاكره

[جميل]

لا أدري من ناحية الذاكرة،
لكن إذا أردت العناصر غير مكرره فهذا التعديل يحل التكرار

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 


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

(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 


شكرا لك اخ جميل ولكن انا المشكله عندي هي اللي انا مصورها في اول الموضوع وليس في العناصر المكرره