以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]获取到的XML数据如何传入狐表  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=74867)
--  作者：农村人
--  发布时间：2015/9/21 15:43:00
--  [求助]获取到的XML数据如何传入狐表

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

如图,WebBrowser1控件里所显示的XML数据,如何将其传入至狐表内?
--  作者：大红袍
--  发布时间：2015/9/21 15:45:00
--  

参考

 

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

 

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

 
--  作者：农村人
--  发布时间：2015/9/21 15:51:00
--  
我的意思是说,XML数据显示在WebBrowser1控件中,如何将所显示的数据另存为XML格式并且存到指定的本地硬盘中
--  作者：大红袍
--  发布时间：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

 
--  作者：农村人
--  发布时间：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

这个代码是对方网站提供的,能否帮忙修改一下!能够下载或保存数据到本地!谢谢
--  作者：大红袍
--  发布时间：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

 
--  作者：农村人
--  发布时间：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

求帮助解决!
--  作者：大红袍
--  发布时间：2015/9/21 17:21:00
--  

最后一句代码改成

 

FileSys.WriteAllText("C:\\135.xml", s, True,Encoding.Unicode)
--  作者：农村人
--  发布时间：2015/9/21 18:04:00
--  
谢谢袍哥!问题解决了

现在需的要一个能够将XML文件导入到表A的动作,我做不到
--  作者：大红袍
--  发布时间：2015/9/21 19:14:00
--  
看2楼，就是