Hi Ben,

LOCAL lcPom,lii,liCount,lcChar,liLen
lcPom="& #21578;& #26481;& #23612;"
lii=AT("&",lcPom)
DO WHILE lii>0
   lcChar=STREXTRACT(lcPom,"&",";",1,1+4) && GET NCR definitions
   liLen=LEN(lcChar)
   lcChar=CHRTRAN(lcChar," &#;","") && remove other characters
   * convert decimal to hex
   lcChar=RIGHT(TRANSFORM(VAL(lcChar),"@0"),4)

   lcPom=STUFF(lcPom,lii,liLen, CHR(EVAL("0x"+LEFT(lcChar,2))) +CHR(EVAL("0x"+RIGHT(lcChar,2))))
   
   lii=AT("&",lcPom)
ENDDO
* this string contain original text in unicode
?lcPom

>Hi All,
>
>Does any body know how (programmatically) to change Unicode NCRs (numerical character references) back to the original characters?
>
>For example, I want to know what Traditional Chinese characters are "& #21578;& #26481;& #23612;". (Here, a space is diliberately added after each "&" to prevent the original characters from being shown on the this webpage.)
>
>TIA,
>Ben