Hi Dmitry,

You can do that with pure VFP code or you can use XMLTOCURSOR().

XMLTOCURSOR(lcXml, "crsXml")
* Or
lcStr = STREXTRACT(lcXml, "<service>", "</service>")
lnTotItems = OCCURS("<add", lcStr)
FOR lnItem = 1 TO lnTotItems
	lcKey = EVALUATE(ALLTRIM(STREXTRACT(lcStr, "<add key=", "value=", lnItem)))
	lcVal = EVALUATE(ALLTRIM(STREXTRACT(lcStr, "value=", "/>", lnItem)))
	? lnItem, lcKey, lcVal
ENDFOR

>How would I process the following XML file?:
>
>

><?xml version="1.0"?>
><service>
>   <add key="key1" value="value1" />
>   <add key="key2" value="value2" />
></service>
>

>
>I want to extract values corresponding to different keys in the file.
>
>TIA for any suggestions.