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