Publicité
466/550
Bosch Rexroth AG | Electric Drives
Fonctions CPL
Exemple :
7.16.12
Déterminer la taille du fichier
FILESIZE
and Controls
1
DIM A$(1):LJUST:OPENW(1,"P271",130,"TEST"):FOR I%=1
TO 10: PRN#(1,"!/-!/-!/-!/-!/-!/-!/-!/-!/-!/-"):NEXT:
CLOSE(1):OPENR(2,"P271"):FOR I%=1 TO FILESI-
ZE(2,2)-28: IF NOT (EOF(2)) THEN SEEK(2,I%):INP#(2,A
$) ENDIF: IF (EOF(2)) THEN PRN#(0,"###",I%,". BYTE:
<EOF>"): ELSE PRN#(0,"###",I%,". BYTE: <",A$,">") EN-
DIF: NEXT I%:CLOSE(2)
M30
SEEK et fichier aléatoire
1
OPENW(1,27272,200,"TEST",1024):LJUST
2
FOR I%= 1 TO 10
3
PRN#(1,I%,". Enregistrement")
4
NEXT
5
SEEK(1,3,4) : REM positionné sur le 4ème octet du 3ème
enregistrement
6
PRN#(1,"Écrasement du 3ème enregistrement à partir de
l'octet 4 avec ce texte")
7
SEEK(1,11):PRN#(1,"11ème enregistrement")
8
SEEK(1,11,5):PRN#(1,"@@")
9
SEEK(1,0):PRN#(1,"<EOF>")
10
SEEK(1,0,1):PRN#(1,"Nouvelle <EOF>")
11
CLOSE(1)
Indique la taille d'un fichier ou la limite jusqu'à laquelle un fichier a été déjà écrit.
Le fichier peut aussi bien être un fichier séquentiel qu'un fichier aléatoire. L'or‐
dre n'agit que sur les fichiers qui ont été ouverts avec "OPENR(..)".
Rexroth IndraMotion MTX | Description de l'application
Publicité
