不错呦!smile@林凯西,确保“准备文件”中的几个文件都有安装,S...您好,看了您这篇帖子觉得很有帮助。但是有个问题想请...我的修改过了怎么还被恶意注册呢 @jjjjiiii 用PJ快9年了,主要是A...PJ3啊,貌似很少有人用PJ了,现在不是WP就是z...@332347365,我当时接入时错误码没有-10...楼主,ChkValue值应为-103是什么意思呢?...大哥 你最近能看到我发的信息,请跟我联系,我有个制...
VB6.0读取XML示例
编辑:dnawo 日期:2009-09-28
复制内容到剪贴板 程序代码
Option Explicit
Private Sub Form_Load()
'需引用 Microsoft XML, v6.0
Dim xmlDoc As DOMDocument
Dim nodeList As IXMLDOMNodeList
Dim node As IXMLDOMNode
On Error Resume Next
Set xmlDoc = New DOMDocument
xmlDoc.loadXML ("<xml><website><domain>mzwu.com</domain><webmaster>dnawo</webmaster></website><website><domain>abc.com</domain><webmaster>abc</webmaster></website><website><domain>def.com</domain><webmaster>def</webmaster></website></xml>")
Set nodeList = xmlDoc.selectNodes("//website")
For Each node In nodeList
Text1.Text = Text1.Text & node.selectSingleNode("domain").Text & vbCrLf
Next
If Err.Number <> 0 Then
MsgBox Err.Description
End If
On Error GoTo 0
End Sub
Private Sub Form_Load()
'需引用 Microsoft XML, v6.0
Dim xmlDoc As DOMDocument
Dim nodeList As IXMLDOMNodeList
Dim node As IXMLDOMNode
On Error Resume Next
Set xmlDoc = New DOMDocument
xmlDoc.loadXML ("<xml><website><domain>mzwu.com</domain><webmaster>dnawo</webmaster></website><website><domain>abc.com</domain><webmaster>abc</webmaster></website><website><domain>def.com</domain><webmaster>def</webmaster></website></xml>")
Set nodeList = xmlDoc.selectNodes("//website")
For Each node In nodeList
Text1.Text = Text1.Text & node.selectSingleNode("domain").Text & vbCrLf
Next
If Err.Number <> 0 Then
MsgBox Err.Description
End If
On Error GoTo 0
End Sub
上一篇: VB6.0编程给DataGrid绑定数据示例
下一篇: 淘宝网开放平台API(taobao.items.all.get)调用示例
文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags:
最新日志:
下一篇: 淘宝网开放平台API(taobao.items.all.get)调用示例
文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags:
最新日志:
评论: 0 | 引用: 0 | 查看次数: 9511
发表评论
请登录后再发表评论!