Dateiende Erkennen "Eof; Datei Löschen "Erase - Bosch Rexroth IndraMotion MTX 11VRS Programmierhandbuch

DOK-MTX***-NC**PRO*V11-RE01-DE-P
Rexroth IndraMotion MTX 11VRS Programmierhandbuch
7.7.7

Dateiende erkennen "EOF"

Beschreibung:
Beispiel:
7.7.8 Datei löschen "ERASE"
Beschreibung:
Syntax:
Beispiele:
140 PRN#(1,"X-Achse",XPOS,YPOS,"Y-Achse",YPOS)
150 CLOSE(1)
160 OPENR(1,"P5")
170 INP#(1,A$)
180 CLOSE(1)
:
Im vorstehenden Beispiel werden die aktuellen Positionen der X- und Y-Achse
in Variablen übergeben (Zeile 90 bis 110). Danach wird Datei 1 geöffnet und
als Teileprogramm P5 abgelegt (Zeile 120).
Anschließend wird die Datei beschrieben bzw. überschrieben und dann ge‐
schlossen (Zeile 140 bis 150). Die Datei wird dann zum Lesen geöffnet und der
Inhalt der Variablen A$ zugewiesen. Nach dem Lesezugriff wird sie wieder ge‐
schlossen (Zeile 160 bis 180).
Mit der "EOF"-Funktion kann abgefragt werden, ob das Ende einer Datei (EOF
= end of file) erreicht ist.
Die EOF-Funktion gibt den logischen Wert "TRUE" aus, wenn beim lesenden
Zugriff das Dateiende erreicht wird. Andernfalls wird "FALSE" ausgegeben.
: 9 DIM A$(10)
10 OPENR(1,"P",444) : I%=0
11 WHILE NOT (EOF(1))DO
12 INP#(1,A$)
13 I%=I%+1
14 END
15 CLOSE(1)
M30
Löscht Dateien im aktuellen Verzeichnis.
ERASE(<Prog-Kennung>)
<Prog-Kennung>
Abb.7-32: Syntax Erase
Die" ERASE"-Funktion kann in eine zugewiesene INTEGER-Variable oder in
Schleifen und Abfragen (WHILE, IF etc.) folgende Ergebnisse als Integerwert
zurückliefern:
0: Datei wurde gelöscht.
1: Datei wurde nicht gelöscht, weil sie nicht existiert.
2: Datei wurde nicht gelöscht, weil sie löschgeschützt ist.
3: Datei wurde nicht gelöscht, weil sie aktiv ist.
Kann eine Datei nicht gelöscht werden, wird eine entsprechende Warnung
ausgegeben und das Programm weiter abgearbeitet.
10 IF ERASE("P1") <> 0 THEN ...
Bosch Rexroth AG
STRING-Ausdruck; maximal 30 Zeichen
Andernfalls erscheint die Fehlermeldung:
"FILENAME UNZULÄSSIG"
459/665
CPL-Funktionen