Foxtable(狐表)用户栏目专家坐堂 → [求助]百度万年历接口相关


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

主题:[求助]百度万年历接口相关

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


加好友 发短信
等级:六尾狐 帖子:1490 积分:10607 威望:0 精华:0 注册:2018/10/16 11:42:00
[求助]百度万年历接口相关  发帖心情 Post By:2021/6/23 0:51:00 [只看该作者]

http://opendata.baidu.com/api.php?query=2020%E5%B9%B46%E6%9C%88&resource_id=6018&format=json

上面这个链接红色部分在浏览器打开后编程了下面这样

我要怎样才能把2020年6月用代码写成2020%E5%B9%B46%E6%9C%88这样呢?

还有我这样写出来的代码都变成了乱码,怎么才让他变成正常文字?
Dim hc As New HttpClient("http://opendata.baidu.com/api.php?query=2020%E5%B9%B46%E6%9C%88&resource_id=6018&format=json")
Dim ret As String = hc.GetData()
Dim jo As JObject = JObject.Parse(ret)
For Each jt As JToken In jo("data")
    For Each ep As JToken In JArray.Parse(jt("holidaylist").ToString )
        Output.Show("节日:"  & ep("name").ToString() &  "  日期:" & ep("startday").ToString())
    Next
Next


'结果

姓名:???  年龄:2020-1-1
姓名:???  年龄:2020-1-24
姓名:????  年龄:2020-1-25
姓名:??????  年龄:2020-4-4
姓名:?????  年龄:2020-5-1
姓名:?????  年龄:2020-6-25
姓名:?????  年龄:2020-10-1
姓名:?????  年龄:2020-10-1

图片点击可在新窗口打开查看此主题相关图片如下:企业微信截图_16263159957616.png
图片点击可在新窗口打开查看

[此贴子已经被作者于2021/7/15 10:29:45编辑过]

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


加好友 发短信
等级:六尾狐 帖子:1326 积分:9609 威望:0 精华:1 注册:2010/7/21 14:20:00
  发帖心情 Post By:2021/6/23 8:12:00 [只看该作者]

 

把需要转的用UrlEncode转好,再和原链接拼接

 

http://www.foxtable.com/mobilehelp/topics/0241.htm


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


加好友 发短信
等级:超级版主 帖子:111414 积分:567140 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/6/23 8:58:00 [只看该作者]

Dim hc As New HttpClient("http://opendata.baidu.com/api.php?query=2020%E5%B9%B46%E6%9C%88&resource_id=6018&format=json")
hc.ResponseEncoding = "gb2312"
[此贴子已经被作者于2021/6/23 8:58:34编辑过]

 回到顶部