Section courante

A propos

Section administrative du site

Créer et utiliser des fichiers

Il existe deux types de fichiers dans les systèmes MS-DOS :

Commandes du fichier programme

Voici les commandes et les instructions les plus fréquemment utilisées avec les fichiers de programme. La référence de l'utilisateur GW-BASIC contient plus d'informations sur chacun d'eux.

SAVE filename[,a][,p]

Écrit sur la disquette le programme résidant actuellement en mémoire.

LOAD filename[,r]

Charge le programme d'une disquette en mémoire. LOAD supprime le contenu actuel de la mémoire et ferme tous les fichiers avant de charger le programme.

RUN filename[,r]

Charge le programme d'une disquette en mémoire et l'exécute immédiatement. RUN supprime le contenu actuel de la mémoire et ferme tous les fichiers avant de charger le programme.

MERGE filename

Charge le programme d'une disquette en mémoire, mais n'efface pas le programme actuel déjà en mémoire.

KILL filename

Supprime le fichier d'une disquette. Cette commande peut également être utilisée avec des fichiers de données.

NAME old filename AS new filename

Modifie le nom d'un fichier de disquette. Seul le nom du fichier est modifié. Le fichier n'est pas modifié et il reste dans le même espace et la même position sur le disque. Cette commande peut également être utilisée avec des fichiers de données.

Fichiers de données

Les programmes GW-BASIC peuvent fonctionner avec deux types de fichiers de données :

Les fichiers séquentiels sont plus faciles à créer que les fichiers à accès aléatoire, mais sont limités en termes de flexibilité et de vitesse lors de l'accès aux données. Les données écrites dans un fichier séquentiel sont une série de caractères ASCII. Les données sont entreposées, un élément après l'autre (séquentiellement), dans l'ordre envoyé. Les données sont relues de la même manière.

La création et l'accès aux fichiers à accès aléatoire nécessitent plus d'étapes de programme que les fichiers séquentiels, mais les fichiers aléatoires nécessitent moins d'espace sur le disque, car GW-BASIC les entrepose dans un format compressé sous la forme d'une chaîne de caractères.

Les sections suivantes expliquent comment créer et utiliser ces deux types de fichiers de données.

Création d'un fichier séquentiel

Les instructions et fonctions suivantes sont utilisées avec les fichiers séquentiels :

Les étapes de programme suivantes sont nécessaires pour créer un fichier séquentiel et accéder aux données du fichier :

L'exemple 1 est un programme court créant un fichier séquentiel, DATA, à partir d'informations saisies au niveau du terminal :

  1. 10 OPEN "O",#1,"DATA"
  2. 20 INPUT "NOM";N$
  3. 30 IF N$="TERMINER" THEN END
  4. 40 INPUT "DEPARTEMENT";D$
  5. 50 INPUT "DATE D'EMBAUCHE";H$
  6. 60 PRINT#1,N$;","D$",";H$
  7. 70 PRINT:GOTO 20
  8. RUN

on obtiendra un résultat ressemblant à ceci :

NOM? SYLVAIN MALTAIS
DEPARTEMENT? TI
DATE D'EMBAUCHE? 01/12/72
NOM? REJEAN TREMBLAY
DEPARTEMENT? RECHERCHE
DATE D'EMBAUCHE? 12/03/65
NOM? JACQUES GAGNON
DEPARTEMENT? COMPTABILITE
DATE D'EMBAUCHE? 04/27/78
NOM? JOHANNE GAGNON
DEPARTEMENT? MAINTENANCE
DATE D'EMBAUCHE? 08/16/78
NOM? TERMINER
OK

Accéder à un fichier séquentiel

Le programme de l'exemple 2 accède aux données du fichier, créé dans le programme de l'exemple 1, et affiche le nom de toutes les personnes embauchées en 1978 :

  1. 10 OPEN "I",#1,"DATA"
  2. 20 INPUT#1,N$,D$,H$
  3. 30 IF RIGHT$(H$,2)="78" THEN PRINT N$
  4. 40 GOTO 20
  5. 50 CLOSE #1
  6. RUN

