borderAndreaVB free resources for Visual Basic developersborder
AndreaVB Visual Basic and VB.NET source code resources - Copyright © 1999-2017 Andrea Tincani
:: 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
:: Navigation

Home

Beginners Corner

Previous Tip

Next Tip

:: Search this site
Google
borderAndreaVB free resources for Visual Basic developersborder
borderAndreaVB Visual Basic and VB.NET source code resources - Copyright © 1999-2017 Andrea Tincaniborder