VFP Unicode转中文
从网址反馈回来的内容中汉字部分是Unicode码,示例如下:\u6d4b\u8bd5\u6587\u5b57ID\uff01
如何在VFP中进行转换
程序代码:
? 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