on obtiendra un résultat ressemblant à ceci :

JACQUES GAGNON
JOHANNE GAGNON
Input past end in 20
Ok

Le programme de l'exemple 2 lit, séquentiellement, chaque élément du fichier. Lorsque toutes les données ont été lues, la ligne 20 provoque une erreur "Input past end". Pour éviter cette erreur, insérez la ligne 15, qui utilise la fonction EOF pour tester la fin du fichier :

  1. 15 IF EOF(1) THEN END

et changez la ligne 40 en GOTO 15.

Un programme créant un fichier séquentiel peut également écrire des données formatées sur la disquette avec l'instruction PRINT# USING. Par exemple, l'instruction suivante peut être utilisée pour écrire des données numériques sur une disquette sans délimiteurs explicites :

  1. PRINT#1, USING"####.##,"; A, B, C, D

La virgule à la fin de la chaîne de caractères de format sert à séparer les éléments dans le fichier disque.

La fonction LOC, lorsqu'elle est utilisée avec un fichier séquentiel, renvoie le nombre d'enregistrements de 128 octets ayant été écrits ou lus dans le fichier depuis son ouverture.

Ajouter des données à un fichier séquentiel

Lorsqu'un fichier séquentiel est ouvert en mode O, le contenu actuel est détruit. Pour ajouter des données à un fichier existant sans détruire son contenu, ouvrez le fichier en mode ajout (A).

Le programme de l'exemple 3 peut être utilisé pour créer ou ajouter un fichier nommé NAMES. Ce programme illustre l'utilisation de LINE INPUT. LINE INPUT lira les caractères jusqu'à ce qu'il voie un indicateur de retour chariot, ou jusqu'à ce qu'il ait lu 255 caractères. Il ne s'arrête pas aux guillemets ou aux virgules :

  1. 10 ON ERROR GOTO 2000
  2. 20 OPEN "A", #1, "NAMES"
  3. 110 REM AJOUTER DE NOUVELLES ENTREES AU DOSSIER
  4. 120 INPUT "NAME"; N$
  5. 130 IF N$="" THEN 200 'RETOUR CHARIOT SORTIES BOUCLE D'ENTREE
  6. 140 LINE INPUT "ADRESSE? "; A$
  7. 150 LINE INPUT "DATE DE NAISSANCE? "; B$
  8. 160 PRINT#1, N$
  9. 170 PRINT#1, A$
  10. 180 PRINT#1, B$
  11. 190 PRINT: GOTO 120
  12. 200 CLOSE #1
  13. 2000 ON ERROR GOTO 0

Aux lignes 10 et 2000, l'instruction ON ERROR GOTO est utilisée. Cette instruction active l'interception d'erreurs et spécifie la première ligne (2000) du sous-programme de gestion des erreurs. La ligne 10 active la routine de gestion des erreurs. La ligne 2000 désactive la routine de gestion des erreurs et est le point où GW-BASIC se branche pour afficher les messages d'erreur.

Fichiers à accès aléatoire

Les informations contenues dans les fichiers à accès aléatoire sont entreposées et accessibles dans des unités numérotées distinctes appelées enregistrements. Étant donné que les informations sont appelées par numéro, les données peuvent être appelées à partir de n'importe quel emplacement du disque ; le programme n'a pas besoin de lire l'intégralité du disque, comme lors de la recherche de fichiers séquentiels, pour localiser les données. Le GW-BASIC prend en charge les gros fichiers aléatoires. Le nombre maximal d'enregistrements logiques est 232-1.

Les instructions et fonctions suivantes sont utilisées avec des fichiers aléatoires :

Création d'un fichier à accès aléatoire

Les étapes de programme suivantes sont nécessaires pour créer un fichier de données aléatoires :

Le programme de l'exemple 4 prend les informations saisies en entrée au niveau du terminal et les écrit dans un fichier de données à accès aléatoire. Chaque fois que l'instruction PUT est exécutée, un enregistrement est écrit dans le fichier. Dans l'exemple, l'entrée CODE% à 2 chiffres à la ligne 30 devient le numéro d'enregistrement.

