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

(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

نفس الخطأ