تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
اريد كود للتاكد من نص معين فى textbox يوجد بة arry
#1
اريد كود للتاكد من نص معين فى textbox يوجد بة arry

مثال



لدى 2 textbox

الاول مكتوب فية حروف كبية وصغيرة وكلمات

والثانى يكتب فية الكلمة المراد البحث عنها
والبوتون ينفذ الكود
الطريقة

اريد كود يتاكد من اى كلمة موجودة فى text box1

عن طريق ادخال الكلمة المراد البحث عنا فى textbox2
والبوتون كود البحث

المطلوب

ما كود البحث الذى سوف يوضع فى buton1
وشكرا

الرد }}}}
تم الشكر بواسطة:
#2
كود :
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text.ToLower().Contains(TextBox2.Text.ToLower()) Then
            TextBox1.SelectionStart = TextBox1.Text.ToLower().IndexOf(TextBox2.Text.ToLower())
            TextBox1.SelectionLength = TextBox2.Text.Length
            TextBox1.HideSelection = False
        End If
    End Sub
End Class
الرد }}}}
تم الشكر بواسطة:
#3
اخى اشكرك ولاكن حاولت بنفس الطريقة

والمشكلة انا لو كتبت اى حرف من الكلمة هقول ok
يعنى مثلا مكتوب الله لو انا بحثت عن ا او ل او ة هيعمل select
الرد }}}}
تم الشكر بواسطة:
#4
شوف اخى هدى الطريقة لاكن ما نفعت

PHP كود :
If InStr(TextBox1.Text.ToLowerTextBox2.Text.ToLowerThen
            MsgBox
("موجود")
        Else
            
MsgBox("غير موجود")
        
End If 
الرد }}}}
تم الشكر بواسطة:
#5
كود :
If Me.TextBox1.Text.ToLower.Contains(TextBox2.Text.ToLower) = True Then
            MsgBox("موجود")
        Else
            MsgBox("غير موجود")
        End If
الرد }}}}
تم الشكر بواسطة:
#6
السلام عليكم

جرب هذا الكود اخي العزيز

PHP كود :
If textBox1.Text.Split(New String() {" "Environment.NewLine}, StringSplitOptions.RemoveEmptyEntries).Contains(textBox2.TextThen
                MessageBox
.Show("موجود")
            Else
                
MessageBox.Show("غير موجود")
            
End If 

هذا الكود وظيفته تجزئة النصوص حسب المسافة والسطر الجديد وبامكانك اضافة أي فاصلة اخرى تريدها انت

الرد }}}}
تم الشكر بواسطة:
#7
السلام عليكم
اذا اردت بحث عادي اي انك تبحث وتعمل تضليل على الكلمة او الحرف الذي تبحث عنه فهذا هو الكود
If InStr(TextBox1.Text, TextBox2.Text) <> 0 Then
TextBox1.SelectionStart = InStr(TextBox1.Text, TextBox2.Text) - 1
TextBox1.SelectionLength = Len(TextBox2.Text)
TextBox1.Focus()
Else
MsgBox("Not found", vbOKOnly, "Find")
End If

اما اذا اردت ان تتأكد من وجود الكلمة او الحرف الذي بحثت عنه موجود ام لا فهو فقط تحذف 3 اسطر من الكود السابق ونضع رسالة وجود الكلمة فيصبح كالتالي
If InStr(TextBox1.Text, TextBox2.Text) <> 0 Then
MsgBox("the Text Is Find", , "Find")
Else
MsgBox("Not found", , "Find")
End If

___
ارجو ان يكون المطلوب
اما اذا فهمت السؤال خطأ فأرجو التوضيح أكثر
:p
الرد }}}}
تم الشكر بواسطة:
#8
اشكركم جميعا
الرد }}}}
تم الشكر بواسطة:
#9
اخى sajad

الكود بة خطاء



وجميع الأكواد الموجوده لا تعمل


المطلوب ارجوكم افهمونى


لو جربتو الأكواد دى وكتبت اى حرف موجود باى كلمة هتبقى true ??

لو حد عايز يتاكد يجرب اى كود من الموجود

ازاى هيتاكد

اعمل مصفوفة فى textbox1 او 2 بها

الله
اكبر
و button ونضيف اى كود
وتجى عند texbox1 وتكتب حرف[ ال]

هيقولك ان النص موجود طيب ازاى ؟؟؟
الرد }}}}
تم الشكر بواسطة:
#10
freeviwer كتب :اخى sajad

الكود بة خطاء



وجميع الأكواد الموجوده لا تعمل


المطلوب ارجوكم افهمونى


لو جربتو الأكواد دى وكتبت اى حرف موجود باى كلمة هتبقى true ??

لو حد عايز يتاكد يجرب اى كود من الموجود

ازاى هيتاكد

اعمل مصفوفة فى textbox1 او 2 بها

الله
اكبر
و button ونضيف اى كود
وتجى عند texbox1 وتكتب حرف[ ال]

هيقولك ان النص موجود طيب ازاى ؟؟؟

السلام عليكم، من بعد إذن أخي sajad فالكود التالي يصحح الخطأ الذي يظهر عندك
كود :
If New List(Of String)(TextBox1.Text.Split(New String() {" ", Environment.NewLine}, StringSplitOptions.RemoveEmptyEntries)).Contains(TextBox2.Text) Then
            MessageBox.Show("موجود")
        Else
            MessageBox.Show("غير موجود")
        End If
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] كود الفحص قبل الحفظ هل يوجد افضل منه ؟؟ 0theghost0 1 136 18-01-17, 11:43 AM
آخر رد: thevirus
  اريد تحول الكود لفيجوال 2008 abudawoodd 6 177 15-01-17, 02:11 PM
آخر رد: abudawoodd
  هل يوجد طريقة لارسال رسائل واتساب من البرنامج باستخدام vb.net 2010 ? Dr.Sherif Alazizi 15 502 12-01-17, 11:54 PM
آخر رد: Basil Abdallah
  استفسار حول (ComboBox) و (TextBox). المبرمج المبتدئ 1 10 263 05-01-17, 03:37 AM
آخر رد: المبرمج المبتدئ 1
  اريد كود غلق الفورم الحالى وفتح فورم اخر ali.alfoly 8 2,845 04-01-17, 09:18 PM
آخر رد: jojo2014
  هل يوجد مثال عن اقفال الفترات المالية السيد الجوهري 4 179 04-01-17, 05:18 PM
آخر رد: asemshahen
  [سؤال] كيف جمع عمود به قيمة فارغة يوجد مثال aboslah4u22 8 1,335 04-01-17, 12:48 PM
آخر رد: مساعدة
  مساعده اريد كود لحذف عدد من الصفوف من الداتا قرد فيو وكذلك تنحذف من قاعدة البيانات معتز الجازوي 2 108 25-12-16, 01:44 PM
آخر رد: thevirus
  اريد كود لفتح ملف صوتى فى اداة ويندوز ميديا بلير من ملف الريسورس المبرمج الاسطورى 5 576 23-12-16, 03:16 PM
آخر رد: silverlight
  [VB.NET] سؤالى عن new Tabpage اريد نسخ جميع المحتوى والاكواد فى تاب جديد elhon.tec 1 95 20-12-16, 09:10 AM
آخر رد: amgad525

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


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