XML tutorial

[Antonio Linares]

Really simple XML tests:

Code: Select all

function Main()

   local oXml  := TXmlDocument():New(), oNode

   oNode = oXml:oRoot:AddBelow( TXmlNode():New( 0, "FORM" ) )
   
   oNode:AddBelow( TXmlNode():New( 0, "CAPTION",, "Hello world" ) )
   oNode:AddBelow( TXmlNode():New( 0, "TOP",, "100" ) )
   oNode:AddBelow( TXmlNode():New( 0, "LEFT",, "100" ) )
   oNode:AddBelow( TXmlNode():New( 0, "WIDTH",, "400" ) )
   oNode:AddBelow( TXmlNode():New( 0, "HEIGHT",, "300" ) )

   MsgInfo( oXml:oRoot:ToString() ) 

return nil
 

Result:

[Eoeo]

Good Antonio,
and if I a xml and I wish create for a sample a dbf How I can make :

sample test for xml from dbf :

Code: Select all

 <?xml version="1.0" encoding="ISO-8859-1" ?> 
- <ROOT DATABASE="fornito.dbf">
- <Structure>
- <Field>
  <Field_name>PRNOMBRE</Field_name> 
  <Field_type>Character</Field_type> 
  <Field_length>40</Field_length> 
  <Field_decimals>0</Field_decimals> 
  </Field>

<Data>
<Record>
  <PRNOMBRE>test1</PRNOMBRE> 
</Record>
<Record>
  <PRNOMBRE>test2</PRNOMBRE> 
</Record>
  </Data>
  </ROOT>