Résultats de 1 à 6 sur 6

Sujet : Fin de fichier

  1. #1
    Membre MP
    Inscrit
    août 2013
    Messages
    7

    Fin de fichier

    Bonjour à tous!
    Mon problème est le suivant:
    mon programme effectue une recherche dans un fichier de données. Sans problème. Maisn une fois la fin de fichier atteinte, il ne veut plus refaire la lecture du fichier depuis le début. La condition de sortie de la boucle étant la fin de fichier, une fois atteinte, le prog n\'entre plus dans la boucle> normal. Mais je ne c pas comment contrôler cette fin de fichier. Comment remettre la condition à faux??

    J\'espère avoir été assez clair...merci d\'avance

  2. #2
    Membre MP
    Inscrit
    août 2013
    Messages
    8
    Est ce que tu peux envoyer les codes sources pour voir ou est le problème et comment marche en gros ton programme, s\'il te plait??

  3. #3
    Visiteur MP
    Visiteur MP
    bonjour,
    sur un fichier séquentiel ?
    read fichier at end \"instruction impérative\".
    détecte fin de fichier, le fermer
    puis l\'ouvir (en lecture) à nouveau.
    si autre organization : PETIT EXTRAIT
    de code ? comme demandé par frantzi.
    @+

  4. #4
    Membre MP
    Inscrit
    août 2013
    Messages
    7
    merci de vos réponse....
    voici le code
    la descritption des fichiers n\'étant pas utile pour la résolution de ce problème, voici la partie finale du code:

    PROCEDURE DIVISION.

    Gestion-multimedia.
    perform d-prog.
    perform menu until choix-menu-c1 = \'4\'.
    perform f-prog.
    stop run.

    Menu.
    perform d-menu.
    evaluate choix-menu-c1
    when \'1\' then
    perform films
    end-evaluate.

    Films.
    perform d-films.

    perform lecture-films until eof-films.
    perform f-films.

    Lecture-films.
    perform d-lecture-films.
    if titre-film-di1 = recherche-c2 then
    perform trouve-film
    else
    perform non-trouve-film.
    perform f-lecture-films.





    d-prog.
    display \'Programme realise par weiouch\'.
    open input ffilms.
    d-menu.
    display e1-Menu.
    accept c1.

    d-films.


    display \'Quel film recherchez-vous?\'.
    move low-values to c2.
    display c2.
    accept c2.


    d-lecture-films.
    DISPLAY \'eof-off\'.

    read ffilms

    end-read.
    display titre-film-di1.
    display \'d-lecture\'.

    trouve-film.
    display di1.

    non-trouve-film.
    display \'film non trouve\'.

    f-lecture-films.
    display \'f-lecture-films\'.

    f-films.
    display \'f-films\'.


    f-prog.
    display \'au revoir\'.


    j\'avais déjà fait des essais avec l\'instruction read...at end mais sans résultat.
    sûrement un truc tout bête auquel j\'ai pas pensé ou que je n\'ai pas fait correctement
    meri d\'avance

  5. #5
    Visiteur MP
    Visiteur MP
    et certains trouvent que les perform
    [ ou équivalents sur d\'autres langages ]
    sont beaucoup plus lisibles et qu\'il faut
    prohiber les GO TO !
    ( je n\'ai pas pu m\'empêcher )

    titre-film-di1 je suppose dans fichier ?
    décrire memind en WSS = titre-film-di1

    dans lecture
    read ffilms
    AT END move high-value to memind
    goto finlect.
    move titre-film-di1 to memind.
    finlect.
    exit.

    dans contrôles si indicatifs =
    tester memind [ et pas titre-film-di1 ]

    dans recherche
    si memind = high-value =>
    fermer le fichier
    puis l\'ouvrir ( en lecture )
    ce qui repositionne en début.
    @+

  6. #6
    Membre MP
    Inscrit
    août 2013
    Messages
    8
    Tu peux m\'envoyé ton programme complet pour que je vois car tu ne donnes pas la définition des fichiers, cx\'est a dire si ils sont déclarés en séquentiel ou en séquentiel indéxé. De plus, essaye de changer ton STOP RUN par un goback.

Informations du sujet

Utilisateur(s) parcourant ce sujet

il y a actuellement 1 utilisateur(s) parcourant ce sujet. (0 membre(s) et 1 visiteur(s))

Règles des messages

  • Vous ne pouvez pas créer de sujets
  • Vous ne pouvez pas répondre aux sujets
  • Vous ne pouvez pas importer de fichiers joints
  • Vous ne pouvez pas éditer vos messages
  •  
  • Les BB codes sont Activés
  • Les Smileys sont Activés
  • Le BB code [IMG] est Activé
  • Le code [VIDEO] est Activé
  • Le code HTML est Désactivé