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
※ 有料アンケート・ポイント付き質問機能は2023年2月28日に終了しました。
ログインして回答する
ベストアンサー
-
きゃづみぃ
満足100pt
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"
となります。
-
ku__ra__ge
きゃづみぃその他の回答
この質問へのコメント
質問の情報
- 登録日時
- 2013-03-02 04:08:09
- 終了日時
- 2013-03-02 13:14:19
- 回答条件
- 1人5回まで
この質問のカテゴリ
この質問に含まれるキーワード
人気の質問
-
この英文どうなってますか？ The boy seemed to be waiting for his mother to come.（その少年は母親が来…
匿名質問者
1
1
-
不定詞の形容詞的用法らしいんですけど、副詞的用法と書いたら✖️ですか？ I want to buy a book to read …匿名質問者11
-
日向陽葵という○V女優が好きなのですが似ている○V女優はいますか匿名質問者
-
共通テストで使われるプログラミング言語は共通テスト特有の言語と聞いたのですが、受験勉強で身につけたプ…匿名質問者1
-
内定してほしいポケモンはいますか？匿名質問者