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

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

ممكن اى حد يفهم جامد فى التعامل مع النصوص - freeviwer - 25-07-13

بسم الله الرحمن الرحيم

الصورة توضح ما اريد



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

ممكن اى حد يفهم جامد فى التعامل مع النصوص - freeviwer - 25-07-13

ارجوكم يا شباب هذا الكود متوقف علية برنامج كبير
ارجو المساعدة انا عارف ان الكود صعب شوى

انا حاولت وجبت الكود ده بس مش نافع

PHP كود :
If New List(Of String)(txtDataViwe.Text.Split(New String() {" ", Environment.NewLine}, StringSplitOptions.RemoveEmptyEntries)).Contains(txtxxxxxxxxxx.Text) Then
            MessageBox.Show("موجود")
        Else

        End If 


ممكن اى حد يفهم جامد فى التعامل مع النصوص - freeviwer - 25-07-13

شباب مساعدة ارجوكم

ممكن اى حد يفهم جامد فى التعامل مع النصوص - 3booody - 25-07-13

اخي لدي حل قد يفيدك
كود :
If TextBox1.Text.Contains("بسم") = True And TextBox2.Text.Contains("بسم") = True Then
            MsgBox("موجود")
        End If


ممكن اى حد يفهم جامد فى التعامل مع النصوص - freeviwer - 25-07-13

لا ما نفع Sad

ممكن اى حد يفهم جامد فى التعامل مع النصوص - 3booody - 25-07-13

freeviwer كتب :لا ما نفع Sad
اخي انته كان قصدك اذا كلمة بسم موجوده بالنصين وكودي مابه أي خطأ؟؟

ممكن اى حد يفهم جامد فى التعامل مع النصوص - freeviwer - 25-07-13

انا عايز اغير الكلمة عن طريق التيكست بوكس

ممكن تراجع الصورة ارجوك

ممكن اى حد يفهم جامد فى التعامل مع النصوص - 3booody - 25-07-13

اخي استطيع مساعدتك ان شاء الله لكن حيرتني ممكن تحدد مطلبك بالضبط وشكرآ

ممكن اى حد يفهم جامد فى التعامل مع النصوص - الشاكي لله - 26-07-13

اعتقد هذا طلبك


سي شارب :

PHP كود :
int index = -1;
            List<string> lstboxItems = new List<string>();


            foreach (string Estr in listBox1.Items)
            {
                lstboxItems.Add(Estr);
            }

            foreach (string Istr in lstboxItems)
            {
               
                    if (textBox1.Text.Contains(Istr))
                    {
                        index = lstboxItems.IndexOf(Istr);
                    }
                
            }

            if (index == -1)
            {
                listBox1.SelectedIndex = -1;
            }
            else
            {
                listBox1.SelectedIndex = index;
            } 


فيجوال بيسك :

PHP كود :
Dim index As Integer = -1
Dim lstboxItems As New List(Of String)()


For Each Estr As String In listBox1.Items
    lstboxItems.Add(Estr)
Next

For Each Istr As String In lstboxItems

    If textBox1.Text.Contains(Istr) Then
        index = lstboxItems.IndexOf(Istr)

    End If
Next

If index = -1 Then
    listBox1.SelectedIndex = -1
Else
    listBox1.SelectedIndex = index
End If 


ممكن اى حد يفهم جامد فى التعامل مع النصوص - kslawy - 26-07-13

السلام عليكم ورحمة الله وبركاته

كود :
Imports System.Text.RegularExpressions


Public Class Form1


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        For Each itm As String In Me.ListBox1.Items
            Dim rgex As Match = Regex.Match(Me.TextBox1.Text, itm, RegexOptions.IgnoreCase)
            If rgex.Success = True Then
                MsgBox(itm & " موجودة ", MsgBoxStyle.Exclamation, "بحث")
            End If
        Next
    End Sub
End Class