专家坐堂-[求助]用UDPClient与网站通讯代码编写Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]用UDPClient与网站通讯代码编写  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=93073)

--  作者：dszqiooe
--  发布时间：2016/11/19 22:54:00
--  [求助]用UDPClient与网站通讯代码编写
本人想用foxtabel的UDPClient功能与网站通讯，将返回结果合并到PLANT表中。请问各位大神，把返回值解析并合并到表格的代码怎么写啊？？？

例子：

IP：http://www.w3school.com.cn/example/xmle/plant_catalog.xml
Port：未知

用浏览器打开IP后部分返回值如下：

此主题相关图片如下：微信截图_20161119230001.png

[此贴子已经被作者于2016/11/19 22:57:35编辑过]

--  作者：dszqiooe
--  发布时间：2016/11/19 23:02:00
--
请大家帮帮忙

--  作者：有点青
--  发布时间：2016/11/20 9:28:00
--

参考代码

Dim xmlDoc As New System.XML.XmlDocument
xmlDoc.Load("d:\\test.xml")
Dim ndList = xmlDoc.GetElementsByTagName("PLANT")

For i As Integer = 0 To ndList.count - 1
    Dim COMMON As String = ndList(i).Item("COMMON").InnerText
    Dim BOTANICAL As String = ndList(i).Item("BOTANICAL").InnerText
    Dim ZONE As String = ndList(i).Item("ZONE").InnerText

    output.show(COMMON & " " & BOTANICAL & " " & ZONE)
Next

--  作者：dszqiooe
--  发布时间：2016/11/20 16:27:00
--

以下是引用有点青在2016/11/20 9:28:00的发言：

参考代码

Dim xmlDoc As New System.XML.XmlDocument
xmlDoc.Load("d:\\test.xml")
Dim ndList = xmlDoc.GetElementsByTagName("PLANT")

For i As Integer = 0 To ndList.count - 1
    Dim COMMON As String = ndList(i).Item("COMMON").InnerText
    Dim BOTANICAL As String = ndList(i).Item("BOTANICAL").InnerText
    Dim ZONE As String = ndList(i).Item("ZONE").InnerText

    output.show(COMMON & " " & BOTANICAL & " " & ZONE)
Next

请问如何将http://www.w3school.com.cn/example/xmle/plant_catalog.xml网页内容保存为d:\\test.xml呢？

--  作者：有点青
--  发布时间：2016/11/20 18:08:00
--

参考代码

Dim msg As String = ""
Dim req = System.Net.WebRequest.Create("http://www.w3school.com.cn/example/xmle/plant_catalog.xml")
req.Method = "get"

Dim pos = req.GetResponse
Dim stm As System.IO.Stream = pos.GetResponseStream()
Dim reader As New System.IO.StreamReader(stm)
Dim str As String = reader.ReadToEnd

pos.Close
stm.Close
reader.close

\'output.show(str)

Dim xmlDoc As New System.XML.XmlDocument
xmlDoc.Loadxml(str)
Dim ndList = xmlDoc.GetElementsByTagName("PLANT")

For i As Integer = 0 To ndList.count - 1
    Dim COMMON As String = ndList(i).Item("COMMON").InnerText
    Dim BOTANICAL As String = ndList(i).Item("BOTANICAL").InnerText
    Dim ZONE As String = ndList(i).Item("ZONE").InnerText

    output.show(COMMON & " " & BOTANICAL & " " & ZONE)
Next

--  作者：dszqiooe
--  发布时间：2016/11/20 23:48:00
--
测试有效，谢谢！