VBScriptを用いた改行コードを含む置換方法について

質問

お世話になります。

VBScript初心者です。
下記の通り、VBスクリプトを用いてファイルの文末の「カンマカンマ改行」を
「改行」に置換したいと思っていますが、上手くできません。
VBScriptで正規表現を用い、改行コードを含んだ置換方法を教えていただきたく思います。

【置換前】
AA00001,プリン,AA00001,AA00000xxxx.xxx.xx.xx,,,○,,
【変更後】
AA00001,プリン,AA00001,AA00000xxxx.xxx.xx.xx,,,○

現在のスクリプトは、
myStr1 = "AA00001,プリン,AA00001,AA00000xxxx.xxx.xx.xx,,,○,,"

'(1)RegExp オブジェクトを作成する
Set objRE = New RegExp

'(2)検索パターンを設定 　 　
objRE.Pattern = ",+\n" 　 　 　

'(3)大文字/小文字を区別しない
objRE.IgnoreCase = True 　

'(4)全体を検索 　 　
objRE.Global = True

'(5)置換を実行
myStr2 = objRE.Replace(myStr1,"\n")

'(6)一行書込み
objFile.WriteLine(myStr2)　　　　　

となっています。（部分的に抜粋しましたが各変数の定義はできています）
(2)の検索パターンに",+\n"、(5)の置換を実行に"\n"を定義しましたが置換できませんでした。

他のパターンとして
(2)の列に",+\x0A"、(5)の列に"\x0A"
(2)の列に",+\x0d"、(5)の列に"\x0d"
も行ってみましたが置換できませんでした。

なお、置換対象のファイルはtxtファイルまたはCSVファイルを考えています。

どなたかご教示いただきたく、よろしくお願い致します。

回答No.1

n-jun · ベストアンサー

'(2)検索パターンを設定 　 　
objRE.Pattern = ",+$"

'(5)置換を実行
myStr2 = objRE.Replace(myStr1,"")

とは違いますか？

お礼

早々のご回答ありがとうございます。

ご教示いただいた内容で置換できました！

ありがとうございました！