Function catsize()
Dim Doctest As New MSHTML.HTMLDocument
'sss = "&2#53076;"
sss = "2&3"
Doctest.body.innerHTML = sss
Debug.Print Doctest.body.innerHTML
End Function 大家可以试试这个代码,建立对象并赋值以后,再输出html就变了,,被自动转义了,可是问题是第二个sss就不转,这不是坑人嘛。有不有办法让它不转义,原来是什么样,还是什么样。
Dim Doctest As New MSHTML.HTMLDocument
'sss = "&2#53076;"
sss = "2&3"
Doctest.body.innerHTML = sss
Debug.Print Doctest.body.innerHTML
End Function 大家可以试试这个代码,建立对象并赋值以后,再输出html就变了,,被自动转义了,可是问题是第二个sss就不转,这不是坑人嘛。有不有办法让它不转义,原来是什么样,还是什么样。
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货