Note

Voici l'exemple 4 :

  1. 10 OPEN "R", #1, "INFOFILE", 32
  2. 20 FIELD#1, 20 AS N$, 4 AS A$, 8 AS P$
  3. 30 INPUT "CODE A 2 CHIFFRES"; CODE%
  4. 40 INPUT "NOM"; X$
  5. 50 INPUT "MONTANT"; AMT
  6. 60 INPUT "TELEPHONE"; TEL$: PRINT
  7. 70 LSET N$=X$
  8. 80 LSET A$=MKS$(AMT)
  9. 90 LSET P$=TEL$
  10. 100 PUT #1, CODE%
  11. 110 GOTO 30

Accéder à un fichier à accès aléatoire

Les étapes de programme suivantes sont nécessaires pour accéder à un fichier aléatoire :

Le programme de l'exemple 5 accède au fichier aléatoire, infofile, ayant été créé dans l'exemple 4. En entrant le code à 3 chiffres, les informations associées à ce code sont lues à partir du fichier et affichées :

  1. 10 OPEN "R",#1,"INFOFILE",32
  2. 20 FIELD #1, 20 AS N$, 4 AS A$, 8 AS P$
  3. 30 INPUT "CODE A 2 CHIFFRES";CODE%
  4. 40 GET #1, CODE%
  5. 50 PRINT N$
  6. 60 PRINT USING "$$###.##";CVS(A$)
  7. 70 PRINT P$:PRINT
  8. 80 GOTO 30

Avec des fichiers aléatoires, la fonction LOC renvoie le numéro d'enregistrement actuel. Le numéro d'enregistrement en cours est le dernier numéro d'enregistrement utilisé dans une instruction GET ou PUT. Par exemple, la ligne suivante termine l'exécution du programme si le numéro d'enregistrement courant dans le fichier numéro 1 est supérieur à 99 :

  1. IF LOC(1)>99 THEN END

L'exemple 6 est un programme d'inventaire illustrant l'accès aléatoire aux fichiers. Dans ce programme, le numéro d'enregistrement est utilisé comme numéro de pièce et il est supposé que l'inventaire ne contiendra pas plus de 100 numéros de pièce différents.

Les lignes 900 à 960 initialisent le fichier de données en écrivant CHR$(255) comme premier caractère de chaque enregistrement. Ceci est utilisé plus tard (ligne 270 et ligne 500) pour déterminer si une entrée existe déjà pour ce numéro de pièce.

Les lignes 130 à 220 affichent les différentes fonctions d'inventaire exécutées par le programme. Lorsque vous tapez le numéro de fonction souhaité, la ligne 230 se branche sur le sous-programme approprié.

