PDA

Vollständige Version anzeigen : mehrere Leerzeichen durch ein einziges ersetzen


Re
23.03.2004, 14:33
Hallo,

ich möchte in einem Textfeld mehrere Leerzeichen durch ein Leerzeichen ersetzen. Wer weiß, wie das geht?

Gruß

Renate

PS A2000

Thomas Braun
23.03.2004, 14:37
Probier mal:

Do Until InStr(strDeinText, " ") = 0
strDeinText = Replace(strDeinText, " ", " ")
Loop

Paul.Ostermeier
23.03.2004, 14:39
das würde z. B mit der "Replace-Funktion" gehen

Re
23.03.2004, 15:07
Danke, funktioniert wunderbar

Renate