>create cursor c_cursor (name c(20), email_addr c(100), account c(50)) >nRecCount = XMLTOCURSOR( "emaillist.xml", "c_cursor", 512+8192) >>
CREATE CURSOR c_cursor (name c(20), email_addr c(100), account c(50)) LOCAL loXML AS MSXML2.DOMDocument60 m.loXML = CREATEOBJECT("MSXML2.DOMDocument.6.0") m.loXML.Async = .F. m.loXML.Load(GETFILE("xml")) LOCAL loRows AS MSXML2.IXMLDOMNodeList m.loRows = m.loXML.selectNodes("//*[local-name() = 'email_addr']/parent::node()") LOCAL loRow AS MSXML2.IXMLDOMNode FOR EACH m.loRow IN m.loRows INSERT INTO c_cursor (name, email_addr, account) ; VALUES (m.loRow.selectNodes("name").item(0).text, m.loRow.selectNodes("email_addr").item(0).text, m.loRow.selectNodes("account").item(0).text) ENDFOR m.loXML = .NULL. RELEASE m.loXML