• Home
 · 
• String Manipulation
 · 
• Squeeze

Squeeze

Removes extra spaces from given string. eg. Squeeze("^^too^^many^^^spaces^^")returns "too^many^spaces". NB.Read a carat ^ as a single space above. vbcoders.com mangles multiple spaces in submitted text.

Inputs
A string, strText.

Assumes
Doesn't strip tabs, CRLFs or any characters from text EXCEPT char 32.

Returns
A string = strText without spaces and the beginning or end or more than 1 consecutive space within.

Side Effects
None.

Rate Squeeze

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

Public Function Squeeze (ByVal strText As String) As String
 Dim intPos As Integer
 
 intPos = InStr(1, strText, Chr(32) & Chr(32))
 If intPos = 0 Then
 Squeeze = Trim(strText)
 Else
 strText = _
 Left(strText, intPos - 1) & _
 Mid(strText, intPos + 1)
 Squeeze = Squeeze(strText)
 End If
End Function