uwscで正規表現を使う(文字列最後の「,」を削除する方法)

UWSCで正規表現を使うには、VBScriptを利用する必要がある。

aaa,bbb,ccc,ddd

↑文字列最後、dddの後ろの「,」だけを消したい場合の記述は次のとおり。

--------------------------------------------------------
moji = "aaa,bbb,ccc,ddd,"

re=CreateOleObj("VBScript.RegExp")
re.pattern = ",$" //パターン。$は行末の意味。文字列最後の「,」を指定している。
re.Global = True //文字列全体を検索。trueでする(規定)、falseでしない(マッチしたらそこで終了)。
re.IgnoreCase = True //大文字・小文字を区別。trueでしない(規定)、falseでする。
moji = re.Replace(moji,"") //指定の文字を空文字に置き換えて削除。

print moji
--------------------------------------------------------

出力結果:aaa,bbb,ccc,ddd