DeleteDoubleBlanks

Top  Previous  Next

function DeleteDoubleBlanks(As String) As String

 

Replaces all duplicate blanks with a single blank.

 

Parameters

 

s ... String expression.

 

Example:

Dim s

 

= DeleteDoubleBlanks("ABC     DEF")

' returns s = "ABC DEF"




Translate document: