Zeile an Datei anhängen

[xundeenergie]

Hi!

Ich möchte gerne aus einem Macro heraus in einem CSV-File einen Statistik erarbeiten. Das bedeutet, jedesmal, wenn das Makro aufgerufen wird, soll beim Statistik-File eine Zeile angehängt werden.

Auf der Unix-Shell würde ich das mit

Code: Alles auswählen

echo "$sSTAT" >> Statistik.csv

erledigen

Für die Makros unter Libreoffice hab ich bisher nur folgendes gefunden

Code: Alles auswählen

   if FILEEXISTS (sStatIndexUrl) = true then
      i = FreeFile()
      Open sStatIndexUrl For Output As i
      Print #i, sStat
      Close #i
   end if

Was aber jedesmal das ganze File überschreibt.

Wie mache ich es richtig?

lg xundeenergie

[xundeenergie]

Ich hab es jetzt so gelöst:

Code: Alles auswählen

	Dim sLine$
	Dim sZeile$

	if FILEEXISTS (sStatIndexUrl) = true then
		iNumber = FreeFile()
		Open sStatIndexUrl For Input As #iNumber
		While not eof(#iNumber)
		REM - Hier fehlt noch der Vergleich mit bereits bestehenden Zeilen
			Line Input #iNumber, sZeile
			if sLine <> "" then
				sLine = sLine & chr(13) & sZeile
			else
				sLine = sZeile
			end if
		wend
		Close #iNumber
		Open sStatIndexUrl For Output As #iNumber
		REM - Hier fehlt noch der Vergleich mit bereits bestehenden Zeilen
		If sLine <> "" then
			Print #iNumber, sLine & chr(13) & sStat
		else
			Print #iNumber, sStat
		end if
		Close #iNumber 
	end if