Thanks for the suggestion Stuart. On 8/9/09, Boydell, Stuart <[email protected]> wrote: > Hi Norman, > Can I suggest a couple of modifications. You could use the fieldstore > function instead of converting to and from VMs. Using fieldstore will > run exponentially faster than the VM conversion method. > Also, if you want to keep the output pretty add the newline. > > Eg > Equ NEWLINE to char(13):char(10) ;* adjust for your op.sys > STYLESHEET = '?xml-stylesheet type="text/xsl" > href="http://...dcst.xsl";?' > XMLEXEC.STATUS = XMLEXECUTE(CMD,OPTIONS,XML.VAR,XSD.VAR) > IF NOT(XMLEXEC.STATUS) THEN > FINAL.XML.DOCUMENT = FIELDSTORE(XML.VAR,'<',3,0,STYLESHEET:'>':NEWLINE) > etc > > Cheers, > Stuart Boydell > > -----Original Message----- > > STATUS = XMLExecute(CMD,OPTIONS,XML.VAR,XSD.VAR) ;* XML.VAR > holds the variable that we'll use to create a dynamic array (DA) > PARSE = XML.VAR ;* PARSE is now the DA > > PARSE = CONVERT('>',@VM,PARSE) ;* Use CONVERT function to > convert all ending '>' in each XML elemetn to Value Marks > > LOCATE '?' IN PARSE<1,1> SETTING X ELSE ;* dimension the DA and > find the first ? in the DA > ;* Insert the new XML stylesheet element into the DA > PARSE = INSERT(PARSE,1,2,0,'<?xml-stylesheet type="text/xsl" > href="http://cicnet.celestecorp.com/cms/xml/xslt/cilstdcst.xsl";?') > END > PARSE = CONVERT(@VM,'>',PARSE) ;* convert the VM's back to '>' > > > ********************************************************************** > This email message and any files transmitted with it are confidential and > intended solely for the use of addressed recipient(s). If you have received > this communication in error, please reply to this e-mail to notify the > sender of its incorrect delivery and then delete it and your reply. It is > your responsibility to check this email and any attachments for viruses and > defects before opening or sending them on. Spotless collects information > about you to provide and market our services. For information about use, > disclosure and access, see our privacy policy at http://www.spotless.com.au > Please consider our environment before printing this email. > ********************************************************************** > > > _______________________________________________ > U2-Users mailing list > [email protected] > http://listserver.u2ug.org/mailman/listinfo/u2-users >
-- Sent from my mobile device _______________________________________________ U2-Users mailing list [email protected] http://listserver.u2ug.org/mailman/listinfo/u2-users
