Gänsefüßchen verdoppeln

Sprache / Programm: VBA ab Office 97

Beschreibung

In VBA und in Formularen müssen Gänsefüßchen (") verdoppelt werden, um sie richtig darzustellen.

Die Funktion sucht und verdoppelt die Gänsefüßchen.

VBA-Quelltext

Public Function StringZeichenVerdoppeln(ByVal QuellText As String)
Dim Pos As Long ' Position im bearbeiteten String

Pos = InStr(1, QuellText, """")
While Pos <> 0
QuellText = Left(QuellText, Pos) + Mid(QuellText, Pos)
Pos = InStr(Pos + 2, QuellText, """")
Wend
StringZeichenVerdoppeln = QuellText
End Function

Argumente der Funktion/Prozedur

QuellText: String, der die Gänsefüßchen enthält.

Verwendete Variable

Pos: Positionszähler im String

Rückgabewert

Überarbeiteter String.

Hinweis

Ab Access 2000 steht die Funktion Replace zur Verfügung. Damit kann das Problem so gelöst werden:

QuellText = Replace(QuellText, """","""""")