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

Если вы ищете конкретные символы, измените шаблон.

Answer 2

AFAIK, вам придется делать это последовательными вызовами, чтобы заменить

result = "a1b2c3d4e567"
result = replace(result,"a","")
result = replace(result,"b","")
result = replace(result,"c","")

и т. Д.