Makro-Kochbuch - WollMux

if isMissing(bNextIn) thenbNext = falseelsebNext = bNextInend ifoSFA = createUnoService("com.sun.star.ucb.SimpleFileAccess")oOutputStream = createUnoService("com.sun.star.io.TextOutputStream")oInputStream = createUnoService("com.sun.star.io.TextInputStream")REM Datei erzeugen, zunächst evtl. eine vorhandene Datei löschenif not bNext then 'wenn nicht angehangen wird, löschenif oSFA.exists(sURL) then kill(sURL)oDatei = oSFA.OpenFileReadWrite(sURL)elseoDatei = oSFA.OpenFileReadWrite(sURL)oInputStream.SetInputStream(oDatei.getInputStream)do until oInputStream.isEOFoInputStream.readLine()loopend ifREM jetzt Daten schreiben, Titelzeile aber nur wenn neuwith oOutputStream.setOutPutStream(oDatei.getOutputStream).setEncoding(Zeichensatz)end withREM evtl. Kopfzeile schreiben oder Zeilenumbruchif bNext AND (uBound(aDaten()) > 0) then 'anhängen, Zeilenumbruch, aber nur, wenn auchDaten kommen!oOutputStream.writeString(chr(13) & chr(10))elseif bNext then 'anhängen, aber keine Daten folgen'nix tunelse 'neue Datei Kopfzeile schreibenoOutputStream.writeString(aDaten(0))if uBound(aDaten()) > 0 then oOutputStream.writeString(chr(13) & chr(10))end ifREM Rest der Daten schreibenfor i = 1 to uBound(aDaten)oOutputStream.writeString(aDaten(i))if not (i = uBound(aDaten())) then oOutputStream.writeString(chr(13) & chr(10))nextErzeugeCSVDatei = trueexit functionFehler:ErzeugeCSVDatei = falseend functionNeben CSV-Dateien spielen Konfigurationsdateien oft eine wichtige Rolle. Das Vorgehen istjedoch identisch. Auch hier werden die Textdateien typischerweise in einen Array eingelesen(zeilenweise) bzw. aus einem Array heraus geschrieben (auch zeilenweise).Die interne Verarbeitung der Inhalte hängt dann von der Spezifikation der Konfigurationsdateiab – normalerweise besteht diese aber nur aus zwei Typen von Zeileninhalten: Kommentar-LHM – Makro-Kochbuch 2012 59