Remove chars from a string

Question

I have the following function but I want it to do the opposite eg return the bad chars not the ones I specify

This function lets you specify a two strings. The string you want to parse and a string of chars that you would like to keep from the first string specified - The edited string is returned

Function GETALPHANUMERIC(text, str_all)

 For lenstr = 1 To Len(text)
     If InStr(str_all, LCase(Mid(text, lenstr, 1))) Then
         GETALPHANUMERIC = GETALPHANUMERIC & Mid(text, lenstr, 1)
     End If
 Next

 End Function

Thanks Rob

Jean-François Corbett · Accepted Answer · 2012-02-07 14:40:01Z

2

Just add = 0 :

If InStr(str_all, LCase(Mid(text, lenstr, 1))) = 0 Then

The InStr function returns 0 when no match is found.

answered Feb 7, 2012 at 14:40

Jean-François Corbett

38.7k30 gold badges145 silver badges192 bronze badges

Sign up to request clarification or add additional context in comments.

Comments

assylias · Accepted Answer · 2012-02-07 14:29:10Z

1

You could use the split function like in the example below.

Sub test()

  Dim s As String
  Dim result As String

  s = "abcXdefXghiX"
  result = excludeCharacter(s, "X")

  MsgBox s & " excluding X is " & result

End Sub

Function excludeCharacter(originalString As String, exclude As String) As String

  Dim sArray() As String
  Dim result As String
  Dim i As Long

  sArray = Split(originalString, exclude)

  For i = 0 To UBound(sArray, 1)
    result = result & sArray(i)
  Next i

  excludeCharacter = result

End Function

answered Feb 7, 2012 at 14:29

assylias

330k84 gold badges680 silver badges806 bronze badges

1 Comment

Jean-François Corbett Over a year ago

This does the opposite of what the OP asks. (The OP already has this functionality.)

Rob · Accepted Answer · 2012-02-07 14:55:25Z

0

Also just wrote this too - thought I would share just incase

Function BadChar(text, str_all)

     For lenstr = 1 To Len(text)
     If InStr(str_all, LCase(Mid(text, lenstr, 1))) = 0 Then
         BadChar = BadChar & Mid(text, lenstr, 1)
     End If
Next

End Function

answered Feb 7, 2012 at 14:55

Rob

1,2552 gold badges21 silver badges45 bronze badges

Comments

minnow · Accepted Answer · 2012-02-07 15:01:24Z

0

In other words, you want to strip out (remove) characters from the source string? If so, here's an answer for that:

Function StripChars(source As String, chars As String)
    Dim pos As Long
    For i = 1 To Len(chars)
        Do
            pos = InStr(1, source, Mid(chars, i, 1), VbCompareMethod.vbTextCompare)
            If pos > 0 Then
                source = Mid(source, 1, pos - 1) & Mid(source, pos + 1)
            Else
                Exit Do
            End If
        Loop
    Next i
    StripChars = source
End Function

answered Feb 7, 2012 at 15:01

minnow

1,1112 gold badges10 silver badges19 bronze badges

Collectives™ on Stack Overflow

Remove chars from a string

4 Answers 4

Comments

1 Comment

Comments

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

4 Answers 4

Comments

1 Comment

Comments

Comments

Your Answer

Sign up or log in

Post as a guest

Related