- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- nickname 保存到数据库，非文字的就变形了 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=116840)
-- 发布时间：2018/4/1 10:58:00
-- nickname 保存到数据库，非文字的就变形了
老师，这个 nickname 保存到数据库，非文字的就变形了
此主题相关图片如下：微信截图_20180401105545.png
Dim url As String = "https://api.weixin.qq.com/cgi-bin/user/info?access_token={0}&openid={1}&lang=zh_CN"
url = CExp(url, Functions.Execute("GetAccessToken"), "ojDlHuAjZ8Z3eSm0gW1g0Lxbz54s")
Dim hc As New HttpClient(url)
Dim jo As JObject = Jobject.Parse(hc.GetDaTa)
If jo("errcode") Is Nothing Then
Dim dr As DataRow = DataTables("WXUsers").AddNew()
Dim nms() As String = {"openid","nickname","sex","city","country","province","headimgurl","groupid","remark","language"}
For Each nm As String In nms
dr(nm) = jo(nm)
Next
If jo("tagid_list") IsNot Nothing Then
dr("tagid_list") = CompressJson(jo("tagid_list")).Trim("[","]")
End If
dr.Save()
Else
MessageBox.Show(jo.ToString)
End If
url = CExp(url, Functions.Execute("GetAccessToken"), "ojDlHuAjZ8Z3eSm0gW1g0Lxbz54s")
Dim hc As New HttpClient(url)
Dim jo As JObject = Jobject.Parse(hc.GetDaTa)
If jo("errcode") Is Nothing Then
Dim dr As DataRow = DataTables("WXUsers").AddNew()
Dim nms() As String = {"openid","nickname","sex","city","country","province","headimgurl","groupid","remark","language"}
For Each nm As String In nms
dr(nm) = jo(nm)
Next
If jo("tagid_list") IsNot Nothing Then
dr("tagid_list") = CompressJson(jo("tagid_list")).Trim("[","]")
End If
dr.Save()
Else
MessageBox.Show(jo.ToString)
End If
这个 nickname 保存到数据库非文字的就变形了
-- 发布时间：2018/4/1 17:00:00
--
1、msgbox弹出来，看是否正常？
2、试试代码这样写
Dim str = "123你我他abc"
Dim bytes() As Byte
Dim utf As Encoding = Encoding.GetEncoding("utf-8")
Dim def As Encoding = Encoding.GetEncoding("ISO-8859-1")
Bytes = def.GetBytes(str)
Bytes = Encoding.Convert(def, utf, Bytes)
str = def.GetString(Bytes)
Output.Show(str)
-- 发布时间：2018/4/1 18:22:00
--
甜老师，你看，这样也变形
此主题相关图片如下：微信截图_20180401182213.png
关注后直接返回给微信，不经过数据库的倒是可以：
此主题相关图片如下：微信截图_20180401182333.png
[此贴子已经被作者于2018/4/1 18:24:06编辑过]
-- 发布时间：2018/4/1 19:28:00
--
这样测试
Dim str = jo("nickname")
Dim bytes() As Byte
Dim utf As Encoding = Encoding.GetEncoding("utf-8")
Dim def As Encoding = Encoding.GetEncoding("ISO-8859-1")
Bytes = def.GetBytes(str)
Bytes = Encoding.Convert(def, utf, Bytes)
str = def.GetString(Bytes)
Output.Show(str)
-- 发布时间：2018/4/1 21:46:00
--
老师，结果是这样：
此主题相关图片如下：微信截图_20180401214602.png
-- 发布时间：2018/4/1 21:53:00
--
Dim str As String = jo("nickname").ToString
-- 发布时间：2018/4/1 22:21:00
--
甜老师，是这样：
此主题相关图片如下：微信截图_20180401222219.png
[此贴子已经被作者于2018/4/1 22:22:22编辑过]
-- 发布时间：2018/4/1 22:28:00
--
是不是没有办法呢，甜老师，呜呜呜
-- 发布时间：2018/4/1 22:41:00
--
测试了一下，是这个原因【数据库不能存放utf8编码的字符，会处理成乱码】
你可以在存放到数据库那里的时候，编码；读取的时候，解码
http://saytoall.blog.sohu.com/257517565.html
http://www.foxtable.com/mobilehelp/scr/0241.htm
-- 发布时间：2018/4/1 22:55:00
--
恩恩，甜老师，那在FT里显示也是乱码，那怎么整呢？