こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

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ファイルを考えています。

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

投稿日時 - 2009-09-02 15:52:21

QNo.5256980

すぐに回答ほしいです

質問者が選んだベストアンサー

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

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

とは違いますか?

投稿日時 - 2009-09-02 17:04:59

お礼

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

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

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

投稿日時 - 2009-09-02 17:50:51

ANo.1

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問