- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 甜甜姐帮帮忙 xml循环采集问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=50339)
-- 发布时间：2014/5/5 10:00:00
-- 甜甜姐帮帮忙 xml循环采集问题
xml循环采集问题
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:xml.zip |
此主题相关图片如下：qq截图20140505105509.png
但实际采集效果是这样的...
此主题相关图片如下：未命名-1.png
此主题相关图片如下：未命名-1.png-- 发布时间：2014/5/5 10:13:00
--
.
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:xml.foxdb |
-- 发布时间：2014/5/5 10:20:00
--
-- 发布时间：2014/5/5 10:22:00
--
或者，用如下代码，自己学一下xmlDocument
Dim xmlDoc As New System.XML.XmlDocument
xmlDoc.Load("http://nanoappli.com/tracking/api/410695801670.xml")
Dim ndList As System.XML.XmlNodeList = xmlDoc.GetElementsByTagName("item")
For i As Integer = 0 To ndList.count - 1
Dim nr As Row = Tables("表A").AddNew
nr("第一列") = ndList(i).item("status").InnerText
nr("第二列") = ndList(i).item("date").InnerText
nr("第三列") = ndList(i).item("time").InnerText
nr("第四列") = ndList(i).item("placeName").InnerText
nr("第五列") = ndList(i).item("placeCode").InnerText
Next
http://msdn.microsoft.com/zh-cn/library/system.xml.xmldocument%28VS.80%29.aspx
-- 发布时间：2014/5/5 10:36:00
--
好滴