Werte in Datei speichern

Hallo,

hier mal ein Beispielprogramm, das eine Datei einliest:

begin 
// Open file to write 
nFileHandler = $fileOpen("data.csv", "r") 


// init Buffer sLine 
resize(sLine, 1, 1) 
sLine = "" 
l_nDataSize = 0 


// read line by line 
do 
  nReadLines = $fileGet(nFileHandler,l_sLine,1) 
  if nReadLines > 0 
    append(sLine) 
    sLine[l_nDataSize] = l_sLine 
  endIf 
  l_nDataSize = l_nDataSize + 1 
until nReadLines == 0 


// remove last entry in sLine, because of "append" command before 
resize(sLine, 1, size(sLine)-1) 
// close file 
$fileClose(nFileHandler) 
end 

Die Idee ist, dass so lange mit $fileGet Zeile für Zeile eingelesen wird, bis die eingelesenen Zeichen 0 (und damit leer) ist.

Hier nochmals eine Beschreibung der Funktion $fileGet()

num $fileGet(num nFileHandler, string& sLines[], num NbLines)

Diese Anweisung liest nNbLines-Zeilen, speichert jede Zeile in einem Eintrag der Variablen nLines und gibt die Anzahl der effektiv gelesenen Zeilen zurück. Ein Zeilenende ist '\n' (0xa in binärer Form); die nachgestellten Zeichen \n und \r werden in der VAL3-Zeichenkette entfernt. Der nFileHandler ist der Dateibezeichner, der von der $fileOpen-Anweisung zurückgegeben wird.

Beispiel: $fileGet(nFileHandler, sLines[10], 7) : liest und speichert 7 Zeilen in sLines[10], sLines[11], ... sLines [16].

P.S.: Es ist auch möglich die Anzahl der einzulesenen Bytes anzugeben mit

num $fileGet(num nFileHandler, num& nBytes[], num nNbBytes)

Zum Schreiben von Dateien:

num $fileSet(num nFileHandler, string sLine, num NbLines)

Diese Anweisung schreibt nNbLines, die im Array sLines gefunden wurden, und gibt die Anzahl der effektiv geschriebenen Zeilen zurück. Nach jeder Zeichenfolge von sLines[] wird ein Zeilenende '\n' (0xa in binärer Form) geschrieben. Der nFileHandler ist der Dateibezeichner, der von der $fileOpen-Anweisung zurückgegeben wird. 5/7

Beispiel: $fileSet(nFileHandler, sLines[10], 7) : schreibt sLines[10], sLines[11], ... sLines[16] in 7 verschiedene Zeilen.