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

(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()  حتى نتأكد ان تم الوصول لبعض البيانات قبل الخطأ

---

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

هجربه + اضعه في التايمر لانه بيشتغل كل مده من الوقت