Nun habe ich auch noch das Problem mit den Leerzeilen gelöst:
einfach folgenden code ganz oben im listing hinzufügen (vor der ersten Zeile)
Code:
old = FileOpen("H:\temp\a.txt", "APPEND")
oldline=""
filewrite (old,oldline)
filewrite (old,oldline)
filewrite (old,oldline)
FileClose(old)