Discussion :

[christophe9117]

Bonjour,

je souhaiterai que toutes les données contenues dans un fichier txt soient importées dans une table, une colonne pour chaque donnée.

Cchaque donnée du fichier txt a comme séparateur ";".

Pour l'instant j'arrive à importer toutes les données dans la table mais toutes dans la même colonne...

J'essaie toutes les combinaisons possibles avec extraitchaine, mais sûrement pas la bonne... pouvez-vous m'aider svp...

voici mon code d'origine :

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
 
nIDFichier est un entier
sChaîneLue est une chaîne
 
// Ouverture du fichier
nIDFichier = fOuvre("G:\Applications\Habilitations\30042011.DEBITEUR_023.txt", foLecture)
SI nIDFichier <> -1 ALORS
 
	// Lecture du fichier
	sChaîneLue = fLitLigne(nIDFichier)
	TANTQUE sChaîneLue <> EOT
 
		TableAjouteLigne(TABLE_DONNEES,sChaîneLue)
		// sChaîneLue contient la chaîne lue
 
		sChaîneLue = fLitLigne(nIDFichier)
	FIN
 
	// Fermeture du fichier
	fFerme(nIDFichier)
	Info("Import terminé !")
SINON
	Erreur()
FIN

[hpascal]

Bonjour

Pour l'instant j'arrive à importer toutes les données dans la table mais toutes dans la même colonne...

Oui c'est exactement ce que tu fais
Avec TableAjouteLigne il faut spécifier les valeurs de chaque colonne

Code :

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

<Résultat> = TableAjouteLigne(<Nom de la table> [, <Élément colonne 1> [ ... [, <Élément colonne N>]])

Donc il faut décomposer les éléments de ta chaîne avec ExtraitChaine pour chaque colonne (ExtraitChaine(sChaîneLue, 1, ";") pour la 1ere valeur, etc ...)

Pour le faire avec une seule chaîne il faut utiliser TableAjoute et que le séparateur de valeurs soit la tabulation :

Code :

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

1
2
sChaîneLue = Remplace(sChaîneLue, ";", TAB)
TableAjoute(TABLE_DONNEES, sChaîneLue)

Attention, ça ne peut fonctionner que si les données en elles même ne contiennent pas de tabulation

[christophe9117]

Merci,

Je savais bien que je n'étais pas loin, mais il manquait ce petit je ne sais quoi...

le code 2 fonctionne nickel...

[hpascal]

Dans ce cas tu peux le simplifier :

Code :

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

1
2
3
4
5
6
 
sTexteFichier est une chaîne = fChargeTexte("G:\Applications\Habilitations\30042011.DEBITEUR_023.txt")
sTexte = Remplace(sTexteFichier, ";", TAB)
POUR TOUTE CHAINE sChaîneLue DE sTexteFichier SEPAREE PAR RC
   TableAjoute(TABLE_DONNEES, sChaîneLue)
FIN

[NetLandGim]

Tu peux aussi faire:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
maChaine est une chaine=fChargeTexte("montexte.txt")
xChaine est une chaine=extraitChaine(maChaine,rangPremier,";")
TANTQUE xChaine<>EOT
si xChaine<>""
 
  TableAjoute(maTable,xChaine)
   xChaine =extraitChaine(maChaine,rangSuivant,";")
FIN
 
FIN