+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] تعديل على كود Split (/showthread.php?tid=29589)
تعديل على كود Split - DK-x - 10-05-19
مرحبا عندي هذا الكود مثل ما مبين ان اليوزر هو الي يدخل القيم حتى تقطع بدالة Split
المهم اني جهزت كود حتى يقطعه 3 مرات بس لو كان اليوزر مدخل 100 او اكثر شون يصير الكود
ياريت تساعدوني
المهم اني جهزت كود حتى يقطعه 3 مرات بس لو كان اليوزر مدخل 100 او اكثر شون يصير الكود
ياريت تساعدوني
كود :
Dim a = TextBox2.Text
Dim s() = Split(TextBox1.Text, ",")
If a.ToLower.Contains(s(0).ToLower) And a.ToLower.Contains(s(1).ToLower) And a.ToLower.Contains(s(2).ToLower) And a.ToLower.Contains(s(3).ToLower) Then
MsgBox("Done")
End IfRE: تعديل على كود Split - DK-x - 10-05-19
RE: تعديل على كود Split - ابراهيم ايبو - 11-05-19
السلام عليكم ورحمة الله وبركاته
اخي الكريم اليك طلبك في المثال المرفق
سيتم تقطيع النص رقم واحد مهما كان عدد التقطيع
وسيتم البحث عن القيمة نص رقم 2 في المصفوفة وتكون النتيجة يوجد او لايوجد
RE: تعديل على كود Split - elgokr - 11-05-19
استخدم الكود بهذا الشكل
كود :
Dim a = TextBox2.Text
Dim s() = Split(TextBox1.Text, ",")
For Each b In s.ToArray
If a.ToLower.Contains(b.ToLower) Then
MsgBox("Done")
End If
Nextفقط يمكنك استبدال نص الرسالة لما تريد من تنفيذه
عند التحقق
تحياتى لك
وتمنياتى لك التوفيق
RE: تعديل على كود Split - IBRA99000 - 23-03-20
شكرا ماقصرت حبيب