arrays - VBA。用于搜索或替换的数组

Question

需要找到数组的任何符号。

例如: 替换(字符串，[a，b，c，e，f，g]，“a1b2c3d4e567”); 结果=“1234567”

怎么做？

Answer 1

如果您的目标是删除所有非数字字符，则以下操作将起作用:

' Added reference for Microsoft VBScript Regular Expressions 5.5

Const s As String = "a1b2c3d4e567"
Dim regex2 As New RegExp
Dim a As String

regex2.Global = True
regex2.Pattern = "[^0-9]"
Dim a As String = regex2.Replace(s, "")

MsgBox (a)   ' Outputs 1234567

如果您正在寻找特定字符，请更改模式。