منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

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

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

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

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

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

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

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

تفضل اخي جرب هالكود وردلي النتيجة

(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)

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

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

(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

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