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' können.

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: binärer 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