Foxtable(狐表)用户栏目专家坐堂 → []求助]unicode编码怎么样处理成为汉字呀?


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

主题:[]求助]unicode编码怎么样处理成为汉字呀?

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2015/2/12 20:09:00 [显示全部帖子]

 

[此贴子已经被作者于2015/2/12 20:09:41编辑过]

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2015/2/12 20:12:00 [显示全部帖子]

Dim str As String = "\u8717\u725B\u8BF4\u7EE7\u7EED"
Dim mc = System.Text.RegularExpressions.Regex.Matches(str, "\\u.{4}")
Dim c As String = ""
For i As Integer = 0 To mc.count - 1
    c &= chrw(Convert.ToInt32(mc(i).value.substring(2), 16))
Next

msgbox(c)


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2015/2/12 20:30:00 [显示全部帖子]

Dim str As String = "abc我告诉你一件事哦!\u8717\u725B\u8BF4\u7EE7\u7EED啥都....顶顶顶顶ss34地方"
Dim mc = System.Text.RegularExpressions.Regex.Matches(str, "\\u.{4}|[^\\u]+")
Dim c As String = ""
For i As Integer = 0 To mc.count - 1
    Dim v As String = mc(i).Value
    If v.StartsWith("\u") Then
        c &= chrw(Convert.ToInt32(v.substring(2), 16))
    Else
        c &= v
    End If
Next

msgbox(c)


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2015/2/12 20:57:00 [显示全部帖子]

1、将16进制转成整数;

 

2、将整数整数转成汉字


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2015/2/12 21:51:00 [显示全部帖子]

Dim str As String = "abc我\告诉你一件事哦!uuuu\u8717\u725B\u8BF4\u7EE7\u7EED啥都....顶顶顶顶ss34地方"
Dim mc = System.Text.RegularExpressions.Regex.Matches(str, "\\u.{4}|.+?")
Dim c As String = ""
For i As Integer = 0 To mc.count - 1
    Dim v As String = mc(i).Value
    If v.StartsWith("\u") Then
        c &= chrw(Convert.ToInt32(v.substring(2), 16))
    Else
        c &= v
    End If
Next

msgbox(c)


 回到顶部