(04-01-20, 02:21 AM)جميل كتب : صراحة لا أدري فليس لدي العلم الكافي لفهم ذلك الخطأ،
ولكن قد يكون السبب في طريقة الكود وتسبب كما ذكر الأخ بودي بخصوص عدم إستيعاب حجم البيانات المدخلة للمصفوفة،
يعني الكود عمل لوب مغلق كما أتذكر أن هذا اسمه وهو الدوران حول نفسه وبه كود يتسبب في ملئ الذاكرة فيحصل خطأ.

(04-01-20, 12:46 PM)3booody كتب : أخي انا عطيتك حل بأستخدام ال Loop  لان عالاغلب ملفك الذي يحتوي بيانات نصية كبير جدآ لذلك وضعت الثقل على الليست بوكس بدل المصفوفة المنشئة

تأكدلي من ملفك النصي هل فعلآ كبير جدآ ؟

وتأكدلي من التعديل هذا هل يعمل البرنامج بشكل صحيح او لا؟

كود :

On Error Resume Next
       For Each txt As String In TextBox1.Text.Split(vbNewLine)
           Application.DoEvents()
           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

On Error Resume Next   هذا الجملة توضع في بداية السطر
Application.DoEvents()  حتى نتأكد ان تم الوصول لبعض البيانات قبل الخطأ

---

لفت نظري شيء !!  لماذا تضع هذا الكود في حدث التايمر؟؟

(05-01-20, 09:01 PM)3booody كتب : عفوآ كان لدي خطأ بسيط لان ماجربته
عدل هالشكل

كود :

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

(06-01-20, 11:16 AM)3booody كتب : يا اخي لايوجد خطأ
يمكن بسبب WebBrowser  احذف السطر الخطأ وانسخ البيانات يدويآ عالتكست وجرب ماراح تلقي خطأ

ولا ادري انته مرة تحمل من ملف ومرة من ويب , ما فاهم عليك ابد