Fichier sous GW-Basic

[leglatin]

J'ai un petit souci : j'ai écrit un programme sous GW-Basic qui utilise un fichier en lecture (OPEN "ESSAI.BIN" FOR INPUT AS #1) et lorsque j'en récupère les données (A$=INPUT$(1,#1)) ça marche, mais lorsque l'octet rencontré est 1Ah (26), c'est considéré comme étant la fin du fichier et le prgm ne peut donc pas lire les données suivantes dudit fichier...
Quelqu'un aurait une solution ?

[Pocket]

Salut,

J'ai un petit souci : j'ai écrit un programme sous GW-Basic qui utilise un fichier en lecture (OPEN "ESSAI.BIN" FOR INPUT AS #1) et lorsque j'en récupère les données (A$=INPUT$(1,#1)) ça marche, mais lorsque l'octet rencontré est 1Ah (26), c'est considéré comme étant la fin du fichier et le prgm ne peut donc pas lire les données suivantes dudit fichier...
Quelqu'un aurait une solution ?

J'ai l'impression que tu veux lire un fichier binaire octet par octet mais en l'ouvrant par accès séquentiel (OPEN ... FOR INPUT AS ...).
Je pense que ce n'est pas la méthode la plus appropriée.

Essaie plutôt un truc du genre :

Code : Tout sélectionner

I& = 1
OPEN "R", #1, "ESSAI.BIN", 1
FIELD #1, 1 AS A$
DO UNTIL (EOF(1))
    GET #1, I&
    I& = I& + 1
    PRINT ASC(A$)
LOOP
CLOSE #1

Initialisation du pointeur de lecture I à 1 (le & indique un entier)
Ouverture du fichier en accès direct, taille des blocs = 1 octet
Assignation d'un champ de 1 octet à A$ (en l'occurence le bloc ne contient qu'un champ)
Boucle de lecture jusqu'a la fin du fichier
Lecture de l'octet n° I
Incrément du pointeur de lecture
Affichage du code ASCII de A$
Fin de Boucle
Fermeture du fichier

A+

[jojo]

Essaie plutôt un truc du genre :

Code : Tout sélectionner

I& = 1
OPEN "R", #1, "ESSAI.BIN", 1
FIELD #1, 1 AS A$
DO UNTIL (EOF(1))
    GET #1, I&
    I& = I& + 1
    PRINT ASC(A$)
LOOP
CLOSE #1

Bonjour tous les deux.

Amha, si Leglatin a écrit son programme en Gw-Basic, ça ne marchera pas, l'instruction DO UNTIL ... LOOP n'existe pas en GW-Basic ... et il faut numéroter les lignes ! Ah, et puis, pour les entiers, c'est %

Je pense que le programme devrait s'écrire ainsi:

10 I% = 1
20 OPEN "R", #1, "ESSAI.BIN", 1
30 FIELD #1, 1 AS A$
40 WHILE NOT (EOF(1))
50 GET #1, I%
60 I% = I% + 1
70 PRINT ASC(A$)
80 WEND
90 CLOSE #1

Cordialement,
Georges.

[Pocket]

Salut,

Amha, si Leglatin a écrit son programme en Gw-Basic, ça ne marchera pas, l'instruction DO UNTIL ... LOOP n'existe pas en GW-Basic ... et il faut numéroter les lignes ! Ah, et puis, pour les entiers, c'est %

Sorry, tu as parfaitement raison, je me suis gauffré et j'ai donné un exemple en QBASIC.

Ton exemple est l'exacte expression de ma pensée en GWBASIC .

A+

[jojo]

Salut,
Sorry, tu as parfaitement raison, je me suis gauffré et j'ai donné un exemple en QBASIC.
Ton exemple est l'exacte expression de ma pensée en GWBASIC
A+

P't'être que ça donnera envie à Leglatin de programmer en QBasic

[leglatin]

Merci à vous deux pour vos réponses
C'est pour finir de mettre au point mes routines de transfert IBM-PC <-> Casio PB-700, je ne savais pas que l'on pouvait faire de l'accès direct comme ça et ça va bien m'aider.

(Sujet réglé)