VB6正則表達式替換

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