高分悬赏 VB 根据节点名字获取XML文件中的对应节点的属性值_框架

xml="<note><to>George</to><from>John</from><heading>Reminder</heading ><body remark=""szqlay"">Don't forget the meeting!</body></note>"

Dim xmldocSet xmldoc = WScriptCreateObject("msxml2domdocument")

xmldocasync=false

xmldocloadxml(xml)

dim cnode

Set cnode=xmldocgetElementsByTagName("body")item(0)

MsgBox cnodetext

MsgBox cnodeattributesitem(0)text

说实在，用数字作标签估计行不通，我试了下不能。这是用vbs脚本，或许放到vb中也行。你可自己把body改成数字试一下。

dim xp,url,MyStream

url=inputbox("输入网址")

if url&"a"<>"a" then

set xhp=createobject("microsoftxml>

编码问题，你的源文件编码是utf-8，所以中文有乱码。

用下面的方法：

'══代══码══开══始════

data=Encode()

msgbox data

function Encode()

Set stm = CreateObject("AdodbStream")

stmType = 2

stmmode = 3

stmcharset = "utf-8"

stmOpen

stmLoadFromFile "f:\axml"

Encode=stmreadtext

end function

'══代══码══结══束════

以上就是关于高分悬赏 VB 根据节点名字获取XML文件中的对应节点的属性值全部的内容，包括:高分悬赏 VB 根据节点名字获取XML文件中的对应节点的属性值、vbs获取网页源码、vbs 读取xml文件时中文是乱码等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！

欢迎分享，转载请注明来源：内存溢出

高分悬赏 VB 根据节点名字获取XML文件中的对应节点的属性值