VBSの質問です
元ネタはこちらですhttp://q.hatena.ne.jp/1362164889
文字を置換してくれるプログラムがあるのですが
こちらに別の置換条件を追加させる場合どうすればいいのでしょうか？教えてください。
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
ベストアンサー
-
うぃんど
満足150pt
とりあえず３つにしてみました。
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 ' オブジェクトの準備とパラメータ設定 Set objRep = New RegExp objRep.Multiline = True objRep.Global = True ' 置換条件の設定と置換実行（１） objRep.Pattern = "a\n" repText = "1" newText = objRep.replace(oldText, repText) ' 置換条件の設定と置換実行（２） objRep.Pattern = "b\n" repText = "2" newText = objRep.replace(newText, repText) ' 置換条件の設定と置換実行（３） objRep.Pattern = "c\n" repText = "3" newText = objRep.replace(newText, repText) objFile.Close Set objFile = objFSO.CreateTextFile("aab.txt") objFile.WriteLine (newText) objFile.Close
下記も参考にして置換で必要な手続き順序を学習してみてください。
http://q.hatena.ne.jp/1362838683#a1193082 -
その他の回答
-
きゃづみぃ
満足150pt
置換の指定ですが
repText = "1"
objRep.Pattern = "a\n"
newText = objRep.replace(oldText, repText)
で セットになります。
この場合だと oldTextの内容を objRep.Patternの検索条件で repText に置き換えてnewText にセットするということです。
つまり、置換条件を追加する場合は、この置換処理を追加してやればいいだけです。
あと、置換元の変数も 置換したものに 変えたほうがいいですね。
これを理解すれば いくらでも追加できるでしょう。
この質問へのコメント
質問の情報
- 登録日時
- 2013-03-11 16:25:58
- 終了日時
- 2013-03-18 16:30:07
- 回答条件
- 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
-
内定してほしいポケモンはいますか？匿名質問者