Hi Mike,

I'm trying your function and what is strange is that about every 3rd time I compile my project it errors during compile on it:

lcReturn = STRTRAN(lcReturn, '<', '
Error in line 919: Command contains unrecognized phrase/keyword.

It only occurs about every other to every 3rd time during compiling, any idea why?

To ensure I cut and paste it correctly, here is the code again:

*--Courtesy Mike Hellend UT Thread 901300
FUNCTION XmlEncode
LPARAMETERS teExpression
LOCAL lcReturn

lcReturn = TRAN(teExpression)

IF VARTYPE(teExpression) = 'C'
	lcReturn = ALLTRIM(lcReturn)
	lcReturn = STRTRAN(lcReturn, '&', '&')
	lcReturn = STRTRAN(lcReturn, '<', '&&#108;t;')
	lcReturn = STRTRAN(lcReturn, '>', '&gt;')
	lcReturn = STRTRAN(lcReturn, '"', '&quot;')
	lcReturn = STRTRAN(lcReturn, "'", '&apos;')
ENDIF 

RETURN lcReturn

>>That line is the value line below and when I remove the & it runs fine. How can I include the & in a value? I need to in some cases...
>
>The & is a reserved symbol, but can be created literally like so:
>
>

&

>
>Here's a function I have in my library that I use to XMLify everything that goes into an XML document:
>
>

* Xml Encode
>* This program gets stuff ready for XML. It'll take anything. Its tough.
>LPARAMETERS teExpression
>LOCAL lcReturn
>
>lcReturn = TRAN(teExpression)
>
>IF VARTYPE(teExpression) = 'C'
>	lcReturn = ALLTRIM(lcReturn)
>	lcReturn = STRTRAN(lcReturn, '&', '&')
>	lcReturn = STRTRAN(lcReturn, '<', '&lt;')
>	lcReturn = STRTRAN(lcReturn, '>', '>')
>	lcReturn = STRTRAN(lcReturn, '"', '"')
>	lcReturn = STRTRAN(lcReturn, "'", '&apos;')
>ENDIF
>
>RETURN lcReturn

>
>From your last couple posts looks like you're doing a little string manipulation, eh? Fun stuff. XML'll give you a headache at first but once you learn its ins and outs the love affair will never end.