Hello,

Please try this reduced sample:
[Files also attached]

Thanks!

Patrick

#include "hbXml.ch"

PROCEDURE Test()

   LOCAL oXmlDoc, oXmlNode, oXmlRecScan, oXmlFieldScan

   ? "-- Content of Sample.xml -----"
   ? "------------------------------"
   ? '<?xml version="1.0"?>'
   ? '<database>'
   ? ' <records>'
   ? '  <record>'
   ? '   <description>Jeff</description>'
   ? '   <description1>14001</description1>'
   ? '   <description2>1st Computers</description2>'
   ? '  </record>'
   ? ' </records>'
   ? '</database>'
   ? "------------------------------"

   oXmlDoc:= TXmlDocument():new()
   oXMlDoc:read( Memoread( "Sample.xml" ) )

   oXmlNode      := oXmlDoc:findFirst( "records" )
   oXmlRecScan   := TXmlIteratorScan():new( oXmlNode )
   oXmlNode      := oXmlRecScan:find( "record" )
   oXmlFieldScan := TXmlIteratorScan():new( oXmlNode )

   ?
   ? "oXmlFieldScan:find( 'description' ):cData = '" +
oXmlFieldScan:find( 'description' ):cData + "'"
   ? "--> OK"

   ?
   ? "oXmlFieldScan:find( 'description1' ):cData = '" +
oXmlFieldScan:find( 'description1' ):cData + "'"
   ? "--> NOT Ok, should be '14001'"

   ?
   ? "oXmlFieldScan:find( 'description2' ):cData = '" +
oXmlFieldScan:find( 'description2' ):cData + "'"
   ? "--> NOT Ok, should be '1st Computers'"

   ?
   ?
   wait

RETURN

------------------------------------------------------------------------------
Stay on top of everything new and different, both inside and 
around Java (TM) technology - register by April 22, and save
$200 on the JavaOne (SM) conference, June 2-5, 2009, San Francisco.
300 plus technical and hands-on sessions. Register today. 
Use priority code J9JMT32. http://p.sf.net/sfu/p
_______________________________________________
xHarbour-developers mailing list
xHarbour-developers@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/xharbour-developers

Reply via email to