VBSの質問です
a.html
**************
a<tr>b<tr>c<tr>
**************
というファイルがあるのですがこれを置換して
b.html
**************
<tr>a
<tr>b
<tr>c
**************
にしたいのですが、下記のVBSを走らせると
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("a.html")
oldText = objFile.ReadAll
repText = "<tr>\r\n"
Set objRep = New RegExp
objRep.Multiline = True
objRep.Pattern = "<tr>"
objRep.Global = True
newText = objRep.replace(oldText, repText)
objFile.Close
Set objFile = objFSO.CreateTextFile("8-1.html")
objFile.WriteLine (newText)
objFile.Close
**************
a<tr>\r\nb<tr>\r\nc<tr>\r\n
**************
となりうまく改行してくれません
どうすればうまくいきますでしょうか?