vb操纵xml文件??附源码

ivt 2003-06-02 02:27:50
Dim xml As DOMDocument

Private Sub Command1_Click()
Set xml = New DOMDocument

Call xml.Load(App.Path & "gb2312.xml")

Dim root As IXMLDOMElement
Set root = xml.documentElement

Dim node As IXMLDOMNode
For Each node In root.childNodes
Debug.Print node.Text
Next

End Sub


root.childNodes
对象或with块变量未设置

...全文
48 3 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
ivt 2003-06-02
  • 打赏
  • 举报
回复
真的很丢脸
filename=app.path & "gb2312.xml"
显然应该这样才对
if right$(app.path) <> "\" then
filename=app.path & "\"
else
filename=app.path
end if
filename =filename & "gb2312.xml"
zhp80 2003-06-02
  • 打赏
  • 举报
回复
加载XML是作如下判断
if XMLFile.Load(FileName) then
if XMLFile.parsed then
msgbox "成功"
end if
end if
sxs69 2003-06-02
  • 打赏
  • 举报
回复
没有找到gb2312.xml

1,217

社区成员

发帖
与我相关
我的任务
社区描述
VB 数据库(包含打印,安装,报表)
社区管理员
  • 数据库(包含打印,安装,报表)社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