通过CreateObject("htmlfile")建立对象，写入内容后如何查看修改？

Kaohsing

renahu 发表于 2018-8-4 13:05
dom的节点里三层外三层，翻了半天也找不到写入的数据，这么说写入的数据是不能通过属性看到并进行修改的 ...

反正不如js直观         

renahu

Kaohsing 发表于 2018-8-4 14:14
反正不如js直观

1. Sub main()
   
2.     Set objDom = CreateObject("htmlfile")
   
3.     Set objWin = objDom.parentWindow
   
4.     strJS = "<script> function add(a, b){return a+b} </script>"
   
5.     objDom.write strJS
   
6.     MsgBox objWin.eval("add(3,2)")
   
7. End Sub

复制代码

请问能用 objDom+点+。。。读出写入的函数内容吗？能改吗？感觉好些地方都有，不好改，还是改后重写吧

Kaohsing

renahu 发表于 2018-8-4 14:57
请问能用 objDom+点+。。。读出写入的函数内容吗？能改吗？感觉好些地方都有，不好改，还是改后重写吧

MsgBox objDom.getElementsByTagName("script")(0).innerHTML

Kaohsing

renahu 发表于 2018-8-4 14:57
请问能用 objDom+点+。。。读出写入的函数内容吗？能改吗？感觉好些地方都有，不好改，还是改后重写吧

renahu

Kaohsing 发表于 2018-8-4 15:40

发现不能改，好像是只读的，只能重新写入

Kaohsing

renahu 发表于 2018-8-4 15:54
发现不能改，好像是只读的，只能重新写入

要怎嘛改？