Zeichen aus String entfernen

Sprache / Programm: VBA ab Office 95

Beschreibung

Entfernt bestimmte Zeichen aus einem Text / Variablen vom Typ String.

VBA-Quelltext

Public Sub ZeichenEntf(ByRef ZeichenKette As String, SuchText As String)
Dim Pos As Byte
Pos = InStr(1, ZeichenKette, SuchText)
While Pos <> 0
ZeichenKette = Left(ZeichenKette, Pos - 1) & Mid(ZeichenKette, Pos + 1)
Pos = InStr(Pos, ZeichenKette, SuchText)
Wend
End Sub

Argumente der Funktion/Prozedur

Zeichenkette: Die zu veränderte Zeichenkette
SuchText: Einzelnes Zeichen, welches ersetzt werden soll

Verwendete Variable

Pos: Position, an welcher die Zeichenkette gerade bearbeitet wird.

Rückgabewert

Keiner, die Zeichenkette wird ByRef übergeben, also direkt verändert.

Anwendungsbeispiel(e)...

Aus dem Inhalt der Variablen A soll das Leerzeichen entfernt werden:

A = "Hallo Welt"

ZeichenEntf A, " "

Die Variable wird direkt bearbeitet und enthält nach dem Aufruf von ZeichenEntf "HalloWelt".

Hinweis

In Office-2000 Anwendungen kann das Programm mit Hilfe der Funktion 'Replace' ersetzt werden.

Anwendungsgebiete, Fehler und Warnungen

Das Programm kann nur einzelne Zeichen (z.B. Steuerzeichen) entfernen. Es wird nicht überprüft, ob genau ein Zeichen übergeben wurde. Falls mehrere Zeichen übergeben werden, wird nur das erste Zeichen gelöscht.