[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]

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