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
**************
となりうまく改行してくれません
どうすればうまくいきますでしょうか?

回答の条件
  • 1人5回まで
  • 13歳以上
  • 登録:2013/03/04 14:35:55
  • 終了:2013/03/04 14:54:46

ベストアンサー

id:taknt No.1

きゃづみぃ回答回数13539ベストアンサー獲得回数11982013/03/04 14:50:44

ポイント300pt
repText = "<tr>\r\n" を
repText = "<tr>" & vbCrLf
に変更してみたらいかがでしょうか?
id:takanii

おおお いけました!ありがとうございました!

2013/03/04 14:54:40

コメントはまだありません

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

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません