DESCRIPTION.

L'instruction PTR # retourne ou modifie la position du pointeur du fichier de données associé.

SYNTAXE.

kposition = PTR #kfichier&

kposition = PTR#kfichier&

REMARQUES.

kfichier& doit être une valeur numérique correspondant au canal de communication avec un ficher ouvert valide.

L'instruction PTR #, suivie du numéro du canal associé au fichier, retourne la position, le rang, du prochain octet qui sera lu ou écrit dans le fichier. La valeur de la pseudo-variable PTR # peut être modifiée "manuellement" par le programme.

Note : l'utilisation de PTR # a pour effet secondaire de vider le tampon du fichier associé.

La valeur de la pseudo-variable PTR # peut être augmentée ou diminuée, mais toute valeur en dehors de la taille du fichier provoquera une erreur. Pour connaitre la taille, la longueur, d'un fichier, on utilise l'instruction EXT # suivie du numéro du canal associé au fichier dont on souhaite connaitre la longueur. Si le fichier n'est pas, ou n'est plus, ouvert une erreur sera retournée.

RUBRIQUE.

Les fichiers de données pour plus de détails sur la création et l'utilisation des fichiers de données.

EXEMPLE.

REM --- Initialisation ---

kfichier$ = @dir$ + "Tester.txt"

REM --- Création du fichier et enregistrement ---

kfichier& = OPENOUT( kfichier$ )

PRINT PTR #kfichier&

PRINT #kfichier&, "BBC BASIC SDL 2.0"

PRINT PTR #kfichier&

PRINT #kfichier&, "Mon BBC BASIC pas a pas"

PRINT PTR #kfichier&

PRINT #kfichier&, "Origine NERD"

PRINT PTR #kfichier&

REM --- Lecture des données par secances ---

PRINT

FOR kdebut = 0 TO EXT #kfichier& STEP 10

PTR #kfichier& = kdebut

INPUT #kfichier&, kdonnee$

PRINT kdebut ; " - " ; kdonnee$ ; " - " ; PTR #kfichier&

NEXT kdebut

CLOSE #kfichier&

PRINT PTR #kfichier&

REM --- Fin de l'exemple ---

END

retourne :

0

18

42

55

0 - BBC BASIC SDL 2.0 - 18

10 - SDL 2.0 - 18

20 - n BBC BASIC pas a pas - 42

30 - C pas a pas - 42

40 - s - 42

50 - NERD  - 45

Invalide channel

Notez que les chaines de caractères sont retournées par INPUT # dès qu'un caractère RC (Retour Chariot) est rencontré même si elles n'ont pas une longueur de 10 caractères.