InsertXMLArray()

Syntax

Ergebnis = InsertXMLArray(ElternKnoten, Array() [, VorherigerKnoten])

Fügt das angegebene Array() als einen neuen XML-Knoten in den angegebenen Elternknoten ein.

Parameter

ElternKnoten	Der Knoten, in welchen der neue Knoten eingefügt werden soll. Um den neuen Knoten an der Wurzel des XML-Baums einzufügen, kann hier RootXMLNode() verwendet werden.
Array()	Das in die XML-Struktur einzufügende Array.
VorherigerKnoten (optional)	Ein Unterknoten ("child") des 'ElternKnoten', nach dem der neue Knoten eingefügt werden soll. Ist dieser Wert gleich 0 oder nicht angegeben, dann wird der neue Knoten als erster Unterknoten seines Elternknotens eingefügt. Ist dieser Wert gleich -1, dann wird der neue Knoten als letzter Unterknoten seines Elternknotens eingefügt.

Rückgabewert

Der neue XML-Knoten, wenn er erfolgreich erstellt wurde - oder Null, wenn an dieser Stelle kein Knoten eingefügt werden konnte.

Anmerkungen

Die bei CreateXMLNode() angegebenen Regeln, wo ein neuer Knoten eingefügt werden kann, gelten auch für diese Funktion.

Der eingefügte Knoten wird "array" benannt und seine beinhalteten Element-Knoten werden als "element" bezeichnet. Wenn das Array mehrere Dimensionen hat, wird jedes Element Attribute haben, welche die Position des Elements im Array beschreiben, dabei wird jede Koordinate als "a", "b" usw. bezeichnet. Siehe unten für ein Beispiel der erstellten XML-Struktur.

Beispiel

  ; Dieses Beispiel erzeugt folgende XML-Struktur:
  ;
  ; <array>
  ;   <element>red</element>
  ;   <element>green</element>
  ;   <element>blue</element>
  ; </array>
  ;
  Dim Colors$(2)
  Colors$(0) = "red"
  Colors$(1) = "green"
  Colors$(2) = "blue"
  
  If CreateXML(0)
    InsertXMLArray(RootXMLNode(0), Colors$())
    FormatXML(0, #PB_XML_ReFormat)
    Debug ComposeXML(0)
  EndIf

Beispiel

  ; Dieses Beispiel erzeugt folgende XML-Struktur:
  ;
  ; <array>
  ;   <element a="0" b="0">0</element>
  ;   <element a="0" b="1">1</element>
  ;   <element a="1" b="0">10</element>
  ;   <element a="1" b="1">11</element>
  ;   <element a="2" b="0">20</element>
  ;   <element a="2" b="1">21</element>
  ; </array>
  ;
  Dim MultiArray(2, 1)
  For a = 0 To 2
    For b = 0 To 1
      MultiArray(a, b) = a * 10 + b
    Next b
  Next a
  
  If CreateXML(0)
    InsertXMLArray(RootXMLNode(0), MultiArray())
    FormatXML(0, #PB_XML_ReFormat)
    Debug ComposeXML(0)
  EndIf

Siehe auch

ExtractXMLArray(), InsertXMLList(), InsertXMLMap(), InsertXMLStructure(),

Unterstützte OS

Alle