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 : 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
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