LoadArray() – Array aus Datei laden
Die Funktion lädt ein Array aus einer Datei und übergibt es einer Variablen.
|
Parameter |
Beschreibung |
|---|---|
|
aArray:R |
Referenziertes Array |
|
aFileName:C |
Pfad + Dateiname |
Rückgabewert
Logisch / Boolean - Array konnte aus der angegebenen Datei geladen werden
Beispiel
| aFile, aIn, aFileName, cText, nX, aFileArray, i |
aFileName := "C:\Temp\Test.txt",
cText := "Dontenwill",
nX := Len(cText),
if !DirectoryExists("C:\temp") then
CreateDir("C:\Temp"),
endif,
aFile := FOpen(aFileName, FO_CREATE),
while nX >= 0 do
startseq,
FWriteLn(aFile, OemToAnsi(SubStr(cText, Len(cText) - nX + 1, 3))),
onerror,
stopseq,
nX := nX - 3,
end,
FClose(aFile),
LoadArray(aFileArray, aFileName),
for i := 1 to Len(aFileArray) do
WriteLn(aFileArray[i])
end,