Rubrik: Variablen/Strings · String-Operationen | VB-Versionen: VB4, VB5, VB6 | 14.01.01 |
Replace für ältere VB-Versionen Mit der Funktion Replace kann man Teile von Strings ersetzen. Leider gibt es diese Funktion erst seit Visual-Basic 6. Der heutige Tipp zeigt Ihnen e... | ||
Autor: Fabian Holzer | Bewertung: | Views: 24.968 |
www.vb-appz.de | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
Mit der Funktion Replace kann man Teile von Strings ersetzen. Leider gibt es diese Funktion erst seit Visual-Basic 6. Der heutige Tipp zeigt Ihnen eine Funktion, welche den Replace-Befehl von VB6 nachbildet, so daß Sie auch in älteren VB-Versionen nicht mehr auf diese leistungsstarke Funktion verzichten müssen.
' Replace für ältere VB-Versionen Public Function StringReplace(sText As String, _ sLookFor As String, sReplaceWith As String) As String Dim sNew As String Dim i As Integer For i = 1 To Len(sText) If Mid$(sText, i, Len(sLookFor)) = sLookFor Then sNew = sNew & sReplaceWith i = i - 1 + Len(sLookFor) Else sNew = sNew & Mid$(sText, i, 1) End If Next StringReplace = sNew End Function
Und hier ein kleines Anwendungsbeispiel:
Dim sHW As String sHW = StringReplace("Hello World", "e", "a") MsgBox StringReplace(sHW, "World", "Welt")
Erläuterungen:
Zunächst werden die Buchstaben e des Ausdrucks Hello World durch das a ersetzt. Der zweite Aufruf der StringReplace-Funktion ersetzt dann noch das Wort World durch das Wort Welt, so daß anstelle des ursprünglichen Ausdrucks: Hello World dann Hallo Welt ausgegeben wird.