Concloo LotusScript Essentials Beispiele
Beispiele: CNCL_XML_Clean
Entfernt aus einem XML-Text alle Kommentare, White-Spaces am Anfang und am Ende einer Zeile, sowie alle White-Spaces, die ohne weitere Zeichen zwischen 2 Tags stehen.
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_Clean(xml)
Print xml
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/eintrag><eintrag><stichwort>Köln</stichwort><eintragstext>Köln ist eine Stadt, die ...</eintragstext></eintrag></verzeichnis>