CSV vers HyperFileSQL

Version imprimable

Bonjour tout le monde !

Tout est dans le titre, j'ai un fichier CSV contenant des lignes, dans chaque lignes il y a les champs d'une table HyperFileSQL.

Je souhaite rajouter dans ma table les info contenu dans le .csv

J'ai fait le tour de je ne sais pas combien de forum ou je me suis rendu compte que beaucoup de personnes on eu le même souci.

Sauf que je n'ai réussis a appliquer aucunes solutions à mon cas.

Voici mon code :

Code:

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
36
37
38
 
idfic est un entier 
i est un entier 
// Ouverture d'un fichier externe
idfic = fOuvre("C:\Users.....\mon_fichier.csv", foLectureEcriture)
SI idfic<>-1 ALORS 
	LitLigne est une chaîne = fLitLigne(idfic)
	VarSorti est un booléen = Faux // pour sortir de la boucle	
	TANTQUE LitLigne<>EOT
		Trace(LitLigne)
		Trace(ExtraitChaîne(LitLigne, 1, ";"))
		Trace(ExtraitChaîne(LitLigne, 2, ";"))
		Trace(ExtraitChaîne(LitLigne, 3, ";"))
		Trace(ExtraitChaîne(LitLigne, 4, ";"))
		Trace(ExtraitChaîne(LitLigne, 5, ";"))
		Trace(ExtraitChaîne(LitLigne, 6, ";"))
		PaysRegionMagasin.IDPaysRegionMagasin = ExtraitChaîne(LitLigne, 5, ";")
		PaysRegionMagasin.Pays = "France"
		PaysRegionMagasin.Région = ExtraitChaîne(LitLigne, 3, ";")
		PaysRegionMagasin.Magasin = ExtraitChaîne(LitLigne, 2, ";")
		PaysRegionMagasin.Num_Magasin = ExtraitChaîne(LitLigne, 1, ";")
		PaysRegionMagasin.Login_Compte_test = "0"
		PaysRegionMagasin.latitude = "NULL"
		PaysRegionMagasin.longitude = "NULL"
		PaysRegionMagasin.latitude_precise = "NULL"	
		PaysRegionMagasin.longitude_precise = "NULL"
		PaysRegionMagasin.lat = ExtraitChaîne(LitLigne, 5, ";")
		PaysRegionMagasin.longi = ExtraitChaîne(LitLigne, 6, ";")
		HAjoute(PaysRegionMagasin)
		LitLigne = fLitLigne(idfic)
		i++
		Trace(i)		
	FIN		
	Trace ("c'est cool")
	fFerme(idfic)
SINON
	Trace("pas cool")
FIN

Cordialement
Laio

13/11/2013, 10h33
digi12

bonjour

et donc quel est le probleme exact ?
message d'erreur ?
la lecture du fichier csv ne se fait pas ?
l'ajout dans le fichier PaysRegionMagasin ne se fait pas ?

déjà il manque un test sur la clé unique avant l'ajout dans le fichier PaysRegionMagasin

merci de préciser
13/11/2013, 10h34
Yusep

Bonjour
Ce sujet m'a beaucoup aidé:

http://www.developpez.net/forums/d13...v-champ-table/

Bien, voila :

Quand je le lance, les traces ne m'affiche que le contenu de la premiére ligne.
De plus le dernier trace ne s'affiche pas, j'en déduis donc qu'il ne va pas jusque la.

J'ai enlevé le test d'handle sur le fichier car le souci n'est pas la, au vu de ce que m'affiche les trace.

Le souci viendrais plutôt de la partie ou l'on ajoute dans les champs de la table et/ou le changement de ligne.

Je n'ai AUCUNS messages d'erreur ou de compil.

Légère mise à jour :

Code:

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
36
37
38
 
idfic est un entier 
i est un entier 
// Ouverture d'un fichier externe
idfic = fOuvre("C:\Users\Alexi\Desktop\appli HTML\main_courante.csv", foLectureEcriture)
SI idfic<>-1 ALORS 
	LitLigne est une chaîne = fLitLigne(idfic)
	VarSorti est un booléen = Faux // pour sortir de la boucle	
	TANTQUE LitLigne<>EOT
		Trace(LitLigne)
		Trace(ExtraitChaîne(LitLigne, 1, ";"))
		Trace(ExtraitChaîne(LitLigne, 2, ";"))
		Trace(ExtraitChaîne(LitLigne, 3, ";"))
		Trace(ExtraitChaîne(LitLigne, 4, ";"))
		Trace(ExtraitChaîne(LitLigne, 5, ";"))
		Trace(ExtraitChaîne(LitLigne, 6, ";"))
		PaysRegionMagasin.IDPaysRegionMagasin = ExtraitChaîne(LitLigne, 5, ";")
		PaysRegionMagasin.Pays = "France"
		PaysRegionMagasin.Région = ExtraitChaîne(LitLigne, 3, ";")
		PaysRegionMagasin.Magasin = ExtraitChaîne(LitLigne, 2, ";")
		PaysRegionMagasin.Num_Magasin = ExtraitChaîne(LitLigne, 1, ";")
		PaysRegionMagasin.Login_Compte_test = "0"
		PaysRegionMagasin.latitude = "NULL"
		PaysRegionMagasin.longitude = "NULL"
		PaysRegionMagasin.latitude_precise = "NULL"	
		PaysRegionMagasin.longitude_precise = "NULL"
		PaysRegionMagasin.lat = ExtraitChaîne(LitLigne, 5, ";")
		PaysRegionMagasin.longi = ExtraitChaîne(LitLigne, 6, ";")
		HAjoute(PaysRegionMagasin)
		LitLigne = fLitLigne(idfic)
		i++
		Trace(LitLigne)		
	FIN		
	Trace ("c'est cool")
	fFerme(idfic)
SINON
	Trace("pas cool")
FIN

Et bien même les deux trace de fins :
Trace ("c'est cool")
Trace("pas cool")

ne s'affiche pas.

Voila en espérant avoir été plus clair

Cordialement
Laio