Remove Extra Spaces from a String

Posted: 2019-08-22
By: RajuV
Viewed: 241

Filed Under:

VB6 String Handling, VB6 Code Cache

No attachments for this post

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.

Comments on this post

No comments have been added for this post.

You must be logged in to make a comment.