Replace characters in String if not equal to Arrays

[spidaman]

Can anyone help with this bit of code please?

With a string entered into a userform textbox, I'd like to replace any character that doesn't match one of the characters in 2 x arrays:

Private Sub cmdRun_Click()

Dim Target As Variant
Dim Targarray1(0 - 9) As Integer
Dim Targarray2("+", "-", "(", ")", " ") As String

Target = txtbox.Value

For Each i In Len(Target)
    If i <> Targarray1 Or i <> Targarray2 Then
        Replace(Target,i,"")
    End If
Next i

End Sub

There are some errors with the Replace function and probably with the Arrays as well?

Thanks in advance.

 

[spidaman]

Give this a try then...

Private Sub cmdRun_Click()
  Dim X As Long, Txt As String
  Txt = txtbox.Text
  For X = 1 To Len(Txt)
    If Not Mid(Txt, X, 1) Like "[0-9()+-]" Then Mid(Txt, X) = " "
  Next
  txtbox.Text = Replace(Txt, " ", "")
End Sub

That's perfect Rick, thanks very much.

 

[spidaman]

A regex version.

Sub cmdRun_Click()

With CreateObject("VBScript.RegExp")
    .Pattern = "([0-9\(\)\+\-\s])"
    .Global = True
    txtbox.Value = .Replace(txtbox.Value, "")
End With

End Sub

Thanks lrobbo314 I'll test this option as well tomorrow with the adjustment from Peter_SSs

 

[Peter_SSs]

That's perfect Rick, thanks very much

Thought that you didn't want spaces replaced?

replace any other character or letter APART FROM 0 - 9 and "+", "-", "(", ")", " "

 

[DanteAmor]

That's perfect Rick, thanks very much.

That version of Rick removes the blank spaces " ", if you need them, try the following:

Private Sub cmdRun_Click()
  Dim i As Long, Txt As String, c As String
 
  Txt = txtbox.Text
  With txtbox
    For i = 1 To Len(Txt)
      If Mid(Txt, i, 1) Like "[0-9()+-]" Or Mid(Txt, i, 1) = " " Then c = c & Mid(Txt, i, 1)
    Next
  End With
  txtbox.Text = c
End Sub

 

[spidaman]

Thought that you didn't want spaces replaced?

I didn't but just tweaked it slightly

 

[spidaman]

That version of Rick removes the blank spaces " ", if you need them, try the following:

Private Sub cmdRun_Click()
  Dim i As Long, Txt As String, c As String

  Txt = txtbox.Text
  With txtbox
    For i = 1 To Len(Txt)
      If Mid(Txt, i, 1) Like "[0-9()+-]" Or Mid(Txt, i, 1) = " " Then c = c & Mid(Txt, i, 1)
    Next
  End With
  txtbox.Text = c
End Sub

Thanks for the option DanteAmor

 

[Rick Rothstein]

I carried the removal of the space character over from my first interpretation of the OP's request (remove, not keep, the indicated characters). Leaving the space in with the code I posted is easy, just change this line of code...

For Each Char In Split("0,1,2,3,4,5,6,7,8,9,+,-,(,), ", ",")

to this....

For Each Char In Split("0,1,2,3,4,5,6,7,8,9,+,-,(,)", ",")

All I did is remove the space comma/space at the end of the first quoted text.

 

[DanteAmor]

Thanks for the option DanteAmor

I'm glad to help you. Thanks for the feedback.