狐友论坛
* UNICODE编码转换为汉字 CLEAR lc = '狐友论坛' &&"狐友论坛" ALINES(la, lc, 4, ";") FOR ln = 1 TO ALEN(la, 1) lc1 = SUBSTR(la[ln], 4) lc2 = RIGHT(lc1, 2) + LEFT(lc1, 2) ?? STRCONV(STRCONV(lc2,16),6) ENDFOR
[此贴子已经被作者于2023-2-9 20:09编辑过]