(Teil)String im String suchen

[dracoulars]

Hallo kann mir jemand sagen wie ich in einer Textbox einen string aus einer anderen Textbox suchen und herforheben kann? Und zusätzlich ist mir nicht ganz klar wie ich einen string in einer Textbox Rückwäts darstelle
bsp: "mir ist schlecht" ; "thcelhcs tsi rim" ?
kann mir jemand helfen?

[Knoxville1988]

rückwärts darstellen ist ni schwer. lies einfach den string zeichen für zeichen in ein array z.b. mit der for-schleife und gib dann alle element einfach über eine weitere schleife rückwärts aus.

[Joerg Froehlich]

Hallo,

Deine Form besitzt die Textboxen "TextBox01", "TextBox02" und "TextBox03".

In TextBox01 steht der Text "Mir ist schlecht" (Dein zu durchsuchender String).
In TextBox02 steht der Text "ist" (Dein Suchwort)
In TextBox03 steht vorerst nichts (wird später durch den "Rückwärts-String" gefüllt.

        Dim MyString As String
        Dim MyStringReverse As String
        Dim Suchwort As String
        Dim index As Integer
        Dim i As Integer

        MyString = TextBox01.Text
        Suchwort = TextBox02.Text
        MyStringReverse = ""

        ' Suche die Startposition des Suchwortes "ist"
        index = MyString.IndexOf(Suchwort, 1)

        ' Überprüfe, ob das Suchwort gefunden wird und markiere es
        If index <> -1 Then
            ' Textfeld muss zum Selectieren den Fokus haben
            TextBox01.Focus()
            ' Markiere vom index bis zur Länge des Suchwortes
            TextBox01.Select(index, Suchwort.Length)
        End If

        ' Durchlaufe alle Zeichen in MyString Zeichen von hinten nach vorne
        For i = MyString.Length To 1 Step -1
            MyStringReverse = MyStringReverse + Mid(MyString, i, 1)
        Next
        TextBox02.Text = MyStringReverse

Viel Spaß
Jörg