这个代码怎么转换

显示全部楼层 · 2012-3-12 21:46:59

Function unicode2gb(ByVal unicode1 As String) As String
'此函数专门用来转换类文字到汉字
'可独立使用，没有调用外部数据
Dim I As Integer
While Len(unicode1) > 0
I = InStr(1, unicode1, "\u")
If I = 0 Then
unicode2gb = unicode2gb & unicode1
unicode1 = ""
Else
...

千问 · 2012-3-12 21:46:59

如果你有安装jdk的话，在jkd的bin目录里面有个native2ascii.exe可以用来将中文转换为对应的编码。...

千问 · 2012-3-12 21:46:59

eclipse 有插件可以直接转成汉字你是要自己去转？...