• Home
 · 
• String Manipulation
 · 
• Trim all those EXTRA spaces

Trim all those EXTRA spaces

VB forgot to add a Function strip out all those LEADING, TRAILING and EXTRA spaces in ONE Function.
I have seen many attempts at doing this but think mine does it in the least amount of code.
Note: = literal SPACE

Inputs
String eg:Stripall

Returns
Stripall

Rate Trim all those EXTRA spaces

• 1
• 2
• 3
• 4
• 5

(6(6 Vote))

Public Function TrimALL(ByVal TextIN As String) As String
 TrimALL = Trim(TextIN)
 While InStr(TrimALL, String(2, " ")) > 0
 TrimALL = Replace(TrimALL, String(2, " "), " ")
 Wend
End Function