如何把gbk码(中文)转换成unicode码?

xjbx
博客专家认证
2003-03-18 05:39:13
我用StrConv,发现不对?请问还有什么函数可以实现么?
...全文
207 9 打赏 收藏 转发到动态 举报
写回复
用AI写文章
9 条回复
切换为时间正序
请发表友善的回复…
发表回复
playyuer 2003-03-26
  • 打赏
  • 举报
回复
Private Sub Command1_Click()
VBA.MsgBox GBK2Unicode("卧室")
End Sub

Public Function GBK2Unicode(s As String) As String
Dim buffer() As Byte
buffer = VBA.StrConv(VBA.StrConv(s, vbUnicode), vbFromUnicode)
Dim i As Long
For i = LBound(buffer) To UBound(buffer)
GBK2Unicode = GBK2Unicode & "%" & VBA.Right("00" & VBA.Hex(buffer(i)), 2)
Next i
End Function
xjbx 2003-03-21
  • 打赏
  • 举报
回复
没人知道么 ?
xjbx 2003-03-20
  • 打赏
  • 举报
回复
up
xjbx 2003-03-20
  • 打赏
  • 举报
回复
没有理解你的意思,“GBK码转换成汉字”?不懂
gys_yxr 2003-03-19
  • 打赏
  • 举报
回复
UP
visualvbjava 2003-03-19
  • 打赏
  • 举报
回复
先由GBK码转换成汉字,在由汉字得到其Unicode码
xjbx 2003-03-19
  • 打赏
  • 举报
回复
但,我转换出来后,我用msgbox显示出来并非Unicode码!
cn唐三藏 2003-03-18
  • 打赏
  • 举报
回复
VB中有现成的函数用啊??strConv()到msdn中查查喽!

StrConv(mem,vbFromUnicode,&H804)
&H804即GBK码,

兄弟我需要分,谢谢
xjbx 2003-03-18
  • 打赏
  • 举报
回复
up

7,759

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