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:     [ Jetzt bewerten ]	Views:  24.937
www.vb-appz.de	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 46 Bewertung insgesamt: gut Durchschnittliche Bewertung: 4.2 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

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.