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

السلام عليكم اريد استخلاص جميع الارقام اللي امام كلمه member_id في التكست بوكس وارسلهم الي الليست بوكس 1 
المشروع مرفق للتعديل 

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

(01-01-20, 07:26 PM)اليوم السابع كتب : السلام عليكم اريد استخلاص جميع الارقام اللي امام كلمه member_id في التكست بوكس وارسلهم الي الليست بوكس 1 
المشروع مرفق للتعديل 

بالله عليكم حد يساعدني

[3booody]

السلام عليكم ورحمة الله وبركاته

انسخلي كم سطر من النص وحدد الجزء المطلوب يعني ثابت النص بعد الكلمة او لا

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

(02-01-20, 01:32 PM)3booody كتب : السلام عليكم ورحمة الله وبركاته

انسخلي كم سطر من النص وحدد الجزء المطلوب يعني ثابت النص بعد الكلمة او لا

الجزء الثابت هذه الكلمه member_id= والرقم اللي بعدها هو المتغير 
انا اريد جلب الرقم اللي اللي بعد هذه الكلمه كما هو مظلل بالون الاحمر 
وهذا هو السطر 
  rel="dialog" ajaxify="/groups/member/?group_id=323416748432402&member_id=100002222723845&ref=MEMBER_LIST" 

[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
       ListBox1.Items.AddRange(member_id.ToArray)

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

(02-01-20, 08:12 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
       ListBox1.Items.AddRange(member_id.ToArray)

اولا بارك الله لك النتيجه من الواقع الظاهري تمام ولكن ينقصها شيئ اولا هو ازاله كل العناصر الفارغه من الليست بوكس 
ثانيا ازاله العناصر المتكرره في الليست بوكس

[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

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

(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

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