Replace-Funktion von VB6 auch in älteren Versionen

In Visual Basic 6.0 wurde eine neue praktische Funktion von Microsoft direkt in VB integriert: Die Replace-Funktion. Mit Hilfe dieser Funktion lassen sich bestimmte Zeichenfolgen in einer anderen Zeichenkette aufsuchen und ersetzen. Aufgrund von Kompatiblitätsproblemen stellt SHADOWare.de hier eine Funktion bereit, die die Replace-Funktion ersetzt.

Bewertung dieses Tipps:

(bewertet von insgesamt 12 Besuchern)

Fügen Sie die folgende Funktion einfach in ein Modul ein und schon können auch Benutzer der älteren VB-Versionen in den Genuss der Replace-Funktion kommen:

Function Replace(ByVal strMain As String, strFind As String, strReplace As String) As String
    Dim lngSpot As Long, lngNewSpot As Long, strLeft As String
    Dim strRight As String, strNew As String
    lngSpot& = InStr(LCase(strMain$), LCase(strFind$))
    lngNewSpot& = lngSpot&
    Do
        If lngNewSpot& > 0& Then
            strLeft$ = Left(strMain$, lngNewSpot& - 1)
            If lngSpot& + Len(strFind$) <= Len(strMain$) Then
                strRight$ = Right(strMain$, Len(strMain$) - lngNewSpot& - Len(strFind$) + 1)
            Else
                strRight = ""
            End If
            strNew$ = strLeft$ & strReplace$ & strRight$
            strMain$ = strNew$
        Else
            strNew$ = strMain$
        End If
        lngSpot& = lngNewSpot& + Len(strReplace$)
        If lngSpot& > 0 Then
            lngNewSpot& = InStr(lngSpot&, LCase(strMain$), LCase(strFind$))
        End If
    Loop Until lngNewSpot& < 1
    Replace$ = strNew$
End Function

Der Aufruf der Funktion ist ganz leicht:

Replace "ZuDurchsuchendeZeichenfolge", "ZuSuchendenAusdruck", "HierDurchErsetzen"

Quellen: SHADOWare.de
Letzte Änderung: 14.06.00