Concloo LotusScript Essentials Beispiele
Beispiele: CNCL_XML_DeWhiteSpace
Entfernt aus einem XML-Text alle 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
xml = |<?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>
|
xml = CNCL_XML_DeWhiteSpace(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>