Discussion :

[epiouf]

Bonjour,

Je cherche comment faire pour ouvrir des fichier afin de les traiter.

Donc ces fichier sont stocker dans le repertoire de TRAVAIL, j'aimerais que tous les fichiers soit traiter
les fichier sont de type .DAT
si aucune ligne est dans le fichier je veux un message d'erreur de type "pas de ligne"
j'aimerais aussi que les ";" soit bien placé apres chaque champs :
nom(4 caractere);prenom(4 caractere);login;(5caractere);age(2 caractere);tel(10 caractere); il n'y a pas d'espace entre
entre les champs des que la ligne est traité en passe au ligne suivante des que celui-ci est fini on passe au fichier suivant.

j'ai fait un début mais je ne vois pas comment faire de l'aide svp

OPEN_TEXT #Fichier_ouvert AS file
IF (%STATUS = %SUCCESS)
#done = 0
WHILE (#done <> 1)
READ_LINE file /TARGET = #line
IF (%STATUS = %SUCCESS)

[gege2061]

Bonjour,

Voici une partie de code qui permet de parcourir un fichier :

Code dml :

Sélectionner tout - Visualiser dans une fenêtre à part

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
PROCEDURE_FORM MAIN (#filename)
  PERFORM EXIST_FILE (#filename)
  IF (#status = %SUCCESS)
    #done = 0
    #line = ""

    OPEN_TEXT #filename AS fd
    WHILE (#done <> 1)
      READ_LINE fd /TARGET = #line
      IF (%STATUS = %SUCCESS)
        IF (#line <> "")
          ! ...
        ELSE
          #done = 1
        END_IF
      ELSE
        #done = 1
      END_IF
    END_WHILE
    CLOSE_TEXT fd
  ELSE
    #msg = "Le fichier " & #filename & " n'existe pas !"
    PRINT /nowait #msg
  END_IF
END_FORM

Et une procédure pour découper une chaine de caractère en tableau :

Code dml :

Sélectionner tout - Visualiser dans une fenêtre à part

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
!-------------------------------------------------------------------------------
! Decoupe une chaine de caractere selon un separateur donne.
!-------------------------------------------------------------------------------
! #ligne(in) : Ligne a decouppe
! #sep(in)   : separateur
!
! #champs(out) : Tableau contenant les différents champs
! #nbchamps(out) : nombre de champs
!-------------------------------------------------------------------------------
PROCEDURE_FORM STR_SPLIT (#ligne, #sep)
  #next = 1
  #nbchamps = 1
  #seppos = 1

  WHILE (#seppos <> 0)
    #seppos = POS (#ligne, #sep, #next)
		IF (#seppos = 0)
      #champs(#nbchamps) = MID (#ligne, #next, LEN (#ligne) - #next + 1)
    ELSE
      #champs(#nbchamps) = MID (#ligne, #Next, #seppos - #next)
      #next = #seppos + 1
      #nbchamps = #nbchamps + 1
    END_IF
  END_WHILE
END_FORM

Tu devrais t'en sortir avec ça

[epiouf]

cool merci je vais test tout ca