Foxtable(狐表)用户栏目专家坐堂 → 关于读取API数据


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

主题:关于读取API数据

帅哥哟,离线,有人找我吗?
iceangellion
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:1 积分:70 威望:0 精华:0 注册:2015/7/27 10:51:00
关于读取API数据  发帖心情 Post By:2015/7/27 16:35:00 [只看该作者]

老师好,我是想请教读取外部API的方法。http://api.money.126.net/data/feed/500018,money.api,这是网易的股piao数据 api接口,我怎么能把数据读取下来分析啊,虚心请教。


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


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

Dim rqst As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("http://api.money.126.net/data/feed/500018,money.api")
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 json As String = reader.ReadToEnd
Dim idx As Integer = json.IndexOf("{")
Dim lidx As Integer = json.LastIndexOf("}")
json = json.SubString(idx+1, lidx-idx-1)
idx = json.IndexOf("{")
json = json.SubString(idx)
msgbox(json)
Dim ScriptControl As Object, data  As Object, JscriptCode As String
JscriptCode = "function toObject(json) {eval(""var o=""+json);return o;}"
ScriptControl = CreateObject("MSScriptControl.ScriptControl")
With ScriptControl
    .Language = "Javascript"
    .Timeout = -1
    .AddCode(JscriptCode)
    data = .Run("toObject", json)
End With

msgbox(data.sname)
msgbox(data.name)


 回到顶部
帅哥哟,离线,有人找我吗?
氧化二氢
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:96 积分:864 威望:0 精华:0 注册:2013/7/16 19:45:00
  发帖心情 Post By:2015/7/28 12:04:00 [只看该作者]

用户已被锁定

 回到顶部