.版本 2
.支持库 iconv
.子程序 unicode转码, 文本型
.参数 unicode, 文本型
.局部变量 gbk, 文本型
gbk ＝ 子文本替换 (临时数组 [i], “&#”, “”, , , 真)
.如果真 (取文本长度 (gbk) ＞ 4)
gbk ＝ 取十六进制文本 (到数值 (gbk))
.如果真结束
gbk ＝ 到文本 (编码转换 (到字节集 (“\u” ＋ gbk), #编码_JAVA, #编码_GBK, ))
返回 (gbk)
上述代码可以将一个&#x的字符转换为汉字。有需要的，自己调整一下。
尊重他人劳动成果。转载请务必附上原文链接，我将感激不尽。
有什么问题可以