- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]百度万年历接口相关 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=169610)
-- 发布时间：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编辑过]
-- 发布时间：2021/6/23 8:12:00
--
把需要转的用UrlEncode转好，再和原链接拼接
http://www.foxtable.com/mobilehelp/topics/0241.htm
-- 发布时间：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编辑过]