Suchen und Ersetzen
Veröffentlicht am 30.12.2003
Suchen und Ersetzen Funktionen.
Access stellt zwar ausgefeilte Suchen- und Ersetzen-Funktionen zur Verfügung; wenn es aber darum geht, diese Funktionen auf einzelne Zeichenketten anzuwenden, versagt Access.
Verwenden Sie in diesem Fall einfach die folgende SuchenUndErsetzen-Funktion:
Function SuchenUndErsetzen(ByVal Text As Variant, _
Suchen As Variant, Ersetzen As Variant)
Dim x As Integer
Dim p As Integer
On Error GoTo Err:
p = Len(Suchen)
Do x = InStr(Text, Suchen)
If x = 0 Then Exit Do
Text = Left(Text, x - 1) + Ersetzen + Mid(Text, x + p)
Loop
SuchenUndErsetzen = Text
Exit Function
Err:
MsgBox Err.Description
Exit Function
End Function
Die Funktion erwartet insgesamt drei Parameter. Unter Text muß eine Zeichenkette übergeben werden, in der die Funktion suchen und ersetzen soll. Die beiden übrigen Parameter erklären sich von selbst. Das Ergebnis der Funktion ist die veränderte Zeichenkette.
Das folgende Beispiel entfernt alle Leerzeichen aus einem Text:
SuchenUndErsetzen("Dies ist ein Text mit Leerzeichen", " ", "")