تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] تعديل على كود Split
#1
مرحبا عندي هذا الكود مثل ما مبين ان اليوزر هو الي يدخل القيم حتى تقطع بدالة Split 
المهم اني جهزت كود حتى يقطعه 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 If
هم يسرقون والقانون كتب لنا...
بعض اسهاماتي

الرد
تم الشكر بواسطة:
#2
هم يسرقون والقانون كتب لنا...
بعض اسهاماتي

الرد
تم الشكر بواسطة:
#3
السلام عليكم ورحمة الله وبركاته
اخي الكريم  اليك طلبك في المثال المرفق
سيتم تقطيع النص رقم واحد مهما كان عدد التقطيع 
وسيتم البحث عن القيمة نص رقم 2 في المصفوفة  وتكون النتيجة يوجد او لايوجد


الملفات المرفقة
.rar   SearshInSplitText.rar (الحجم : 103.04 ك ب / التحميلات : 8)
الرد
#4
استخدم الكود بهذا الشكل
كود :
       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

فقط يمكنك استبدال نص الرسالة لما تريد من تنفيذه
عند التحقق

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد
تم الشكر بواسطة: ابراهيم ايبو



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم