منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
ممكن حد من اخواتنا ومعلمنا الكرام يساعدني في استخلاص كلمات من تكست بوكس - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : ممكن حد من اخواتنا ومعلمنا الكرام يساعدني في استخلاص كلمات من تكست بوكس (/showthread.php?tid=32771)

ممكن حد من اخواتنا ومعلمنا الكرام يساعدني في استخلاص كلمات من تكست بوكس - اليوم السابع - 01-01-20

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


RE: ممكن حد من اخواتنا ومعلمنا الكرام يساعدني في استخلاص كلمات من تكست بوكس - اليوم السابع - 02-01-20

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

RE: ممكن حد من اخواتنا ومعلمنا الكرام يساعدني في استخلاص كلمات من تكست بوكس - 3booody - 02-01-20

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

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

RE: ممكن حد من اخواتنا ومعلمنا الكرام يساعدني في استخلاص كلمات من تكست بوكس - اليوم السابع - 02-01-20

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

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

RE: ممكن حد من اخواتنا ومعلمنا الكرام يساعدني في استخلاص كلمات من تكست بوكس - 3booody - 02-01-20

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


كود :
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)


RE: ممكن حد من اخواتنا ومعلمنا الكرام يساعدني في استخلاص كلمات من تكست بوكس - اليوم السابع - 02-01-20

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

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

RE: ممكن حد من اخواتنا ومعلمنا الكرام يساعدني في استخلاص كلمات من تكست بوكس - 3booody - 02-01-20

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

كود :
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


RE: ممكن حد من اخواتنا ومعلمنا الكرام يساعدني في استخلاص كلمات من تكست بوكس - اليوم السابع - 03-01-20

(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

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