Voici l'exemple 6 :

  1. 120 OPEN"R",#1,"INVEN.DAT",39
  2. 125 FIELD#1,1 AS F$,30 AS D$, 2 AS Q$,2 AS R$,4 AS P$
  3. 130 PRINT:PRINT "FONCTIONS:":PRINT
  4. 135 PRINT 1,"INITIALISE LE FICHIER"
  5. 140 PRINT 2,"CREE UNE NOUVELLE ENTREE"
  6. 150 PRINT 3,"AFFICHE L'INVENTAIRE POUR UNE PIECE"
  7. 160 PRINT 4,"AJOUTER A L'INVENTAIRE"
  8. 170 PRINT 5,"SOUSTRAIRE A L'INVENTAIRE"
  9. 180 PRINT 6,"AFFICHER TOUS LES PIECES SOUS LE NIVEAU DE RECOMMANDATION"
  10. 220 PRINT:PRINT:INPUT"FONCTION";FUNCTION
  11. 225 IF (FUNCTION<1)OR(FUNCTION>6) THEN PRINT "MAUVAIS NUMERO DE FONCTION":GOTO 130
  12. 230 ON FUNCTION GOSUB 900,250,390,480,560,680
  13. 240 GOTO 220
  14. 250 REM CONSTRUIRE UNE NOUVELLE ENTREE
  15. 260 GOSUB 840
  16. 270 IF ASC(F$)<>255 THEN INPUT"ECRASER";A$: IF A$<>"Y" THEN RETURN
  17. 280 LSET F$=CHR$(0)
  18. 290 INPUT "DESCRIPTION";DESC$
  19. 300 LSET D$=DESC$
  20. 310 INPUT "LA QUANTITE EN DEPOT";Q%
  21. 320 LSET Q$=MKI$(Q%)
  22. 330 INPUT "NIVEAU DE REAPPROVISIONNEMENT";R%
  23. 340 LSET R$=MKI$(R%)
  24. 350 INPUT "PRIX UNITAIRE";P
  25. 360 LSET P$=MKS$(P)
  26. 370 PUT#1,PART%
  27. 380 RETURN
  28. 390 REM AFFICHE L'ENTREE
  29. 400 GOSUB 840
  30. 410 IF ASC(F$)=255 THEN PRINT "ENTREE NULLE":RETURN
  31. 420 PRINT USING "NUMERO DE PIECE ###";PART%
  32. 430 PRINT D$
  33. 440 PRINT USING "QUANTITE DISPONIBLE #####";CVI(Q$)
  34. 450 PRINT USING "NIVEAU DE REAPPROVISIONNEMENT #####";CVI(R$)
  35. 460 PRINT USING "PRIX UNITAIRE $$##.##";CVS(P$)
  36. 470 RETURN
  37. 480 REM AJOUT DE L'INVENTAIRE
  38. 490 GOSUB 840
  39. 500 IF ASC(F$)=255 THEN PRINT "ENTREE NULLE":RETURN
  40. 510 PRINT D$:INPUT "QUANTITE A AJOUTER";A%
  41. 520 Q%=CVI(Q$)+A%
  42. 530 LSET Q$=MKI$(Q%)
  43. 540 PUT#1,PART%
  44. 550 RETURN
  45. 560 REM ENLEVE DE L'INVENTAIRE
  46. 570 GOSUB 840
  47. 580 IF ASC(F$)=255 THEN PRINT "ENTREE NULLE":RETURN
  48. 590 PRINT D$
  49. 600 INPUT "QUANTITE A SOUSTRAIRE";S%
  50. 610 Q%=CVI(Q$)
  51. 620 IF (Q%-S%)<0 THEN PRINT "SEULEMENT";Q%;"EN INVENTAIRE" :GOTO 600
  52. 630 Q%=Q%-S%
  53. 640 IF Q%=< CVI(R$) THEN PRINT "QUANTITE MAINTENANT";Q%;"NIVEAU DE REAPPROVISIONNEMENT";CVI(R$)
  54. 650 LSET Q$=MKI$(Q%)
  55. 660 PUT#1,PART%
  56. 670 RETURN
  57. 680 REM AFFICHE LES ELEMENTS SOUS LE NIVEAU DE RECOMMANDATION 4
  58. 690 FOR I=1 TO 100
  59. 710 GET#1,I
  60. 720 IF CVI(Q$)<CVI(R$) THEN PRINT D$;"QUANTITE";CVI(Q$) TAB(50) "NIVEAU DE REAPPROVISIONNEMENT";CVI(R$)
  61. 730 NEXT I
  62. 740 RETURN
  63. 840 INPUT "NUMERO DE PIECE";PART%
  64. 850 IF(PART% < 1)OR(PART% > 100) THEN PRINT "MAUVAIS NUMERO DE PIECE":GOTO 840 ELSE GET#1,PART%:RETURN
  65. 890 END
  66. 900 REM INITIALISE LE FICHIER
  67. 910 INPUT "ETES VOUS CERTAIN";B$:IF B$<>"Y" THEN RETURN
  68. 920 LSET F$=CHR$(255)
  69. 930 FOR I=1 TO 100
  70. 940 PUT#1,I
  71. 950 NEXT I
  72. 960 RETURN


Dernière mise à jour : Dimanche, le 19 mars 2023