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

ijianbo 架构师  2003-03-18 05:39:13
我用StrConv,发现不对?请问还有什么函数可以实现么?
...全文
86 点赞 收藏 9
写回复
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
回复
ijianbo 2003-03-21
没人知道么 ?
回复
ijianbo 2003-03-20
up
回复
ijianbo 2003-03-20
没有理解你的意思,“GBK码转换成汉字”?不懂
回复
gys_yxr 2003-03-19
UP
回复
visualvbjava 2003-03-19
先由GBK码转换成汉字,在由汉字得到其Unicode码
回复
ijianbo 2003-03-19
但,我转换出来后,我用msgbox显示出来并非Unicode码!
回复
cn唐三藏 2003-03-18
VB中有现成的函数用啊??strConv()到msdn中查查喽!

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

兄弟我需要分,谢谢
回复
ijianbo 2003-03-18
up
回复
发动态
发帖子
VB基础类
创建于2007-09-28

7453

社区成员

VB 基础类
申请成为版主
社区公告
暂无公告