元ネタはこちらのページとなりますhttp://q.hatena.ne.jp/1362497323
cx20さんが最後に書いてくれたコードの一部が以下なのですが
*******************
Set file = fso.OpenTextFile( strInputFileName )
strOldText = file.ReadAll
strFind = "<img src = """
strReplace = "<img src = """ & strTargetName & "/"
Set re = New RegExp
re.Multiline = True
re.Pattern = strFind
re.Global = True
strNewText = re.Replace(strOldText, strReplace)
file.Close
Set file2 = fso.CreateTextFile( strOutputFileName )
file2.WriteLine (strNewText)
file2.Close
***************
こちらに
"<td align=""center"" valign=""top"">" を "<td>" & strTargetName & "</td><td>" に置換する条件を追加したいのですがどのように書けばよろしいでしょうか?
教えてください
先ほど同様の質問がありまして・・・、そちらで答えさせていただきましたので参照の上、不明点があれば返信ください。
http://q.hatena.ne.jp/1362838683#a1193082
お手数かけました。
2013/03/10 04:10:402013/03/10 03:58:38 にコメントさせていただいたとおりプログラムは既に訂正済みで、全てに適用される問題は解決するはずです。
あちらの質問者さんのほうが先なので、あちらにて修正版を確認してください。
http://q.hatena.ne.jp/1362838683#a1193082
ありがとうございました!!
2013/03/10 04:13:26