编程论坛 → VFP论坛

VFP Unicode转中文

aroffice 发布于 2022-06-22 20:22， 1282 次点击

从网址反馈回来的内容中汉字部分是Unicode码，示例如下：
\u6d4b\u8bd5\u6587\u5b57ID\uff01
如何在VFP中进行转换

5 回复

吹水佬2022-06-22 20:53

转换一下
如：\u6d4b\u8bd5\u6587\u5b57
先转换成：4b6dd58b8765575b
? STRCONV(STRCONV("4b6dd58b8765575b",16), 6)

easyppt2022-06-22 21:06

返回的应该是 Json字符串吧，直接用 Myfll解析Json 即可

吹水佬2022-06-22 21:26

程序代码：

? uz("\u6d4b\u8bd5\u6587\u5b57ID\uff01")

FUNCTION uz(str)
    ret = ""
    i = 1
    DO WHILE i <= LEN(str)
        IF SUBSTR(str,i,2)=="\u"
            ret = ret + STRCONV(STRCONV(SUBSTR(str,i+4,2)+SUBSTR(str,i+2,2),16), 6)
            i = i + 6
        ELSE
            ret = ret + SUBSTR(str,i,1)
            i = i + 1
        ENDIF
    ENDDO
    RETURN ret
ENDFUNC

ls_y0412022-07-01 22:31

王子的fll实现bs真的很简单

有兴趣的可以一起来研究

sostemp2022-07-06 07:48

thanks