VbScript REGEXパターン

Question

私はvbscriptを構築していますが、Regexpオブジェクトを使用しています。私は、次の単語を見つけた正規表現パターンを作成するのに役立つ必要がある /文字

 
Advanced 
Standard 
Enterprise 
Edition 
(R) 
® 
@ 

スクリプト：私はのエンコーディングことを考えると

objRegExp.Pattern = "" 

Answer 1

に持っておくべきこと

Set objRegExp = New Regexp 
objRegExp.IgnoreCase = True 
objRegExp.Global = True 
objRegExp.Pattern = "" 
objRegExp.Replace(myVar, "")  

コードとデータは互換性があります：

オプション明示的

Dim s : s = "1Advanced2Standard3Enterprise4Edition5(R)6®7@8,9" 
Dim r : Set r = New RegExp 
r.Global = True 
r.Pattern = "Advanced|Standard|Enterprise|Edition|\(R\)|®|@|," 
WScript.Echo r.Replace(s, "") 

出力：

cscript 38061990.vbs 
123456789 

更新WRTのコメント：thisに基づいて

：

Option Explicit 

Dim csCircledR : csCircledR = ChrW(&H00AE) 
Dim s : s = "1Advanced2Standard3Enterprise4Edition5(R)6" & csCircledR & "7@8,9" 
Dim r : Set r = New RegExp 
r.Global = True 
r.Pattern = "Advanced|Standard|Enterprise|Edition|\(R\)|" & csCircledR & "|@|," 
WScript.Echo s 
WScript.Echo r.Replace(s, "") 

出力：

cscript 38061990.vbs 
1Advanced2Standard3Enterprise4Edition5(R)6®7@8,9 
123456789