Concloo LotusScript Essentials Beispiele
Beispiele: CNCL_XML_GetElementContent
Der Inhalt eines bestimmten Elementtyps wird ermittelt und als Liste zurückgegeben.
Unter dem Tag "count" der Ergebnisliste kann die Anzahl der gefundenen Elemente ermittelt werden.
Dim xml As String
Dim eintraege As Variant
xml = |<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<verzeichnis> // hier beginnt das Verzeichnis
<titel>Wikipedia Städteverzeichnis</titel>
/* dies ist der erste Eintrag */
<eintrag>
<stichwort>Genf</stichwort>
<eintragstext>Genf ist der Sitz von ...</eintragstext>
</eintrag>
<eintrag> // und dies der zweite
<stichwort>Bern</stichwort>
<eintragstext>Bern ist der Regierungssitz von ...</eintragstext>
</eintrag>
<eintrag> // und dies der zweite
<stichwort>Köln</stichwort>
<eintragstext>Köln ist eine Stadt, die ...</eintragstext>
</eintrag>
</verzeichnis>
|
eintraege = CNCL_XML_GetElementContent(xml,"stichwort")
GoSub AUSGABE
eintraege = CNCL_XML_GetElementContent(xml,"eintragstext")
GoSub AUSGABE
eintraege = CNCL_XML_GetElementContent(xml,"eintrag")
GoSub AUSGABE
Exit Sub
AUSGABE:
Forall eintrag In eintraege
Print ListTag(eintrag) + " > " + eintrag
End ForAll
Print
Return
Ausgabe:
1 > Genf
2 > Bern
3 > Köln
count > 3
1 > Genf ist der Sitz von ...
2 > Bern ist der Regierungssitz von ...
3 > Köln ist eine Stadt, die ...
count > 3
1 > <stichwort>Genf</stichwort><eintragstext>Genf ist der Sitz von ...</eintragstext>
2 > <stichwort>Bern</stichwort><eintragstext>Bern ist der Regierungssitz von ...</eintragstext>
3 > <stichwort>Köln</stichwort><eintragstext>Köln ist eine Stadt, die ...</eintragstext>
count > 3