[vbnet]

.....

دالة قديمة للبحث في نص بدلالة بداية ونهاية

منقول

كود :

Private Function Search(ByVal text As String, ByVal startString As String, ByVal endString As String) As String
    Dim result As String = String.Empty
    Dim startIndex As Integer = (text.IndexOf(startString))
    If startIndex <> -1 Then
        startIndex += startString.Length
        Dim endIndex As Integer = (text.IndexOf(endString, startIndex))
        result = text.Substring(startIndex, endIndex - startIndex).Trim
    End If
    Return result
End Function

.....