VB-Homepage Tipp 243
Suchen & Ersetzen in Textstrings
In den Tipps zur Stringmanipulation wurde auch der Befehl "InStr" beschrieben, mit dem es möglich ist, ein Suchwort oder-zeichen in einer beliebigen Zeichenkette zu ermitteln.
Und genau diesen Befehl wollen wir uns hier zu Nutze machen, um noch einen Schritt weiter zu gehen, nämlich ein gesuchtes Wort gegen ein anderes auszutauschen.

Erstellen Sie sich ein neues Projekt und fügen eine Textbox (für unseren zu durchsuchenden Text) und einen Commandbutton hinzu.

Fügen Sie nun unter
Allgemein/ReplaceString folgendes ein

Function ReplaceString(OrigString As String, OldPhrase As String, NewPhrase As String)

Dim Temp As String, Temp2 As String
Temp = OrigString

'Beenden, wenn Suchstring nicht gefunden wird
If InStr(Temp, OldPhrase) = 0 Then
   ReplaceString = OrigString
   Exit Function
End If

'Sucht den Eintrag
Do While InStr(Temp, OldPhrase) > 0
   Temp2 = Left(Temp, InStr(Temp, OldPhrase) - 1) & NewPhrase & Right(Temp, Len(Temp) + 1 - (InStr(Temp, OldPhrase) + Len(OldPhrase)))
   Temp = Temp2
Loop

ReplaceString = Temp
End Function

Nun bekommt der
Commandbutton in der Click - Aktion folgende Anweisungen.

Dim OldString As String
Dim NewString As String
Dim OldText As String
Dim NewText As String

OldString = Text1.Text
OldText = "CDU"
NewText = "..." 'bitte hier die Partei Ihrer Wahl eintragen

NewString = ReplaceString(OldString, OldText, NewText)

Text1.Text = NewString

Als letzte Vorarbeit schreiben Sie (als Beispiel) noch den zu durchsuchenden Text in die Textbox.

Text1.Text = Gewinner der Bundestagswahl 1998 wird die CDU

Starten Sie Ihr Projekt und drücken den Commandbutton und Sie werden sehen, wie der Suchstring gegen den von Ihnen angegebenen ausgetauscht wird,
Tipp-Download
Quelle :
Zurück zur Übersichtsseite