[Aly El-Haddad]

سعود كتب :شوف اخي الكريم ضع متغير في موديول وصرحه بشكل عام يعني

كود :

public all as new stringbuilder

ثم بزر امر اسند له قيمة

كود :

all.append("textbox1.text)

ضع قيمة جديدة عند كل نقر زر
ستتعبا all بالبيانات
كيف ابحث عن نص معين مكتوب بـ textbox2.text

بسم الله
حتى يمكنك أن تب[SIZE=4]حث [SIZE=4]في نص (مكون من مجموعة) نصوص عن نص يجب أن يكون هناك فاصل بين تلك النصوص و بعضها لذا فقد ك[SIZE=4]ت[SIZE=4]بت لك هذا الكود عسى أن يلبي طلبك[/SIZE][/SIZE][/SIZE][/SIZE]

كود :

Imports System.Text

Public Class Form1

    Public all As New StringBuilder

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        all.Append("|[" & TextBox1.Text & "]|")
    End Sub

    Public Shared Function GetMyArray(ByVal str As String, ByVal start As String, ByVal [end] As String) As String()
        Dim out As New List(Of String)
        If str.Contains(start) AndAlso str.Contains([end]) Then
            Dim myStr As String = str.Substring(str.IndexOf(start), (str.LastIndexOf([end]) + [end].Length))
            Do Until ((Not myStr.Contains(start)) OrElse (Not myStr.Contains([end])))
                Dim toAdd As String = myStr.Substring(myStr.IndexOf(start), myStr.IndexOf([end]) + [end].Length)
                myStr = myStr.Substring(toAdd.Length, myStr.Length - toAdd.Length)
                toAdd = toAdd.Replace(start, "")
                toAdd = toAdd.Replace([end], "")
                out.Add(toAdd)
            Loop
        End If
        Return out.ToArray()
    End Function

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If Array.IndexOf(GetMyArray(all.ToString(), "|[", "]|"), TextBox2.Text) <> -1 Then
            MsgBox("Found!")
        Else
            MsgBox("Not Found!")
        End If
    End Sub
End Class

[SIZE=4]Button1 يضيف إلى الـString[SIZE=4]Builder المكتوب بداخل TextBox1
[SIZE=4]Button2 يبحث في ال[SIZE=4]ـStringBuilder عن المكتوب بداخل TextBox2[/SIZE]
بالتوفيق،
[/SIZE][/SIZE][/SIZE]

[Aly El-Haddad]

Aly El-Haddad كتب :بسم الله
حتى يمكنك أن تب[SIZE=4]حث [SIZE=4]في نص (مكون من مجموعة) نصوص عن نص يجب أن يكون هناك فاصل بين تلك النصوص و بعضها لذا فقد ك[SIZE=4]ت[SIZE=4]بت لك هذا الكود عسى أن يلبي طلبك[/SIZE][/SIZE][/SIZE][/SIZE]

كود :

Imports System.Text

Public Class Form1

    Public all As New StringBuilder

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        all.Append("|[" & TextBox1.Text & "]|")
    End Sub

    Public Shared Function GetMyArray(ByVal str As String, ByVal start As String, ByVal [end] As String) As String()
        Dim out As New List(Of String)
        If str.Contains(start) AndAlso str.Contains([end]) Then
            Dim myStr As String = str.Substring(str.IndexOf(start), (str.LastIndexOf([end]) + [end].Length))
            Do Until ((Not myStr.Contains(start)) OrElse (Not myStr.Contains([end])))
                Dim toAdd As String = myStr.Substring(myStr.IndexOf(start), myStr.IndexOf([end]) + [end].Length)
                myStr = myStr.Substring(toAdd.Length, myStr.Length - toAdd.Length)
                toAdd = toAdd.Replace(start, "")
                toAdd = toAdd.Replace([end], "")
                out.Add(toAdd)
            Loop
        End If
        Return out.ToArray()
    End Function

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If Array.IndexOf(GetMyArray(all.ToString(), "|[", "]|"), TextBox2.Text) <> -1 Then
            MsgBox("Found!")
        Else
            MsgBox("Not Found!")
        End If
    End Sub
End Class

[SIZE=4]Button1 يضيف إلى الـString[SIZE=4]Builder المكتوب بداخل TextBox1
[SIZE=4]Button2 يبحث في ال[SIZE=4]ـStringBuilder عن المكتوب بداخل TextBox2[/SIZE]
بالتوفيق،
[/SIZE][/SIZE][/SIZE]

و طبعاً يمكنك أستبدال البدايات و النهايات (الفواصل) بأي فواصل أخرى

[saoud2]

(13-04-13, 01:55 PM)سعود كتب :

(13-04-13, 10:58 AM)Sajad كتب : السلام عليكم

انظر الى هذا الكود:

PHP كود :

Dim arr As String() = {"ahmed", "sajad", "yasir", "hamad", "samad"}
        If arr.Contains(TextBox3.Text) Then
            MessageBox.Show("Found")
        Else
            MessageBox.Show("Not Found")
        End If 


بالتوفيق ان شاءالله

لكنها تاتي حتى لو الكلمة ناقصة مثلا لو بحثت عن ahm ويوجد ahmed سيعيد true

أخي سعود

أنا متأكد أنك لم تجرب المثال الذي كتبه أخي Sajad

استعمال Contains مع الـ Array يختلف عن استعمالها مع الـ String
لأنه يتعامل مع عناصر المصفوفة كـ Object وليس نصاً

فعند استعمالها مع المصفوفة كما في المثال السابق فإنه لن يجد [ahm] كما تعتقد لأنه حقيقة لا يوجد عنصر [ahm]

نرجو الاستفادة و السلام.

[سعود]

(05-10-18, 10:10 PM)saoud2 كتب :

(13-04-13, 01:55 PM)سعود كتب :

(13-04-13, 10:58 AM)Sajad كتب : السلام عليكم

انظر الى هذا الكود:

PHP كود :

Dim arr As String() = {"ahmed", "sajad", "yasir", "hamad", "samad"}
        If arr.Contains(TextBox3.Text) Then
            MessageBox.Show("Found")
        Else
            MessageBox.Show("Not Found")
        End If 


بالتوفيق ان شاءالله

لكنها تاتي حتى لو الكلمة ناقصة مثلا لو بحثت عن ahm ويوجد ahmed سيعيد true

أخي سعود

أنا متأكد أنك لم تجرب المثال الذي كتبه أخي Sajad

استعمال Contains مع الـ Array يختلف عن استعمالها مع الـ String
لأنه يتعامل مع عناصر المصفوفة كـ Object وليس نصاً

فعند استعمالها مع المصفوفة كما في المثال السابق فإنه لن يجد [ahm] كما تعتقد لأنه حقيقة لا يوجد عنصر [ahm]

نرجو الاستفادة و السلام.

هل قرأت تاريخ آخر مشاركة قبل ردك؟؟؟
2013 
على كل حال حاليا لست مهتم بالبرمجة
بارك الله فيك