[3booody]

هذا الكود لحظه الاضافة مايقبل التكرار والنص الفارغ

كود :

Dim member_id = From str As String In TextBox1.Text.Split(vbNewLine) Select System.Text. _
                      RegularExpressions.Regex.Match(str, "member_id=(.+)&amp").Groups(1).Value
       For Each txt As String In member_id
           If Not txt = "" And Not ListBox1.Items.Contains(txt) Then
               ListBox1.Items.Add(txt)
           End If
       Next