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.

 

[James006]

Hello,

Are you after replacing ... or deleting ...?

 

[spidaman]

Hi James006

To delete any character not in either of the arrays would actually be preferable.

Thanks for your help

 

[Fluff]

How about

Private Sub cmdRun_Click()
    Dim Ary As Variant
    Dim i As Long
    
    Ary = Array("+", "-", "(", ")", " ")
    For i = 0 To 9
        txtbox = Replace(txtbox, i, "")
        If i <= UBound(Ary) Then txtbox = Replace(txtbox, Ary(i), "")
    Next i
End Sub

 

[Rick Rothstein]

(Untested) I am pretty sure this code should also work...

Private Sub cmdRun_Click()
  Dim Char As Variant
  For Each Char In Split("0,1,2,3,4,5,6,7,8,9,+,-,(,), ", ",")
    txtbox = Replace(txtbox, Char, "")
  Next
End Sub

 

[spidaman]

Thanks very much Fluff and Rick. I'll test both tonight when I get a chance.

 

[spidaman]

Have just checked both solutions and just realised they are both replacing 0 - 9 and "+", "-", "(", ")", " ".

Apologies for not making it clearer, but I actually want to replace any other character or letter APART FROM 0 - 9 and "+", "-", "(", ")", " ".

Hope that makes sense.

 

[Rick Rothstein]

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

 

[lrobbo314]

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

 

[Peter_SSs]

A regex version.

I think you may have missed/misunderstood ..

I actually want to replace any other character or letter APART FROM 0 - 9 and "+", "-", "(", ")", " ".

For the regex suggestion, I think this pattern
.Pattern = "[^0-9\(\)\+\- ]"