Question

VB6 把 \u6e05\u534e\u5927\u5b66 转换成汉字的代码

某网页源码中的汉字全是以 \u 带头的编码,在VB6中需要将此转换成汉字显示
求转换的代码

• 你的回答被采纳后将获得：
• 系统奖励15（财富值+成长值）+难题奖励10（财富值+成长值）+提问者悬赏20（财富值+成长值）

Answer 1

msgbox unicodeTO("\u6e05\u534e\u5927\u5b66")
'清华大学

Function unicodeTO(str)
Dim Ucode , i , fen
fen = Split(str, "\u")
For i = 1 To UBound(fen)
unicodeTO = unicodeTO & ChrW(CInt("&H" & fen(i)))
Next
End Function

追问

很感谢你的回答,只是还有点缺陷,若一行文字中前面带有字母或后面带有数字则会提示溢出.例如 D \u6e05\u534e\u5927\u5b66 则D会丢失; \u6e05\u534e\u5927\u5b66520 则会溢出.
不知有没有办法把 "D \u6e05\u534e\u5927\u5b66123***"转换成"D 清华大学123***"