[求助]jsonp返回值提取数据 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]jsonp返回值提取数据

共有4057人关注过本帖树形打印复制链接主题：[求助]jsonp返回值提取数据

洮沙

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：804 积分：6891 威望：0 精华：0 注册：2017/8/31 12:07:00

[求助]jsonp返回值提取数据 发帖心情

Post By：2022/5/22 17:41:00 [只看该作者]

老师，有以下接口代码：

Dim hc As New HttpClient("https://api.ip138.com/ip/?ip=36.142.141.5&datatype=jsonp&token=8cf1fa2630193321346d5260d2") ’token信息不真实

Dim ret As String = hc.getData()

Output.Show(ret)

Dim jo As JObject = JObject.Parse(ret)

Output.Show(jo("ret"))

Output.Show(jo("ip"))

Output.Show(jo("data"))

执行显示如下错误信息：

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

麻烦问一下老师，如何才能获取到：

中国\甘肃\定西\\移动\743000\0932

帮忙指点一下，谢谢！

[此贴子已经被作者于2022/5/22 17:44:43编辑过]

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：106665 积分：542508 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/5/22 20:38:00 [只看该作者]

参考：http://www.foxtable.com/mobilehelp/topics/0140.htm，看示例四

Dim ja As JArray = jo("data")
For i As Integer = 0 To ja.Count - 1
Output.Show(ja(i).ToString)
Next

洮沙

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：804 积分：6891 威望：0 精华：0 注册：2017/8/31 12:07:00

Post By：2022/5/22 21:04:00 [只看该作者]

代码如下，完美解决，谢谢老师！

Dim ip2 As String = "36.142.141.5"

Dim hc As New HttpClient("https://api.ip138.com/ip/?ip="& ip2 &"&datatype=jsonp&token=8cf1fa2630193321346d5260d2")

Dim ret As String = hc.getData()

Dim jo As JObject = JObject.Parse(ret)

Dim ja As JArray = jo("data")

Dim z As String

For i As Integer = 0 To ja.Count - 1

z = z & ja(i).ToString & "\"

Output.Show(z)

[此贴子已经被作者于2022/5/22 21:04:37编辑过]

下一主题 >> << 上一主题

主题：[求助]jsonp返回值提取数据