Zur Hauptseite ... Zum Onlinearchiv ... Zum Abonnement ... Zum Newsletter ... Zu den Tools ... Zum Impressum ... Zum Login ...

Replace mit Access 97

Access 97 bietet noch keine Replace-Funktion zum Ersetzen bestimmter Bestandteile einer Zeichenkette durch einen alternativen Ausdruck. Nachfolgend lernen Sie eine Funktion kennen, mit der Sie auch in Access 97 'replacen' knnen.

Die Funktion Replace97

Die nachfolgende Funktion erwartet drei Pflicht- und einen optionalen Parameter:

strOriginal: Originaltext
strSuchen: zu suchender Text
strErsetzen: ersetzender Text
intVergleichsart: Art des Vergleichs (0: binrer Vergleich, 1: Textvergleich, 2: datenbankbasierender Vergleich)

Function Replace97(strOriginal, ByVal strSuchen As String, _

    ByVal strErsetzen As String, _

    Optional ByVal intVergleichsart As Integer)

    Dim strAktuellerText As String, intPosition As Integer

    If IsNull(strOriginal) Then

        Replace97 = Null

    Else

        strAktuellerText = strOriginal

        intPosition = InStr(1, strAktuellerText , strSuchen, _

            intVergleichsart)

        Do While intPosition > 0

            strAktuellerText = Left(strAktuellerText , intPosition - 1) _

                & strErsetzen _

                & Mid(strAktuellerText , intPosition + Len(strSuchen))

            intPosition = InStr(intPosition + Len(strErsetzen), _

                strAktuellerText , strSuchen, intVergleichsart)

        Loop

        Replace97 = strAktuellerText 

    End If

End Function

© 2003-2015 André Minhorst Alle Rechte vorbehalten.