... lSave := .f. local oFont local dd,mm,rr LOCAL oXmlDoc,oXmlNode, oXmlRecScan, oXmlFieldScan setpos(25,80) cls set_4_:=set(4,'yyyy-mm-dd') begin sequence cFileName := 'demo.xml' If !file(cFileName) break Endif cString:=Memoread( cFileName ) // cString:=strtran(cString,'<![CDATA[','') // cString:=strtran(cString,']]>','') ...