Concloo LotusScript Essentials Beispiele
Beispiele: CNCL_XML_DeComment
Es werden alle Kommentare der Form "/* ... */" und "// ..." aus dem übergebenen String entfernt und wieder zurückgegeben.
Dim xml As String
Dim zeilen 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>Köln</stichwort>
<eintragstext>Köln ist eine Stadt, die ...</eintragstext>
</eintrag>
</verzeichnis>
|
xml = CNCL_XML_DeComment(xml)
zeilen = Split(xml, Chr(10))
ForAll zeile In zeilen
Print zeile
End ForAll
Ausgabe:
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<verzeichnis>
<titel>Wikipedia Städteverzeichnis</titel>
<eintrag>
<stichwort>Genf</stichwort>
<eintragstext>Genf ist der Sitz von ...</eintragstext>
</eintrag>
<eintrag>
<stichwort>Köln</stichwort>
<eintragstext>Köln ist eine Stadt, die ...</eintragstext>
</eintrag>
</verzeichnis>