Discussion :

[_shuriken_]

Bonjour à tous,

Peut-être que le topic a déjà été traité ici, mais je me permet d'ouvrir celui parce que je ne reçois aucun message d'erreur par contre ma table ne se remplit pas.

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
30
31
32
33
34
35
sMonFichierEXPRESS est une chaîne
nLireLigne est une chaîne
nIdFichierEXPRESS est un entier
 
sMonFichierEXPRESS = "G:\Table_Agence.csv"
nIdFichierEXPRESS = fOuvre(sMonFichierEXPRESS)
 
//nLireLigne = nIDFichier 
SI nIdFichierEXPRESS<>-1 ALORS 
 
	VarSorti est un booléen = Faux // pour sortir de la boucle
	Erreur(ErreurInfo(errMessage))
 
	BOUCLE 
		nLireLigne = fLitLigne(nIdFichierEXPRESS)
		EXPRESS_Agence.IDAgence = ExtraitChaîne(nLireLigne, 2, ",")
		EXPRESS_Agence.LibelleAgence = ExtraitChaîne(nLireLigne,3,",")
		EXPRESS_Agence.IDEXPRESS_Banque = ExtraitChaîne(nLireLigne,4,",")
		HAjoute(EXPRESS_Agence)
 
		SI fLitLigne(nIdFichierEXPRESS) = EOT ALORS 
			VarSorti = Vrai
		FIN
 
		// Doit-on sortir de la boucle
		SI VarSorti = Vrai ALORS SORTIR
 
	FIN	
 
	Info ("Insertion éffectuée avec succès !!!!")
	fFerme(nIdFichierEXPRESS)
SINON
	Info("Insertion non éffectuée, réverifiez le code")
	fFerme(nIdFichierEXPRESS)
FIN

Quelqu'un a une idée sur ce problème ?

[frenchsting]

1. Essaye le mode test et mets des points d'arrêt.
2. Y'a t'il un message d'erreur ?
3. Quelle version de Windev utilises tu ?

Tu peux simplifier ton 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
sMonFichierEXPRESS, sContenu, sUneligne sont des chaines
i est un entier = 0
 
sMonFichierEXPRESS = "G:\Table_Agence.csv"
sContenu=fchargetexte(sMonFichierEXPRESS)
//nLireLigne = nIDFichier 
Pour tout sUneligne de sContenu separe par rc
	EXPRESS_Agence.IDAgence = ExtraitChaîne(sUneligne , 2, ",")
	EXPRESS_Agence.LibelleAgence = ExtraitChaîne(sUneligne ,3,",")
	EXPRESS_Agence.IDEXPRESS_Banque = ExtraitChaîne(sUneligne ,4,",")
	HAjoute(EXPRESS_Agence)
	i++
 FIN	
 
Info ("Traitement terminé !!!!", numeriqueversChaine(i) + " lignes enregistrées")

Essaye avec mon code (à peaufiner car fait à l'arrache)

[_shuriken_]

Bonjour frenchsting,

1. Essaye le mode test et mets des points d'arrêt.
2. Y'a t'il un message d'erreur ?

Idem pour 1, et pas de message d'erreur.

3. Quelle version de Windev utilises tu ? : La 19.

J'aimerai pouvoir effectuer ce test pour ensuite générer à partir de ma table un fichier texte.

J'ai adapté ton code, mais un problème avec la boucle.

[serendib]

Bien entendu, tu es sûr que le séparateur est une virgule.
Juste comme ça.

[_shuriken_]

Bien entendu, tu es sûr que le séparateur est une virgule.
Juste comme ça.

Oui, c'est bien une virgule.

J'ai supprimer la 1ère colonne qui contient les noms des champs et commencer la lecture à la 1ère ligne.

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
 
sMonFichierEXPRESS, sContenu, sUneligne sont des chaînes
i est un entier = 0
 
sMonFichierEXPRESS = "G:\Table_Agence.csv"
sContenu=fChargeTexte(sMonFichierEXPRESS)
//nLireLigne = nIDFichier 
POUR TOUT sUneligne DE sContenu separe par RC
	EXPRESS_Table_Agence.Code_agence = ExtraitChaîne(sUneligne , 1, ",")
	EXPRESS_Table_Agence.Libelle = ExtraitChaîne(sUneligne ,2,",")
	EXPRESS_Table_Agence.Code_banque = ExtraitChaîne(sUneligne ,3,",")
	EXPRESS_Table_Agence.Express_Version = ExtraitChaîne(sUneligne,4,",")
	HAjoute(EXPRESS_Table_Agence)
	i++
FIN	
 
Info ("Traitement terminé !!!!", NumériqueVersChaîne(i) + " lignes enregistrées")

Il me dit que :

Code :

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

"par" est un mot clé du WLangage, son utilisation dans ce cas est incorrect

J'ai fait 2 boutons : Charger_CSV et Creer_TXT.

[frenchsting]

J'ai fait une erreur en tapant mon code :

Code :

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

POUR TOUTe CHAINE  sUneligne DE sContenu separe par RC

Cela devrait mieux fonctionner...