请问我如何能将得到的汉字区位码转换成汉字啊？

yanzeyuan 2004-05-06 09:38:00

问题同上

譬如： “海” 的区位码是2603 我得到了2603这4个数字以后，用什么方法让他变成海字！

谢谢！

...全文

145 5 打赏收藏转发到动态举报

写回复

用AI写文章

5 条回复

切换为时间正序

请发表友善的回复…

发表回复

BlueBeer 2004-05-07

打赏
举报

好，长见识~

northwolves 2004-05-07

打赏
举报

Private Sub Command1_Click()
MsgBox quwei("海")
MsgBox hanzi(2603)
End Sub
Function quwei(ByVal x As String) As String
If Asc(x) >= 0 Then Exit Function
x = Hex(Asc(x))
quwei = Format(CDec("&H" & Left(x, 2)) - 160, "00") & Format(CDec("&H" & Right(x, 2)) - 160, "00")
End Function
Function hanzi(ByVal x As String) As String
hanzi = Chr("&H" & Hex(Val(Left(x, 2)) + 160) & Hex(Val(Right(x, 2)) + 160))
End Function

BlueBeer 2004-05-06

打赏
举报

'用这个函数可以把区位码转换成对应的汉字
Function QW2HZ(QWM As Long) As String
Dim tmp(1) As Byte
tmp(0) = 160 + QWM \ 100
tmp(1) = 160 + QWM Mod 100
QW2HZ = StrConv(tmp(), vbUnicode)
End Function

QW2HZ(2603)就可以返回"海"字

其实这个问题我不会：）
上面的函数是根据楼上的代码改的，分请给楼上的老师~

KiteGirl 2004-05-06

打赏
举报

Private Sub Command1_Click()
Dim tBytes() As Byte
ReDim tBytes(1)
tBytes(1) = 3 + 160
tBytes(0) = 26 + 160
Text1.Text = StrConv(tBytes(), vbUnicode)
End Sub

AustinLei 2004-05-06