Bosch Rexroth IndraMotion MTX 11VRS Programmierhandbuch Seite 466

464/665 Bosch Rexroth AG
CPL-Funktionen
6 OPENR(1,"P2")
7 SEEK(1,3)
8 POS% = FILEPOS(1)
9 POS1% = FILEPOS(1,1)
11 SEEK(1,0) : REM AUF DATEIENDE POSITIONIERT
12 POS2% = FILEPOS(1)
13 POS3% = FILEPOS(1,1)
14 CLOSE(1)
Ergebnis:
→ Byte-Zahl
POS% = 3
→ Byte-Zahl
POS1% = 3
→ Byte-Zahl
POS2% = 171
→ Byte-Zahl
POS3% = 171
FILEPOS und Random-Datei
1 OPENW(1,"P2",200,"TEST",1024)
2 FOR I%= 1 TO 10
3 PRN#(1,"TEST FUER FILEPOS")
4 NEXT
5 SEEK(1,3,2)
6 POS% = FILEPOS(1)
7 POS1% = FILEPOS(1,1)
8 POS2% = FILEPOS(1,2)
9 POS3% = FILEPOS(1,3)
10 PRN#(1,"Ueberschreiben des 3. Records ab Byte 2 mit
diesem Text")
11 SEEK(1,0) : REM Auf Dateiende positioniert
6 POS% = FILEPOS(1)
7 POS1% = FILEPOS(1,1)
8 POS2% = FILEPOS(1,2)
9 POS3% = FILEPOS(1,3)
11 CLOSE(1)
Ergebnis:
→ Record-Nummer des Records, in dem man sich befindet.
POS% = 3
→ Byte-Zahl
POS1% = 258
→ Record-Nummer des Records, in dem man sich befindet.
POS2% = 3
→ Position innerhalb des 3. Records
POS3% = 2
→ Record-Nummer des Records, in dem man sich befindet.
POS% = 11
POS1% = 1281
POS1% = 1281
→ Record-Nummer des Records, in dem man sich befindet.
POS2% = 11
→ Position innerhalb des 3. Records
POS3% = 1
DOK-MTX***-NC**PRO*V11-RE01-DE-P
Rexroth IndraMotion MTX 11VRS Programmierhandbuch