Discussion :

[hanitax]

salut tous le monde
j'ai un probléme je veux remplir un champ (multilignes) en important les données d'un fichier (.TXT) tant qu'il rencontre la ligne qui contient la valeur (X) il arrête l'importation des lignes ,j'ai essayéer ce code mais sans vain !

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Idfichiers est un entier =fOuvre(NomFichier,foLecture)
SI Idfichiers> 0 ALORS
      LigneLue est une chaîne = fLitLigne(Idfichiers) 
      TANTQUE LigneLue<>"  "  ET LigneLue<>EOT 
 
             TANTQUE Milieu(LigneLue,1,5)="X"
                  SAI_Champ=LigneLue+ RC
             FIN
             LigneLue=fLitLigne(Idfichiers)
      FIN
FIN
Info("Données bien transférées")

[Nicolas_Jeanneau]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Idfichiers est un entier =fOuvre(NomFichier,foLecture)
SI Idfichiers> 0 ALORS
	LigneLue est une chaîne = fLitLigne(Idfichiers) 
	TANTQUE LigneLue<>"  "  ET LigneLue<>EOT 
 
        TANTQUE Milieu(LigneLue,1,5)="X"
        SAI_Champ=LigneLue+ RC
FIN
LigneLue=fLitLigne(Idfichiers)
FIN
FIN
Info("Données bien transférées")

En fait tes 2 boucles ne sont pas nécessaires et la 2e ne doit jamais s'arrêter si par malheur il y a un X en 5e position !

Il faut faire :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Idfichiers est un entier = fOuvre(NomFichier,foLecture)
SI Idfichiers > 0 ALORS
	LigneLue est une chaîne = fLitLigne(Idfichiers) 
	TANTQUE LigneLue<>""  ET LigneLue<>EOT 
           SI Milieu(LigneLue,1,5) = "X" ALORS
             SAI_Champ += [RC] + LigneLue
           FIN
           LigneLue=fLitLigne(Idfichiers)
        FIN
FIN
Info("Données bien transférées")

à bientôt,

Nicolas

[Lo²]

Bonjour,

Tout d'abord, penses à utiliser la balise Code, ce sera plus lisible pour nous ^^ et aussi évite le "ça marche pas", et donnes plutôt le message d'erreur ou le comportement que tu as.

Ensuite, ci-dessous ton code modifié par rapport à ton explication :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Idfichiers est un entier =fOuvre(NomFichier,foLecture)
SI Idfichiers> 0 ALORS
	LigneLue est une chaîne = fLitLigne(Idfichiers) 
	TANTQUE LigneLue<>""  ET LigneLue<>EOT 
 
		SI Milieu(LigneLue,1,5)="X"
			SAI_Champ=LigneLue+ RC
			SORTIR
		FIN
		LigneLue=fLitLigne(Idfichiers)
	FIN
FIN
Info("Données bien transférées")

Pour info, la boucle s'arrête dés que le caractère va être rencontré... c'est-à-dire jamais
En effet, tu testes une chaîne d'une longueur 5 avec une chaîne d'une longueur 1.
Autre remarque :
Lorsque le test marchera, tu n'auras qu'une seule ligne dans SAI_Champ, la dernière ligne lue.

PS : Nicolas a été plus rapide, et a poussé la recherche plus loin

[Nicolas_Jeanneau]

ah oui autant pour moi je n'avais pas vu que la syntaxe de Milieu était inversée !

Bien relire l'aide sur cette fonction ...

Mettre <> "X" si tu ne veux pas voir les lignes dans ton champ et SORTIR si tu veux aussi arrêter la lecture du fichier.

En fin de traitement, penser à fermer le fichier aussi (avant le message, ce serait mieux).