ACC: How to Strip Extra Characters from a String

MORE INFORMATION

1. Create a module and type the following line in the Declarations section if it is not already there:

   Option Explicit

2. Type the following procedure:

         Function StripExtraChars (PassedStr, RemoveExtraChar$)
            On Local Error GoTo StripExtraChars_Err
            Dim i As Integer, GotChar As Integer
            Dim HoldStr As String, HoldChar As String
            ' Exit if passed value is Null.
            If IsNull(PassedStr) Then Exit Function
               ' Trim extra characters from passed string.
               PassedStr = Trim$(PassedStr)
               ' Cycle through string and remove extra
               ' string characters specified in the
               ' RemoveExtraChar value.
               For i = 1 To Len(PassedStr)
                  HoldChar = Mid$(PassedStr, i, 1)
                  If HoldChar = RemoveExtraChar Then
                     If GotChar = False Then
                        GotChar = True
                        HoldStr = HoldStr & HoldChar
                     End If
                  Else
                     GotChar = False
                  End If
                  If Not GotChar Then
                     HoldStr = HoldStr & HoldChar
                  End If
              Next i
             StripExtraChars = HoldStr
         StripExtraChars_End:
            Exit Function
         StripExtraChars_Err:
            MsgBox Error$
            Resume StripExtraChars_End
         End Function
   
   						

3. To test this function, type the following line in the Debug window (or in the Immediate window in versions 1.x and 2.0), and then press ENTER.

   ?StripExtraChars(" My Test String ", Chr$(32))

   Note that the string passed to the StripExtraChars() function returns "My Test String." The RemoveExtraChar variable passed into the function uses the Chr$() ASCII code equivalent of a space.