VB6 Regex Replace

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, "_")