Utilisation de Fichiers

Version imprimable

09/05/2010, 12h30
romain_t

Utilisation de Fichiers

Bonjour, je voudrais savoir quelque chose concernant les utilisations de fichiers, en fait, je voudrais pouvoir consulter un catalogue de produits alimentaires. Par exemple en tapant Viandes, j'aimerais pouvoir consulter toutes les viandes en stock dans le programme. Je me demande comment je pourrais faire en fait... Je sais ( un bien grand mot) utiliser l'acces par clé. Donc pour moi, "viandes" serait la clé primaire qui me permettrait de voir toutes les secondaires, c'est à dire les types de viande en stock. Si vous avez une autre technique, je suis à votre écoute :)
09/05/2010, 14h26
Ladgalen
Bonjour

Je pense que la première chose à laquelle tu dois réfléchir c'est comment est organisé ton fichier : qu'elle est la structure d'une ligne.

Tu peux imaginer par exemple une structure du type :
Code:

1 2 3 4 5 6 7 type aliment character(len=100) :: famille character(len=100) :: type real :: quantite integer :: jour, mois, annee end type aliment
et dans ton fichier tu écris
Code:

1 2 famille type quantite jour mois annee
par exemple
Code:

1 2 "viande" "boeuf" 15.5 20 05 2010
La façon la plus simple est de faire un accés séquentiel. Tu lis tout ton fichier et tu récupère les lignes où viandes apparait et tu affiche les infos associées. Si tu dois le faire plusieurs fois et que ton fichier n'est pas trop gros le plus simple et de charger ton fichier en mémoire au départ.
09/05/2010, 17h15
romain_t

OK, merci beaucoup pour ta réponse! Je vais essayer comme ca. Par contre, comment se fait-il que j'écrive dans des fichiers FOR001.DAT alors que dans les parenthèses de mon open, j'ai bien spécifié la mention 'CLIENTS.DAT' ? Parce que cela m'empeche d'aller chercher des informations dans le fichier... Encore merci pour la réponse bon dimanche :)
09/05/2010, 17h21
Ladgalen

Regarde du coté du numéro logique que tu attribut à ton fichier. Peut être que tu n'en a pas mis ou que quand tu écris ce n'est pas le bon. Vérifie qu'il est bien supérieur à 10 !
09/05/2010, 18h50
romain_t

Par numéro logique, tu entends le numero d'unité? Si c'est ca, je l'ai changé, j'ai mis 11 mais ca marche toujours pas. :(
09/05/2010, 22h21
Ladgalen

Oui c'est ce dont je parle.

Montre nous ton code, là je sèche un peu :aie:

C'est gentil de bien vouloir y jeter un coup d'oeil. :)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
options/extend_source
        program TP6
        implicit none
 
 
        include 'CLIENT.F'
        integer*4 IOS,UNIT
        integer*4 CLE,COEF
        real*4 TEMPS,ALEATOIRE
        integer*4 V,SEED
        record/CLIENT/ CLIENT
 
        UNIT=30
        COEF = 11111
 
 
        open(unit=UNIT, file='CLIENTS.DAT', STATUS='UNKNOWN',
        1 organization='INDEXED', recordtype='FIXED',
        1 form='UNFORMATTED', recl=SIZEOF(CLIENT)/4,
        1 access='KEYED', key=(1:4:INTEGER,5:12:CHARACTER),iostat=IOS)
 
! Subroutine générant des codes clients uniques pour les clients
 
        CALL CODE_CLIENT(CLE)
 
 
        write(*,*)'VEUILLEZ ENTRER VOTRE NOM POUR VOUS INSCRIRE'
 
        IOS=1
        V=1
        do while (V .eq. 1)
 
        read(*,100,iostat=IOS) CLIENT.NOM
100     format(A)
        CLIENT.CLE = CLE
 
        write(*,*) CLIENT.NOM, CLIENT.CLE
        write(unit=UNIT, fmt=200, iostat=IOS) CLIENT.NOM,CLIENT.CLE
200     format(A,I)
              write(*,*) IOS
 
! Subroutine de connexion du client
        CALL CONNEXION_CLIENT (UNIT,CLIENT)
 
           if (IOS .eq. 0) then
                        close(unit=UNIT,iostat=IOS)
                        V=0
 
                else if (IOS .gt. 0) then
                        write(*,*)'Mauvaise saisie'
                        V=1
 
                else if (IOS.eq.-1) then
                        write(*,iostat=IOS)'Merci d''avoir utilise ce programme'
                        V=0
                end if
 
        end do
 
 
        end

_______________________________________________

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
options/extend_source
        logical*4 function CONNEXION_CLIENT (UNIT,CLIENT)
        implicit none
 
        include '($FORIOSDEF)'
        include 'CLIENT.F'
        character*8 NOM
        integer*4 IOS,UNIT,CLE
        record/CLIENT/ CLIENT
 
 
 
        UNIT=30
 
! RECONNAISSANCE DU CLIENT PAR L INTERMEDIAIRE DE SON CODE CLIENT
 
        write(*,10) 'Entrez votre code client: '
10      format(X,A,$)
 
        read(*,20,iostat=IOS) CLE
20      format(I)
 
        !Recherche du client correspondant
 
        read(unit=UNIT, keyid=0, key=CLE, iostat=IOS) CLIENT.NOM
        write(*,*) IOS
 
        write(*,*) CLIENT.CLE
 
                if (IOS .eq. FOR$IOS_ATTACCNON) then
                        write(*,*) 'Erreur de connexion: ce client n''existe pas'
 
                else if (IOS .ne. 0) then
                        write(*,*) 'Erreur de lecture'
 
                else
                        write(*,*) 'Bienvenue ', CLIENT.NOM
 
                        CONNEXION_CLIENT = IOS .eq. 0
                end if
 
 
 
        return
 
        end