Problème sur Import CSV

**Raptor92** · 20/03/2016, 17h40

Bonjour

J'ai un souci sur le code suivant, je n'importe sans cesse que la première ligne en boucle

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
//-- On ouvre le fichier
// Indication du chemin d'ouverture d'un fichier externe
IdFichier = fOuvre("C:\WD_DATA\Surveillance_Zones.csv",foLectureEcriture)
SI IdFichier <> -1 ALORS
	// Lecture d'une ligne dans ce fichier
	Reslecture = fLitLigne(IdFichier)
	TANTQUE Reslecture <> EOT ET Reslecture <> ""
		//-- On insert les données dans la table pour affichage et création de l'état
		Trace("INSERT INTO Surveillance_Zones (NOM,HORODATAGE,SERVICE,LIEU_RASSEMBLEMENT) VALUES ('"+ExtraitChaîne(Reslecture,1,";")+"','"+ExtraitChaîne(Reslecture,2,";")+"','"+ExtraitChaîne(Reslecture,3,";")+"','"+ExtraitChaîne(Reslecture,4,";")+"') ")
		SI PAS HExécuteRequêteSQL(Requete1, hRequêteSansCorrectionHF,...
		"INSERT INTO Surveillance_Zones (NOM,HORODATAGE,SERVICE,LIEU_RASSEMBLEMENT) VALUES ('"+ExtraitChaîne(Reslecture,1,";")+"','"+ExtraitChaîne(Reslecture,2,";")+"','"+ExtraitChaîne(Reslecture,3,";")+"','"+ExtraitChaîne(Reslecture,4,";")+"') ")
		Reslecture = fLitLigne(IdFichier)
	FIN
FIN
FIN
 
IdFichier=fFerme(IdFichier)

Pourriez-vous me guider
Bien à vous

**tbc92** · 20/03/2016, 18h11

Et ton traitement affiche la trace() comme il faut, ou bien il affiche uniquement un message ?

**Raptor92** · 20/03/2016, 18h26

La trace indique le traitement mais importe sans cesse la première ligne

**Hemgé** · 20/03/2016, 22h20

Bonsoir

Si je lis bien votre code, vous lisez la première ligne et ensuite vous partez dans une boucle sans fin d'insertions de la même ligne dans votre fichier HF.

De fait,
- lecture réussie de la première ligne et la condition TANTQUE Reslecture <> EOT ET Reslecture <> "" est rencontrée (ligne 7)
- ensuite, vient le code conditionnel SI PAS HExécuteRequêteSQL(...) avec dans ce code conditionnel la lecture de la ligne suivante.

Comme le HExécuteRequêteSQL( ...) réussit, vous rencontrez la condition SI, mais pas la condition SI PAS HExécuteRequêteSQL(...)Donc, le code conditionnel n'est pas exécuté et la ligne suivante n'est pas lue (fLitLigne de la ligne 12)
Comme Reslecture n'a pas été réinitialisé, la condition TANTQUE Reslecture <> EOT ET Reslecture <> "" continue pourtant à être vérifiée et vous repartez avec le SI PAS HExécuteRequêteSQL(...)Et chaque HExécuteRequêteSQL(...) insére une nouvelle ligne.

Bon travail

Hemgé

**Raptor92** · 02/04/2016, 00h07

Bonsoir

Pour le moment, je ne comprends pas votre explication, voici une des ligne du fichier

Code :

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

Abdel-Ilah;17/03/2016 08:38:54;ETNEHS;N° 3 - PR Admin-Log

**tatayo** · 02/04/2016, 09h54

Bonjour,
Le problème est tout simple, et très bien expliqué par Hemgé: en indentant correctement le code, il doit sauter aux yeux.
Sinon le plus simple pour comprendre est d'utiliser le débuggeur* de WinDev: place donc n point d'arrêt sur la première ligne, puis exécute le code pas à pas.
Tu vas très vite comprendre ce qui ne va pas.

Tatayo.

P.S. je constate souvent que cet outil est assez méconnu, et très peu utilisé. Pourtant il est d'une grande aide quand on ne comprend pas ce qu'il se passe dans le code, car il permet de suivre pas à pas le déroulement du code pendant l'exécution, de scruter le contenu des variables, les valeurs retournées par les fonctions Windev...

**Raptor92** · 02/04/2016, 17h16

Bonjour

Je reconnais volontiers ne plus voir ce qui devrait être évident
J'ai modifié le code en fonction des explications, la boucle s'arrête mais ne passe pas à la ligne suivante

Un petit guidage ....

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
 
// Déclaration des variables
//-- On ouvre le fichier
// Indication du chemin d'ouverture d'un fichier externe
IdFichier = fOuvre("C:\WD_DATA\Surveillance_Zones.csv",foLectureEcriture)
SI IdFichier <> -1 ALORS
	// Lecture d'une ligne dans ce fichier
	Reslecture = fLitLigne(IdFichier)
		TANTQUE Reslecture <> EOT  ET Reslecture <> "" 
		//-- On insert les données dans la table pour affichage et création de l'état
		Trace("INSERT INTO Surveillance_Zones (NOM,HORODATAGE,SERVICE,LIEU_RASSEMBLEMENT) VALUES ('"+ExtraitChaîne(Reslecture,1,";")+"','"+ExtraitChaîne(Reslecture,2,";")+"','"+ExtraitChaîne(Reslecture,3,";")+"','"+ExtraitChaîne(Reslecture,4,";")+"') ")
		SI PAS HExécuteRequêteSQL(Requete1, hRequêteSansCorrectionHF,...
		"INSERT INTO Surveillance_Zones (NOM,HORODATAGE,SERVICE,LIEU_RASSEMBLEMENT) VALUES ('"+ExtraitChaîne(Reslecture,1,";")+"','"+ExtraitChaîne(Reslecture,2,";")+"','"+ExtraitChaîne(Reslecture,3,";")+"','"+ExtraitChaîne(Reslecture,4,";")+"') ") ALORS
		Erreur(HErreurInfo(hErrComplet))
		SINON
		Reslecture = fLitLigne(IdFichier)	
		FIN
		FIN	
	FIN

