Remove Extra Spaces from a String
Here is a quick little function to remove extra spaces from within in a string, which might be of help when processing user inputs.
Public Function RemoveExtraSpaces(str As String) As String
str = Trim(str)
Dim L As Integer, i As Integer
Dim S As String
Dim Prev_char As String * 1
S = ""
L = Len(str)
i = 1
Do
Prev_char = Mid(str, i, 1)
i = i + 1
S = S + Prev_char
If Prev_char = " " Then
Do While (i < L) And (Mid(str, i, 1) = " ")
i = i + 1
Loop
End If
Loop Until i > L
str = S
RemoveExtraSpaces = S
End Function
Usage
'Create a form with a button and a text box
Private Sub Command1_Click()
Text1 = RemoveExtraSpaces(Text1)
End Sub
Special Instructions
This code originally appeared on AndreaVB.com, and has been republished here with the permission of Andrea Tincani.
Loading Comments ...
Comments
No comments have been added for this post.
You must be logged in to make a comment.