DeleteDoubleBlanks

Top  Previous  Next

function DeleteDoubleBlanks(As String) As String

 

Ersetzt alle doppelten Leerzeichen durch ein einfaches Leerzeichen.

 

Parameter

 

s ... String-Ausdruck.

 

Beispiel:

Dim s

 

= DeleteDoubleBlanks("ABC     DEF")

' returns s = "ABC DEF"