تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
إظهار رسالة عند وجود حرف معين
#1
أخواني ممكن كود إظهار رسالة إذا وجد حرف معين وسط مجموعة حروف مثلا sssssassssss فيظهر رسالة أنه الحرف a موجود
الرد }}}
تم الشكر بواسطة:
#2
هذه الداله تعطيك موقع نص خلال نص اخر
بمعنى اننا لو عننا نصنا الحبوب I Love visual basic
وعندنا نص ثانى وهو love حلو الكلام
عن طريق الداله Instr نقدر نعرف موقع النص الثانى الى هو Love موجود فين فى النص الاول
وتعيد هذه الداله قيمة من النوع Integer وفى مثالنا السابق هتعطى رقم 3 لان النص الثانى
موجود فى النص الاول بداية من الحرف الثالث ممكن تطبق هذا الكود علشان تفهم اكثر

رمز برمجي:

PHP كود :
Dim s As String "I Love visual basic"
        
Dim s2 As String "Love"
        
MsgBox(InStr(ss2CompareMethod.Binary)) 

والداله Instr بتاخد ثلاث وسائط
الاول : وهو النص الى هتبحث فى وفى مثالنا هذا النص الاول
الثانى : النص الى هتبحث عنه
الثالث : طريقة البحث وهناك نوعين الاول text والثانى binary ولو اختارنا binary
هيفرق فى البحث بين الحروف الكبيرة والصغيرة يعنى مثلا كلمة love غير LOVE
اما لو اختارنا text مش هيفرق بين الحروف الكبيرة والحروف الصغيرة

-----------------------------------------------------------------------
تطبيق على الداله
الان هنعمل تطبيق صغير علشان تفهم اكثر
هنستخدم الداله دى فى البحث فى صندوق نص عن النص الى احنا عايزينه
طيب افتح مشروع جديد وضع فيه button و2 text box
اجعل خاصية text للا button تساوى find
واجعل خاصية Multiline للا textbox2 تساوى TRUE
واكتب هذا الكود فى زر الامر

PHP كود :
Dim i As Integer

        i 
InStr(TextBox2.TextTextBox1.TextCompareMethod.Binary)
        If 
0 Then
            TextBox2
.Select(1Len(TextBox1.Text))
            
TextBox2.Focus()
        Else
            
MsgBox("لم يتم العثور على شى")
        
End If 
الرد }}}
تم الشكر بواسطة:
#3
مشكوور على مساعدتك لكن انا ابغى اعرف هل كلمة love. موجودة في جملة ام لا
الرد }}}
تم الشكر بواسطة:
#4
نعم هى تفعل ذلك
اذا كان الحرف موجود تعود برقم تواجد الحرف فى الكلمة او الجمله
اذا كان غير موجود تعود بصفر 0 يمكنك التحقق من الرقم صفر كما فى المثال
If i > 0 Then
اذا كان الحرف موجود
If i = 0 Then
اذا كان الحرف غير موجود


وهكذا
الرد }}}
تم الشكر بواسطة:
#5
السلام عليكم

ابسط طريقة هي باستخدام دالة الcontains هكذا:

PHP كود :
If (TextBox1.Text.Contains("a")) Then
            MessageBox
.Show("True")
        
End If 

فهي ترجع قيمة بوليانية اذا كانت الكلمة او الحرف موجودا ترجع true والا false
الرد }}}
تم الشكر بواسطة:
#6
شكرا لكم على مساعدتي
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تعديل طول حقل معين في جميع جداول القاعدة atefkhalf2004 1 97 09-03-24, 03:17 AM
آخر رد: atefkhalf2004
  مشكلة تعليق البرنامج في حال عدم وجود ماسح ضوئي متصل بالكمبيوتر صالح عبدالله 1 210 09-01-24, 10:51 PM
آخر رد: صالح عبدالله
  [سؤال] كود اظهار رساله في حال وجود الرقم في اكثر من عمود مبرمج صغير 1 6 402 09-01-24, 01:41 AM
آخر رد: Taha Okla
  [VB.NET] ارسال رسالة واتساب h2551996 0 187 07-01-24, 12:17 PM
آخر رد: h2551996
Lightbulb [VB.NET] إطهار الصورة بمقاس معين في DataGridView أبو خالد الشكري 2 323 14-12-23, 03:01 PM
آخر رد: أبو خالد الشكري
  كيف اجعل البرنامج في بداية الشهر ينفذ حدث معين بالاصح اريد البرنامج في تاريخ واحد من Adel27213 3 484 05-11-23, 01:45 AM
آخر رد: justforit
  كيفية جمع قيمة على تاريخ معين واستنتاج تاريخ أخر Ahmed.vb 1 317 02-11-23, 03:52 AM
آخر رد: Taha Okla
  إجبار المستخدم على إدخال عدد معين من الأرقام Ahmed.vb 6 656 20-10-23, 10:25 AM
آخر رد: atefkhalf2004
  كود تغيير قيمة تكست بوكس فى تاريخ معين Ahmed.vb 2 906 11-10-23, 10:35 PM
آخر رد: aljzazy
  حفظ المشروع بامتداد معين غير معروف مسبقا Abo Louay 0 262 29-09-23, 02:55 AM
آخر رد: Abo Louay

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


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