Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]获取到的XML数据如何传入狐表


  共有2830人关注过本帖树形打印复制链接

主题：[求助]获取到的XML数据如何传入狐表
帅哥哟，离线，有人找我吗？
农村人
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：174 积分：2349 威望：0 精华：0 注册：2015/8/12 15:36:00 		[求助]获取到的XML数据如何传入狐表  发帖心情 Post By：2015/9/21 15:43:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：qq截图20150921153737.png
图片点击可在新窗口打开查看

如图,WebBrowser1控件里所显示的XML数据,如何将其传入至狐表内?
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/9/21 15:45:00 [只看该作者]


 回到顶部
帅哥哟，离线，有人找我吗？
农村人
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：174 积分：2349 威望：0 精华：0 注册：2015/8/12 15:36:00 		  发帖心情 Post By：2015/9/21 15:51:00 [只看该作者]

我的意思是说,XML数据显示在WebBrowser1控件中,如何将所显示的数据另存为XML格式并且存到指定的本地硬盘中

 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/9/21 15:55:00 [只看该作者]

Dim web As Object = e.Form.Controls("WebBrowser1").BaseControl

msgbox(web.DocumentText)

 

 

http://www.foxtable.com/help/topics/0345.htm

 
 回到顶部
帅哥哟，离线，有人找我吗？
农村人
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：174 积分：2349 威望：0 精华：0 注册：2015/8/12 15:36:00 		  发帖心情 Post By：2015/9/21 16:06:00 [只看该作者]

set xmlhttp=Server.CreateObject("MSXML2.XMLHTTP")
URL="http://****.***.com/hyprize.ashx?&status=0"
xmlhttp.open "GET",URL, False
xmlhttp.send 
   If xmlhttp.readyState = 4 Then
     Set xmlDoc=Server.CreateObject("Microsoft.XMLDOM")
     xmlDoc.loadXML(xmlhttp.responseText)
    Set rootItem=xmlDoc.getElementsByTagName("ArrayOfVLJJL")
    Set item=item.Item(0).getElementsByTagName("vLJJL")
    For i=0 To (item.Length-1)
     Set hyno=item.Item(i).getElementsByTagName("hy_no")
    Next    
     End If
End If

这个代码是对方网站提供的,能否帮忙修改一下!能够下载或保存数据到本地!谢谢
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/9/21 16:13:00 [只看该作者]

参考

 

Dim url As String = "http://www.foxtable.com"

Dim rqst As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create(url)

Dim rsps As System.Net.HttpWebResponse = rqst.GetResponse

Dim stm As System.IO.Stream = rsps.GetResponseStream()

Dim reader As New System.IO.StreamReader(stm)

Dim str As String = reader.ReadToEnd

rsps.Close
stm.Close
reader.close

msgbox(str)

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=51809&skin=0

 
 回到顶部
帅哥哟，离线，有人找我吗？
农村人
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：174 积分：2349 威望：0 精华：0 注册：2015/8/12 15:36:00 		  发帖心情 Post By：2015/9/21 17:14:00 [只看该作者]

真的好感动您耐心的解答!


Dim url As String = "http://***.***.com/hyprize.ashx?&status=0"
Dim rqst As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create(url)
Dim rsps As System.Net.HttpWebResponse = rqst.GetResponse
Dim stm As System.IO.Stream = rsps.GetResponseStream()
Dim reader As New System.IO.StreamReader(stm)
Dim str As String = reader.ReadToEnd
rsps.Close
stm.Close
reader.close

Dim s As String = str
FileSys.WriteAllText("C:\135.xml", s, True,Encoding.Default) ' 我将str写入135.xml中.在高速导入XML文件时,
提示:"引用了未声明的实体“nbsp”。 行 73，位置 18。:
文件如下:
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:135.txt

求帮助解决!
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/9/21 17:21:00 [只看该作者]

最后一句代码改成

 

FileSys.WriteAllText("C:\135.xml", s, True,Encoding.Unicode)
 回到顶部
帅哥哟，离线，有人找我吗？
农村人
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：174 积分：2349 威望：0 精华：0 注册：2015/8/12 15:36:00 		  发帖心情 Post By：2015/9/21 18:04:00 [只看该作者]

谢谢袍哥!问题解决了

现在需的要一个能够将XML文件导入到表A的动作,我做不到
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/9/21 19:14:00 [只看该作者]

看2楼，就是

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 5 次数据查询