1183
社区成员
- 全部
vb操纵xml文件？？附源码
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块变量未设置
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块变量未设置
...全文
当前发帖距今超过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"
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
if XMLFile.Load(FileName) then
if XMLFile.parsed then
msgbox "成功"
end if
end if
sxs69 2003-06-02
没有找到gb2312.xml