**tatayo** · 03/04/2016, 07h30

Ce n'est toujours pas cà

...
Ici tu ne lis la ligne suivante que si la requête se passe bien.
Mais dans le cas contraire, que ce passe t'il ? Tu boucles en permanence avec la même ligne => boucle infinie.
De plus, s'il n'y a pas d'erreur, ta boucle s'arrête à la première ligne blanche. Est-ce voulu ?

Maintenant pour savoir ce qu'il se passe "réellement", je persiste: pose un point d'arrêt sur la première ligne, et trace le code pas à pas en regardant le contenu des variables (surtout ResLecture).

Tatayo.

**Raptor92** · 03/04/2016, 10h26

Bonjour Tatayo

Mon soucis est bien là, c'est que cela ne lit que la première ligne

Reslecture = ""

**tbc92** · 03/04/2016, 11h57

Dans un code correctement indenté,il n'y a JAMAIS 2 lignes 'FIN' alignées comme dans ton code (lignes 17 et 18).
Utilises l'outil 'Code / Réindentation automatique' ou quelque chose comme ça pour indenter ton code.

Un code mal indenté est illisible, même pour un expert. Alors pour un débutant !!!

Et quand ton code sera correctement indenté, tu pourras commencer à réfléchir.

**Raptor92** · 03/04/2016, 13h38

Avoir un soucis n'est à mon sens pas une tare ou un problème, mais juste une réflexion

Je côtoie de membres comme Tatayo depuis longtemps et j'aime le fait qu'il ne résolve pas mes soucis mais m'oblige à aller au delà de mes connaissances
Mais jamais, personne ne manque de respect par l'utisisation d'un ton supérieur
Je ne vous ai pas attendu pour réfléchire

**Raptor92** · 03/04/2016, 14h18

Cher Tatayo

Je comprends tout à fait ce que tu m'explique, mais ne vois pas pas la mise en application
Je continue à chercher et comprendre ou se trouve mon erreur

Merci pour tes remarques

**Raptor92** · 03/04/2016, 17h28

J'ai l'impression que mon soucis vient moins de mon code que du fait que le fichier csv n'aime par le RC comme saut de ligne
Pour le moment, je sèche

**serendib** · 03/04/2016, 17h33

Envoyé par Raptor92

Cher Tatayo

Je comprends tout à fait ce que tu m'explique

Perso j'ai pas l'impression !

Quand à tes remarques à l'encontre de tbc92, tu n'étais pas obligé.

Mais tu vas finir par tourner en rond si tu ne suis pas les conseils de ton "cher tatayo".
Qui, sur le coup, est d'une patiente ....

**serendib** · 03/04/2016, 17h34

Envoyé par Raptor92

J'ai l'impression que mon soucis vient moins de mon code que du fait que le fichier csv n'aime par le RC comme saut de ligne
Pour le moment, je sèche

Si, si, ça vient de ton code.
Tu es de Brest ou de Concarneau ?

**Raptor92** · 03/04/2016, 17h43

Du Guilvinec
Et pour la remarque, je pense que si
J'ai trop de respect pour ceux qui à mon égard ont comme du dit de la patience pour accepter une remarque désobligeante

Ceci dit, vous avez nul doute raison, il me faut réfléchir et trouver...

**tatayo** · 03/04/2016, 19h04

Pour trancher sur le problème de contenu, c'est tout simple: il suffit de charger le texte en une fois dans une variable de type chaine, et de regarder ce que le débogueur de WinDev affiche (il accepte les caractères de contrôle).
J'ai déjà eut des surprises avec des fichiers textes, dont le séparateur de ligne n'était pas le bon.
Tu peux aussi revoir ton code ainsi:

Charger le contenu du fichier (voir les fonctions f*)
Boucler sur cette chaine avec une boucle POUR TOUT (c'est bien expliqué dans l'aide) pour lire chaque ligne

C'est une méthode que je trouve plus clair, et elle permet d'indiquer le séparateur de ligne à utiliser. Mais attention à la taille du fichier à lire...

Tatayo.

**Raptor92** · 03/04/2016, 19h10

Merci Tatayo
Je vais revoir mon code selon tes conseils
Et reviendrais te dire si j'ai réussi, ce dont je en devrais pas douter avec ces conseils
Bien à toi

**tbc92** · 03/04/2016, 19h36

Tu peux refaire tout le code, en passant par des pour tout.
Pourquoi pas.

Tu aurais pu aussi lire le message de Hemgé d'il y a plus de 10 jours qui t'expliquait clairement pourquoi ça ne marchait pas. Et tu aurais pu aussi essayer d'indenter le programme, comme cela a déjà été dit.
En suivant ces conseils, tu aurais dû trouver le bug en moins de 5 minutes.

**Raptor92** · 03/04/2016, 20h11

J'adore les donneurs de leçon
Il me montre la voix de ce qu'il ne faut jamais faire ou aller
A mon age, je tente encore d'apprendre et veille au respect de chacun sans jamais devenir médiocre
C'est ce à quoi je veille à chaque instant

Bonne soirée

Problème sur Import CSV

WinDev

Discussions similaires

Partager

Partager