VB Coding Tip: Trim All Spaces From a String

Monday Nov 18th 2002 by Sam Huggill
Share:

Trim all spaces from a string.

Function TrimSpaces(text As String)

Dim trimspace As Integer
Dim thechar$, thechars$

If InStr(text, " ") = 0 Then
  TrimSpaces = text
  Exit Function
End If

For trimspace = 1 To Len(text)

thechar$ = Mid(text, trimspace, 1)
thechars$ = thechars$ & thechar$

If thechar$ = " " Then
  thechars$ = Mid(thechars$, 1, _
                  Len(thechars$) - 1)
End If

Next trimspace

TrimSpaces = thechars$

End Function
Private Sub cmdTrimSpaces_Click()
Text1=TrimSpaces(Text1)
End Sub
Share:
Home
Mobile Site | Full Site
Copyright 2017 © QuinStreet Inc. All Rights Reserved