VB6 Regex Заменить

Question

Dim strPattern As String: strPattern = "[^a-zA-Z0-9]" 
Dim regex As New RegExp
regex.Pattern = strPattern
result = regex.Replace(pFileNameWithoutExtension, "_")

Работает, но заменяет только 1 символ. Как я могу заменить более одного символа? Пример: «ÉPÉ» должно быть « P », но в настоящее время результат будет: «_PÉ»?

Answer 1

Вам просто нужно включить глобальное сопоставление с образцом.

Dim strPattern As String: strPattern = "[^a-zA-Z0-9]" 
Dim regex As New RegExp

regex.Global = True

regex.Pattern = strPattern
result = regex.Replace(pFileNameWithoutExtension, "_")

Answer 2

Dim strPattern As String: strPattern = "[^a-zA-Z0-9]*" 
Dim regex As New RegExp
regex.Pattern = strPattern
result = regex.Replace(pFileNameWithoutExtension, "_")