dcsimg
September 25, 2020
Hot Topics:

VB Coding Tip: Trim All Spaces From a String

  • By Sam Huggill
  • Send Email »
  • More Articles »
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





This article was originally published on November 19, 2002

Enterprise Development Update

Don't miss an article. Subscribe to our newsletter below.


Thanks for your registration, follow us on our social networks to keep up-to-date