>FUNCTION XmlEncode >LPARAMETERS teExpression > >*-- Transfrom 5 Known reserved XML characters only > >LOCAL lcReturn >lcReturn = TRAN(teExpression) > >IF VARTYPE(teExpression) = 'C' > lcReturn = ALLTRIM(lcReturn) > lcReturn = STRTRAN(lcReturn, ' & ', ' & ') && remove the spaces in all of these before using > lcReturn = STRTRAN(lcReturn, ' < ', ' < ') > lcReturn = STRTRAN(lcReturn, ' > ', ' > ') > lcReturn = STRTRAN(lcReturn, ' " ', ' " ') > lcReturn = STRTRAN(lcReturn, " ' ", ' ' ') > lcReturn = STRTRAN(lcReturn, " / ", ' / ') >ENDIF > >RETURN lcReturn > >*------------------------------------------------------------------------- >FUNCTION XMLDeCode >LPARAMETERS cTXT >LOCAL i,ch >FOR i=1 TO 255 > ch=ALLTRIM(STR(i)) > cTXT=STRTRAN(cTXT,"&#"+ch+";",CHR(i)) >ENDFOR >RETURN cTXT >>