:: Remove Extra Spaces in between words |
Author |
Raju V |
Language |
VB5, VB6 |
Operating
Systems |
Windows 95, 98, NT, 2k,
Me and XP |
Module |
Option Explicit
' MODULE
' Removes Extra Spaces in between the words
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 |
' USAGE
'Create a form with a button and a text box
Private Sub Command1_Click()
Text1 = RemoveExtraSpaces(Text1)
End Sub
|
|
 |
|
 |