怎样把得到的GB2312编码再转换为汉字？

[SnowmanBaby]

我现在可以把汉字转换为GB2312编码，可是怎样能把得到的GB2312字符串再转换为汉字呢？

[viena]

还是用strconv函数，把参数改一下

[jxgzay]

Private Sub Command1_Click()
a = StrConv("中国", vbFromUnicode)
X = StrConv(a, vbUnicode)
Print X
End Sub

答案：
中国

[SnowmanBaby]

这是把汉字转换为GB2312码，但是我想把GB2312码再转为汉字该怎样做呢？

[northwolves]

?Chr(Val("&H" & "D6D0"))在调试窗口输入


msgbox Chr(Val("&H" & "D6D0")) 为按钮代码

[SnowmanBaby]

这句话我调试过了，一走到这句话就说调用点出错

[SnowmanBaby]

这句话在VB里怎么也走不过去，总说调用点出错，但是在EXCEL中的VB编辑器里是可以通过的

[SnowmanBaby]

实在不好意思，在EXCEL中也不能通过，大侠们帮帮忙呀，急呀

[jxgzay]

//这是把汉字转换为GB2312码，但是我想把GB2312码再转为汉字该怎样做呢？

请认真看一下：）

Private Sub Command1_Click()
a = StrConv("中国", vbFromUnicode)
X = StrConv(a, vbUnicode)
Print X
End Sub

转gb2312:
a = StrConv("中国", vbFromUnicode)

转汉字：
X = StrConv(a, vbUnicode)

[hpygzhx520]

单个汉字的：
Private Function QWcode2AscII(ByVal UC As String) As String '区位码转换为汉字
Dim eArr(1) As Byte
eArr(0) = Mid(UC, 1, 2) + 160
eArr(1) = Mid(UC, 3, 2) + 160
QWcode2AscII = StrConv(eArr, vbUnicode)
End Function
注意：只适用于GB2312，不适用于GBK

[of123]

?Chr(Val("&H" & "D6D0"))
中

[SnowmanBaby]

我在VB中试了一下，执行这条语句的时候会说是无效的过程调用

[viena]

Chr()

[weiym]

你都可以转过去了,只要有源码,只要逆过程就可以转回来了

[SnowmanBaby]

没有源码，是用strconv函数转的gb2312，但是不知道怎么转回来