Building an XML Document

Demonstrates how to build the following XML document:

<accrep:AccidentReport>
  <accrep:VehicleSection>
    <accrep:Vehicle>
      <accrep:DriverOrPedestrian>D</accrep:DriverOrPedestrian>
      <accrep:Number>1</accrep:Number>
      <accrep:Name>
        <accrep:First>John</accrep:First>
        <accrep:Last>Doe</accrep:Last>
        <accrep:Middle>Robert</accrep:Middle>
      </accrep:Name>
      <accrep:Passengers>
        <accrep:Name>
          <accrep:First>John</accrep:First>
          <accrep:Last>Doe, Jr.</accrep:Last>
          <accrep:Middle>Robert</accrep:Middle>
        </accrep:Name>
      </accrep:Passengers>
      <accrep:Passengers>
	  <accrep:Name>
          <accrep:First>Sally</accrep:First>
          <accrep:Last>Doe</accrep:Last>
          <accrep:Middle>Crystal</accrep:Middle>
        </accrep:Name>
      </accrep:Passengers>
    </accrep:Vehicle>
    <accrep:Vehicle>
      <accrep:DriverOrPedestrian>D</accrep:DriverOrPedestrian>
      <accrep:Number>2</accrep:Number>
      <accrep:Name>
        <accrep:First>John</accrep:First>
        <accrep:Last>Public</accrep:Last>
        <accrep:Middle>Q</accrep:Middle>
      </accrep:Name>
      <accrep:Passengers>
        <accrep:Name>
          <accrep:First>Billy</accrep:First>
          <accrep:Last>Public</accrep:Last>
          <accrep:Middle>Bob</accrep:Middle>
        </accrep:Name>
      </accrep:Passengers>
      <accrep:Passengers>
	  <accrep:Name>
          <accrep:First>Kelly</accrep:First>
          <accrep:Last>Public</accrep:Last>
          <accrep:Middle>Emily</accrep:Middle>
        </accrep:Name>
      </accrep:Passengers>
    </accrep:Vehicle>
  </accrep:VehicleSection>
</accrep:AccidentReport>

Download Chilkat XML ActiveX

LOCAL loXml1
LOCAL loXml2
LOCAL loXml3
LOCAL loXml6
LOCAL loXml10
LOCAL loXml11
LOCAL loXml15
LOCAL loXml16
LOCAL loXml20
LOCAL loXml23
LOCAL loXml27
LOCAL loXml28
LOCAL loXml32
LOCAL loXml33

loXml1 = CreateObject('Chilkat.Xml')
loXml1.Tag = "accrep:AccidentReport"

loXml2 = loXml1.NewChild("accrep:VehicleSection","")

loXml3 = loXml2.NewChild("accrep:Vehicle","")
loXml3.NewChild2("accrep:DriverOrPedestrian","D")
loXml3.NewChild2("accrep:Number","1")

loXml6 = loXml3.NewChild("accrep:Name","")
loXml6.NewChild2("accrep:First","John")
loXml6.NewChild2("accrep:Last","Doe")
loXml6.NewChild2("accrep:Middle","Robert")
RELEASE loXml6

loXml10 = loXml3.NewChild("accrep:Passengers","")

loXml11 = loXml10.NewChild("accrep:Name","")
loXml11.NewChild2("accrep:First","John")
loXml11.NewChild2("accrep:Last","Doe, Jr.")
loXml11.NewChild2("accrep:Middle","Robert")
RELEASE loXml11
RELEASE loXml10

loXml15 = loXml3.NewChild("accrep:Passengers","")

loXml16 = loXml15.NewChild("accrep:Name","")
loXml16.NewChild2("accrep:First","Sally")
loXml16.NewChild2("accrep:Last","Doe")
loXml16.NewChild2("accrep:Middle","Crystal")
RELEASE loXml16
RELEASE loXml15
RELEASE loXml3

loXml20 = loXml2.NewChild("accrep:Vehicle","")
loXml20.NewChild2("accrep:DriverOrPedestrian","D")
loXml20.NewChild2("accrep:Number","2")

loXml23 = loXml20.NewChild("accrep:Name","")
loXml23.NewChild2("accrep:First","John")
loXml23.NewChild2("accrep:Last","Public")
loXml23.NewChild2("accrep:Middle","Q")
RELEASE loXml23

loXml27 = loXml20.NewChild("accrep:Passengers","")

loXml28 = loXml27.NewChild("accrep:Name","")
loXml28.NewChild2("accrep:First","Billy")
loXml28.NewChild2("accrep:Last","Public")
loXml28.NewChild2("accrep:Middle","Bob")
RELEASE loXml28
RELEASE loXml27

loXml32 = loXml20.NewChild("accrep:Passengers","")

loXml33 = loXml32.NewChild("accrep:Name","")
loXml33.NewChild2("accrep:First","Kelly")
loXml33.NewChild2("accrep:Last","Public")
loXml33.NewChild2("accrep:Middle","Emily")
RELEASE loXml33
RELEASE loXml32
RELEASE loXml20
RELEASE loXml2

*  Display the XML:
? loXml1.GetXml()