XML tutorial

[Antonio Linares]

Really simple XML tests:

Code: Select all  Expand view

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  Expand view

 <?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>