replace html文件 替换后没有任何反应？

Question

WebBrowser1.Navigate2 "http://www.sss.com"
Dim s2 As String
s2 = WebBrowser1.Document.body.outerHTML
s2 = Replace(s2, "</td>", "-*-</td>")msgbox s2 
-----------------------------
用outerHTML innerHTML 都没反应但是 msgbox Replace("asdf</td>asdf","</td>","-*-</td>") 结果是正确的
为什么？ 谢谢

Answer 1

在webbrowser1的DocumentComplete里面写Dim s2 As String
s2 = WebBrowser1.Document.body.outerHTML
s2 = Replace(s2, "</td>", "-*-</td>")
msgbox s2