Discussion :

[Blooster]

Bonjour à tous,

Je souhaiterais écrire dans un fichier texte toutes les lignes que ma requête me retourne après exécution mais malheureusement impossible de comprendre mon erreur.

Voici mon bout de code :

Code :

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
26
27
28
29
res est un entier = fOuvre("C:\test\Liste_Client\listeClient.txt",foLectureEcriture)
SI res = -1 ALORS 
	Erreur("Impossible d'ouvrir le fichier")
FIN
 
// Erreur lors de l'exécution de la requête ?
SI HExécuteRequête(requeteInfo, hRequêteDéfaut) = Vrai ALORS
	// Lecture du premier enregistrement du résultat de la requête
	HLitPremier(requeteInfo)
	TANTQUE PAS HEnDehors
		nIDFichier est un entier
		sChaîneEcriture est une chaîne
		// Ouverture du fichier
		nIDFichier = fOuvre("C:\test\Liste_Client \listeClient.txt", foEcriture)
		SI nIDFichier <> -1 ALORS
			// Ecriture du fichier
			// sChaîneEcriture contient la chaîne à écrire
			fEcritLigne(nIDFichier, &sChaîneEcriture, Taille(sChaîneEcriture))
			// Fermeture du fichier
			fFerme(nIDFichier)
		SINON
			Erreur("Impossible d'écrire dans le fichier")
		FIN	
		HLitSuivant(requeteInfo) // Lecture de l'enregistrement suivant
	FIN
SINON
	// Affichage du message d'erreur
	Erreur("La requête n'a pas exécuté correctement")
FIN

Ma requête SQL fonctionne bien.
Mais quand je regarde mon fichier que je crée plutôt qui est vide à la base, il se met 2 ou trois bout de ligne de ma requête en vrac et c'est tout.
Alors que j'ai facile 3000ligne.

Si vous avez des suggestions à me proposer je suis à votre écoute !

Bien cordialement,
Blooster.

[tatayo]

Bonjour,
fOuvre ne doit pas être lancé à chaque itération de la boucle, mais une seule fois.
sChaîneEcriture n'est jamais affectée, et tu écris dans la fichier l'adresse de la variable, au lieu de son contenu.

Tatayo.

[Blooster]

J'ai rebidouillé mon code après tes conseils.
C'est bien ça ?

Code :

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
res est un entier = fOuvre("C:\test\Liste_Client \listeClient.txt",foLectureEcriture)
SI res = -1 ALORS 
	Erreur("Impossible d'ouvrir le fichier")
FIN
 
// Erreur lors de l'exécution de la requête ?
SI HExécuteRequête(requeteInfoListeClient, hRequêteDéfaut) = Vrai ALORS
	// Lecture du premier enregistrement du résultat de la requête
	HLitPremier(requeteInfoListeClient)
	TANTQUE PAS HEnDehors
		SI res <> -1 ALORS
			// Ecriture du fichier
			// sChaîneEcriture contient la chaîne à écrire
			fEcritLigne(res, requeteInfoListeClient.T_LIBELLE + " " + requeteInfoListeClient.T_PRENOM + " ")
			// Fermeture du fichier
			fFerme(res)
		SINON
			Erreur("Impossible d'écrire dans le fichier")
		FIN	
		HLitSuivant(requeteInfoListeClient) // Lecture de l'enregistrement suivant
	FIN
SINON
	// Affichage du message d'erreur
	Erreur("La requête n'a pas éxecuté correctement")
FIN

Cordialement,
Blooster

[Kyroon]

Bonjour,

Presque, vu que tu ouvre ton fichier avant ta boucle, il faut le fermer après, pas pendant.

Bonne continuation.

[Blooster]

Ah super je te remercie !

J'avais pris le système d'assistance windev, c'est lui qui m'a sortie un truc comme ça et qui d'ailleurs je n'ai pas su l’interpréter.

Merci bien en tout cas !