Replace more characters using replace

[jkrons]

Hi

I have number of characters in a string, that I like to replace with
"nothing". I use a code like this:

Sub test()
Dim a As String
a = "Jan+& Per"
a = Replace(a, " ", "")
a = Replace(a, "&", "")
a = Replace(a, "+", "")
MsgBox a
End Sub


As I have about 15 characters, that all should be replaced with
nothing, I am looking ofr another way to it. Something like

Sub test()
Dim a As String
a = "Jan+& Per"
a = Replace(a, {" ", "&", "+"}, "")
MsgBox a
End Sub

Is this possible at all?

Jan

 

[James Ravenswood]

Hi

I have number of characters in a string, that I like to replace with
"nothing". I use a code like this:

Sub test()
    Dim a As String
    a = "Jan+& Per"
    a = Replace(a, " ", "")
    a = Replace(a, "&", "")
    a = Replace(a, "+", "")
    MsgBox a
End Sub

As I have about 15 characters, that all should be replaced with
nothing, I am looking ofr another way to it. Something like

Sub test()
    Dim a As String
    a = "Jan+& Per"
    a = Replace(a, {" ", "&", "+"}, "")
    MsgBox a
End Sub

Is this possible at all?

Jan

You can always use a loop:

Sub EasyAsABC()
a = "ABCDEFG"
chn = Array("A", "B", "C")
For i = 0 To UBound(chn)
a = Replace(a, chn(i), "")
Next
MsgBox a
End Sub

 

[jkrons]

Of Course!. Thank you.

Jan

You can always use a loop:

Sub EasyAsABC()
a = "ABCDEFG"
chn = Array("A", "B", "C")
For i = 0 To UBound(chn)
    a = Replace(a, chn(i), "")
Next
MsgBox a
End Sub- Skjul tekst i anførselstegn -

- Vis tekst i anførselstegn -

 

[Dana DeLouis]

As I have about 15 characters

{" ", "&", "+"}...etc

Hi. One idea might be to use only 1 string...

Sub YourCode()
Dim a As String
a = "Jan+& Per"
StringReplace a, " &+"
End Sub

Function StringReplace(ByRef Str, s)
Dim p
For p = 1 To Len(s)
Str = Replace(Str, Mid$(s, p, 1), vbNullString)
Next p
End Function

= = = = = = =
HTH :>)
Dana DeLouis