takanii回答ポイント 200ptウォッチ

VBSの質問です

aa.txt
****************
       <tr>
        <td>2</td>
       <tr>
        <td>2</td>
       <tr>
        <td>2</td>
****************
をVBSで置換し
****************
<tr><td>2</td>
<tr><td>2</td>
<tr><td>2</td>
****************
のように置換したいのですが
****************
Dim objFile ' 対象ファイル
Dim oldText ' 置換前テキスト
Dim newText ' 置換後テキスト
Dim objFSO ' ファイルシステムオブジェクト
Dim objRep ' 正規表現オブジェクト
Dim repText ' 置換後文字列
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("aa.txt")
oldText = objFile.ReadAll
repText = "<tr><td>"
Set objRep = New RegExp
objRep.Multiline = True
objRep.Pattern = ".*<tr>.*\r\n.*<td>"
newText = objRep.replace(oldText, repText)
objFile.Close
Set objFile = objFSO.CreateTextFile("abc.html")
objFile.WriteLine (newText)
objFile.Close
****************
のVBSを走らせると
****************
<tr><td>2</td>
       <tr>
        <td>2</td>
       <tr>
        <td>2</td>
****************
このような結果となってしまいます
正規表現の部分をどうすれば理想のように置換できるでしょうか?

※ 有料アンケート・ポイント付き質問機能は2023年2月28日に終了しました。
ログインして回答する

ベストアンサー

その他の回答

この質問へのコメント

コメントはありません

この質問への反応(ブックマークコメント)

質問の情報

登録日時
2013-03-03 02:55:30
終了日時
2013-03-03 14:29:59
回答条件
1人5回まで

この質問のカテゴリ

この質問に含まれるキーワード

正規表現647ファイルシステム96regexp46ABC440オブジェクト658AA181HTML5036

人気の質問

メニュー

PC版