VBSの質問です
a.htmlをb.htmlへ変換させるvbsを組みたいのですがどうすればいいのでしょうか？
a.html
*********************
<input type="checkbox">
hoge
<input type="checkbox">
hoge
<input type="checkbox">
hoge
<input type="checkbox">
hoge
**********************
を
b.html
**********************
<input id="box1" type="checkbox">
hoge
<input id="box2" type="checkbox">
hoge
<input id="box3" type="checkbox">
hoge
<input id="box4" type="checkbox">
hoge
**********************
よろしくお願いします
Dim objFile ' 対象ファイル
Dim oldText ' 置換前テキスト
Dim newText ' 置換後テキスト
Dim objRep ' 正規表現オブジェクト
Dim repText ' 置換後文字列
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("a.html")
oldText = objFile.ReadAll
repText = ""
Set objRep = New RegExp
objRep.Multiline = True
objRep.Pattern = "<input "
objRep.Global = True
newText = objRep.replace(oldText, repText)
Set objFile = objFSO.CreateTextFile("b.html")
objFile.WriteLine (newText)
ベストアンサー
-
きゃづみぃ
満足500pt
Dim objFile ' 対象ファイル Dim objFile2 ' 出力ファイル Dim objFSO ' ファイルシステムオブジェクト Dim k Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.OpenTextFile("a.html") Set objFile2 = objFSO.CreateTextFile("b.html") k=1 Do Until objFile.AtEndOfLine = True strText = objFile.ReadLine if instr(strText,"<input ") > 0 then strText = replace (strText,"<input ","<input id=""box" & k & """ ") k=k+1 end if objFile2.WriteLine ( strText ) Loop objFile.Close objFile2.Close
正規表現で連番を付与させることは できませんので、１行ずつ読んで 変換していくことになります。
その他の回答
この質問へのコメント
質問の情報
- 登録日時
- 2014-02-17 19:27:45
- 終了日時
- 2014-02-17 20:10:49
- 回答条件
- 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
-
内定してほしいポケモンはいますか？匿名質問者