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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=9787)

الى خبراء فى النصوص فى الفيجوال بيسك اريد معرفة نتيجة هذا الكود ؟؟ - freeviwer - 25-07-13

السلام عليكم

ترون هذا الكود

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


ده كود بيبحث عن كلمة فى textbox

لو لقيها بيعمل select عليها

انا عايز بدل ما يعمل select
يطلع رسالة بالكلمة الى عثر عليها

؟؟؟؟؟؟؟
ارجو المساعدة

ويا ريت لو الكود ده كمان حد يطلعلى ناتج بحثة ده بيتاكد من نص موجود فى لستة arry
PHP كود :
If New List(Of String)(txtDataViwe.Text.Split(New String() {" ", Environment.NewLine}, StringSplitOptions.RemoveEmptyEntries)).Contains(txtxxxxxxxxxx.Text) Then
            MessageBox.Show("موجود")
        Else

        End If 

الى خبراء فى النصوص فى الفيجوال بيسك اريد معرفة نتيجة هذا الكود ؟؟ - 3booody - 25-07-13

كود :
If TextBox1.Text.ToLower().Contains(TextBox2.Text.ToLower()) Then
            TextBox1.SelectionStart = TextBox1.Text.ToLower().IndexOf(TextBox2.Text.ToLower())
            MsgBox(Mid(TextBox1.Text, TextBox1.SelectionStart + 1, TextBox2.Text.Length))
        End If


الى خبراء فى النصوص فى الفيجوال بيسك اريد معرفة نتيجة هذا الكود ؟؟ - 3booody - 25-07-13

بالنسبة للمصفوفة اسهل طريقة هكذا
كود :
For i As Integer = 0 To UBound(str)
            If str(i).ToLower.Contains(TextBox1.Text.ToLower) = True Then
                MsgBox(str(i))
            End If
        Next


الى خبراء فى النصوص فى الفيجوال بيسك اريد معرفة نتيجة هذا الكود ؟؟ - freeviwer - 25-07-13

شكر على مرورك لاكن يوجد خطاء فى الجملة الاولى فى كلمة
str

PHP كود :
For i As Integer = 0 To UBound([color=#FF0000]Str[/color])
            If Str(i).ToLower.Contains(TextBox1.Text.ToLower) = True Then
                MsgBox(Str(i))
            End If
        Next 


الى خبراء فى النصوص فى الفيجوال بيسك اريد معرفة نتيجة هذا الكود ؟؟ - 3booody - 25-07-13

لا اخي لايوجد خطأ str هي المصفوفه
كود :
Dim arr() As String = {"vb4arb", "member_3booody:", "abc", "Arr", "Str", "freeviwer"}
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        For i As Integer = 0 To UBound(arr)
            If arr(i).ToLower.Contains(TextBox1.Text) = True Then
                MsgBox("المصفوفه=" & arr(i) & vbNewLine & "رقم المصفوفه=" & i)
            End If
        Next
    End Sub


الى خبراء فى النصوص فى الفيجوال بيسك اريد معرفة نتيجة هذا الكود ؟؟ - freeviwer - 25-07-13

اشكرك جدا :o اخى 3booody