vbsの質問です hoge.txt ********* a b ********* を置換して ********* 1 b ********* というﾃｷｽﾄﾌｧｲﾙのしたいのでVBSｽｸﾘﾌﾟﾄを組んだのですがうまくいきませ…

人力検索はてな

ﾓﾊﾞｲﾙ版を表示しています｡PC版はこちら

vbsの質問です
hoge.txt
*********
a
b
*********
を置換して
*********
1
b
*********
というﾃｷｽﾄﾌｧｲﾙのしたいのでVBSｽｸﾘﾌﾟﾄを組んだのですがうまくいきません
どうすればうまくいきますでしょうか？

Dim objFile ' 対象ﾌｧｲﾙ
Dim oldText ' 置換前ﾃｷｽﾄ
Dim newText ' 置換後ﾃｷｽﾄ
Dim objFSO ' ﾌｧｲﾙｼｽﾃﾑｵﾌﾞｼﾞｪｸﾄ
Dim objRep ' 正規表現ｵﾌﾞｼﾞｪｸﾄ
Dim repText ' 置換後文字列

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("hoge.txt")
' ﾃｷｽﾄﾃﾞｰﾀ読込
oldText = objFile.ReadAll
' 置換後文字列
repText = "1"
Set objRep = New RegExp
objRep.Multiline = True
' 正規表現ﾊﾟﾀｰﾝを指定する
objRep.Pattern = "a\n"
' ﾃｷｽﾄ変換
newText = objRep.replace(oldText, repText)
objFile.Close
' 書き込み
Set objFile = objFSO.CreateTextFile("aab.txt")
objFile.WriteLine (newText)
objFile.Close

●質問者: takanii
●ｶﾃｺﾞﾘ:ｳｪﾌﾞ制作
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

▽1 ● きゃづみぃ
●100ﾎﾟｲﾝﾄ

ﾍﾞｽﾄｱﾝｻｰ

Dim objFile ' 対象ﾌｧｲﾙ
Dim oldText ' 置換前ﾃｷｽﾄ
Dim newText ' 置換後ﾃｷｽﾄ
Dim objFSO ' ﾌｧｲﾙｼｽﾃﾑｵﾌﾞｼﾞｪｸﾄ
Dim objRep ' 正規表現ｵﾌﾞｼﾞｪｸﾄ
Dim repText ' 置換後文字列

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("hoge.txt")
' ﾃｷｽﾄﾃﾞｰﾀ読込
oldText = objFile.ReadAll
' 置換後文字列
repText = "1"
Set objRep = New RegExp
objRep.Multiline = True
' 正規表現ﾊﾟﾀｰﾝを指定する
objRep.Pattern = "a\r\n"
' ﾃｷｽﾄ変換
newText = objRep.replace(oldText, repText)
objFile.Close
' 書き込み
Set objFile = objFSO.CreateTextFile("aab.txt")
objFile.WriteLine (newText)
objFile.Close

vbsでの改行は

"\r\n"

となります｡

takaniiさんのｺﾒﾝﾄ
本当だ！出来ました！ありがとうございました！！あの､参考に教えていただきたいのですが､どのようにすれば上記のように背景を黒色にできるのでしょうか？

ku__ra__geさんのｺﾒﾝﾄ
ｽｰﾊﾟｰpre記法を使います｡ http://hatenadiary.g.hatena.ne.jp/keyword/%E3%82%BD%E3%83%BC%E3%82%B9%E3%82%B3%E3%83%BC%E3%83%89%E3%82%92%E8%89%B2%E4%BB%98%E3%81%91%E3%81%97%E3%81%A6%E8%A8%98%E8%BF%B0%E3%81%99%E3%82%8B%EF%BC%88%E3%82%B7%E3%83%B3%E3%82%BF%E3%83%83%E3%82%AF%E3%82%B9%E3%83%BB%E3%83%8F%E3%82%A4%E3%83%A9%E3%82%A4%E3%83%88%EF%BC%89

takaniiさんのｺﾒﾝﾄ
ありがとうございました！

きゃづみぃさんのｺﾒﾝﾄ
質問ではできませんので､一度質問してから､補足で出したらいいです｡補足だとできるようです｡