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

(02-01-20, 10:25 PM)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

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