//////////////////////////////////////////////////// // xml1.prg ////////////////////////////////////////////////////
#include "/home/ivan/src/harbour/contrib/xhb/hbxml.ch" function main() local cFile:="./test.xml", cString local cNote, cDiscount local oDoc, oBook, oIterator, oCurrent cString:=memoread( cFile ) if !( len(cString) > 0 ) wait "xml file unavailable" return NIL endif oDoc:=TXmlDocument( cString, HBXML_STYLE_NOESCAPE ) if !( oDoc:nError==HBXML_ERROR_NONE ) wait "xml file parsing error " + str(oDoc:nError) return NIL endif oBook:=oDoc:findfirst( "book" ) if oBook == NIL wait "no books found" return NIL endif do while .t. if HHasKey( oBook:aAttributes, "id" ) ? "book ID : " + oBook:aAttributes["id"] else ? "no attribute book ID" endif cNote:="" cDiscount:="" oIterator:=TXmlIterator():New( oBook ) do while .t. oCurrent:=oIterator:Next() if oCurrent==NIL ? "end branch" wait "values : "+cNote+" "+cDiscount exit else ? "current tag : " + oCurrent:cName if oCurrent:cName=="note" cNote:=oCurrent:cData elseif oCurrent:cName=="discount" cDiscount:=oCurrent:cData endif endif enddo oBook:=oDoc:findnext() if oBook == NIL wait "no more books found" exit endif enddo return NIL <catalog> <book id="bk101"> <author>Gambardella, Matthew</author> <title>XML Developer's Guide <note>111</note> </title> <genre>Computer</genre> <price>44.95 <discount>11</discount> </price> <publish_date>2000-10-01</publish_date> <description>An in-depth look at creating applications with XML.</description> </book> <book id="bk102"> <author>Ralls, Kim</author> <title>Midnight Rain <note>222</note> </title> <genre>Fantasy</genre> <price>5.95 <discount>12</discount> </price> <publish_date>2000-12-16</publish_date> <description>A former architect battles corporate zombies, an evil sorceress, and her own childhood to become queen of the world.</description> </book> <book id="bk103"> <author>Corets, Eva</author> <title>Maeve Ascendant <note>333</note> </title> <genre>Fantasy</genre> <price>5.95 <discount>13</discount> </price> <publish_date>2000-11-17</publish_date> <description>After the collapse of a nanotechnology society in England, the young survivors lay the foundation for a new society.</description> </book> <book id="bk104"> <author>Corets, Eva</author> <title>Oberon's Legacy <note>444</note> </title> <genre>Fantasy</genre> <price>5.95 <discount>14</discount> </price> <publish_date>2001-03-10</publish_date> <description>In post-apocalypse England, the mysterious agent known only as Oberon helps to create a new life for the inhabitants of London. Sequel to Maeve Ascendant.</description> </book> <book id="bk105"> <author>Corets, Eva</author> <title>The Sundered Grail <note>555</note> </title> <genre>Fantasy</genre> <price>5.95 <discount>15</discount> </price> <publish_date>2001-09-10</publish_date> <description>The two daughters of Maeve, half-sisters, battle one another for control of England. Sequel to Oberon's Legacy.</description> </book> </catalog> On Wed, Apr 28, 2010 at 5:37 PM, Antonio Maniero <mani...@klip.net> wrote: > Please, post line 19 from your Main. > > []'s Maniero > > > 2010/4/28 ivan re <re.i...@gmail.com> > >> >> $ hbmk2 xml1.prg -lxhb -L/usr/local/lib/harbour >> hbmk2: Processing configuration: /usr/bin/hbmk.cfg >> Harbour 2.1.0beta1 (Rev. 14394) >> Copyright (c) 1999-2010, http://www.harbour-project.org/ >> >> >> >> Compiling 'xml1.prg'... >> Lines 168, Functions/Procedures 1 >> Generating C source output to '/tmp/xml1.c'... Done. >> >> >> $ ./xml1 >> >> Error BASE/1099 Argument error: STR >> >> >> >> >> Called from STR(0) >> Called from MAIN(19) >> >> Can someone help me? >> TIA Ivan >> >> >> _______________________________________________ >> Harbour mailing list (attachment size limit: 40KB) >> Harbour@harbour-project.org >> http://lists.harbour-project.org/mailman/listinfo/harbour >> >> > > _______________________________________________ > Harbour mailing list (attachment size limit: 40KB) > Harbour@harbour-project.org > http://lists.harbour-project.org/mailman/listinfo/harbour > >
_______________________________________________ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour