Fichier CSV: export sélectif de colonnes

Version imprimable

Bonjour à tous
voici mon problème:
j'ai un fichier texte dont les colonnes sont séparées par le symbole ; et les enregistrements par un retour chariot.
Le fichier comporte une vingtaine de colonnes de différentes longueurs.
Ex:
Code:

1 2 3 17;13/01/2013;07:30;06;Automate06;Jeff Scott;20/01/2013;09:17;01;Quart1;Poste3;22.30;444-56;Lub;15W40;2365;1;-1;3316;111111111; 18;13/01/2013;07:30;02;AUtomate02;Alice Martin;20/01/2013:09:17;Quart1;Poste5;145.77;444-12;Lub;Quartz7000;2370;0;-1;3316;111111111;
J'aimerais exporter de façon sélective une dizaine de colonnes séparées par ; sans utiliser les fichiers HyperfileSQL.
Ex:
Code:

1 2 3 13/01/2013;07:30;Automate06;Jeff Scott;Quart1;Poste3;22.30;Lub;15W40;3316; 13/01/2013;07:30;AUtomate02;Alice Martin;Quart1;Poste5;145.77;Lub;Quartz7000;3316;
Merci d'avance pour votre aide.

21/05/2014, 08h01
Simeonn

Salut,

Je ne sais pas si j'ai bien compris et j'écris à la volée mais tu pourrais faire des ExtraitChaine() sur les bouts qui t'intéressent et les séparer par des ";"
21/05/2014, 10h54
Hemgé

Bonjour,

Vous avez la suggestion de Simeonn.

Vous pourriez également
- faire une requête sur le fichier texte
- affecter le résultat de cette requête à une Table Mémoire (voir FichierVersTableMémoire), si le volume n'est pas prohibitif pour une Table Mémoire
- [EDIT] ou utiliser ConstruitTableFichier comme le propose Tatayo dans une autre discussion
- exporter les colonnes qui vous intéressent

Bonne journée

Hemgé

Bonjour,

@Simeonn:
merci pour le tuyau. Si j'ai bien compris le code ressemblera à ceci:
Code:

1 2 3 4 5 6 7 : sCheminFichier="E:\OUTPUT.TXT" sContenuFichier=fChargeTexte(sCheminFichier) Sablier(Oui) POUR TOUTE CHAÎNE sLigne DE sContenuFichier SEPAREE PAR RC SI sLigne = "" ALORS RETOUR ExtraitChaîne(sLigne, 2, ";")+";"+ExtraitChaîne(sLigne, 3, ";")+";"+ExtraitChaîne(sLigne, 5, ";")+";"+ExtraitChaîne(sLigne, 6, ";")+";"+ExtraitChaîne(sLigne, 10, ";")+";"+ExtraitChaîne(sLigne, 11, ";")+";"+ExtraitChaîne(sLigne, 12, ";")+";"+ExtraitChaîne(sLigne, 14, ";")+";"+ExtraitChaîne(sLigne, 15, ";")+";"+ExtraitChaîne(sLigne, 19, ";")+";"
mon seul hic est comment maintenir ce code en cas de changement de colonnes à exporter?

@Hemgé:
Comment je fais pour effectuer une telle requête sur un fichier texte?

Merci à tous.

21/05/2014, 14h25
Simeonn

Si t'es sûr que ton fichier ne contiendra pas de ligne vide en plein milieu oui, sinon, je mettrais plutôt un :

Code:

SI sLigne<>"" ALORS...

Pour les parties à garder, tu peux toujours stocker quelque part une liste des colonnes à garder (c'est pas propre mais c'est déjà une piste)
21/05/2014, 15h03
pobos

@Simeonn:

Il peut en effet arriver que certaines colonnes à exporter puisse comporter des vides.

Par stockage, fais tu allusion à un fichier INI?
22/05/2014, 08h23
Simeonn

Non non, pas des colones mais bien des lignes.
Tu fais ton POUR TOUT SEPAREE PAR RC et juste après SI ="" alors RETOUR.
Du coup, si il y a une ligne qui se retrouve vide, il quitte la boucle.

Citation:

Envoyé par pobos

@Hemgé:
Comment je fais pour effectuer une telle requête sur un fichier texte?

Euh .. Oublions cela

En compensation, voici un traitement (pas complètement testé) propre et qui peut facilement être transformé en routine moyennant quelques paramètres.

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
39
40
sFichierSéparateur est une chaîne = ";" 
sFichierChemin est chaîne = "E:\OUTPUT.TXT" 
tabFichierExportColonne est tableau d'entiers = [1, 4, 5, 7, 11]  //soit le no des colonnes à exporter dans le fichier à traiter 
//on peut remanier leur ordre pour changer l'ordre d'export dans le fichier CSV 
//en fait saisir la liste, cochez un sélecteur etc 
sExportCVS est une chaîne //résultat à exporter
nNoFichier est un entier = fOuvre(sFichierChemin) 
sLigneCSV est une chaîne
SI nNoFichier <> -1 ALORS 
	sLigneCSV = fLitLigne(nNoFichier) //on lit un enregistrement pour compter le nombre de colonnes du fichier à traiter
	fFerme(nNoFichier) 
SINON 
	//
FIN 
//Tester EOT ou sLigneCSV = ""(erreur)
sFichierContenu est une chaîne = fChargeTexte(sFichierChemin) 
nFichierNbCol est un entier = ChaîneOccurrence(sLigneCSV, sFichierSéparateur)  + 1 
nNbColCSV est un entier = Dimension(tabFichierExportColonne) // Nombre de colonnes à exporter 
//contrôler que aucun numéro de colonne à traiter n'est supérieur à nFichierNbCol, nombre de colonnes du fichier à traiter
 
nLigneNo est un entier 
tabTableauCSV est un tableau de 0 par nNbColCSV chaînes //Tableau pour l'export 
 
Sablier(Oui) 
POUR TOUTE CHAÎNE sLigne DE sFichierContenu SEPAREE PAR RC 
	SI SansEspace(sLigne) <> "" ALORS 
		nLigneNo = TableauAjouteLigne(tabTableauCSV) //si on décide de sauter les lignes vides
		//sinon nLigneNo = compteur dans le POUR TOUTE CHAINE sLigne, supra 
		POUR TOUT ColExportNo, ColNo de tabFichierExportColonne //on n'extrait que les colonnes à exporter 
			tabTableauCSV[nLigneNo, ColNo] = ExtraitChaîne(sLigne, ColExportNo, sFichierSéparateur) 
		FIN
	SINON
		// traiter la ligne vide
	FIN 
 
FIN
 sExportCVS = TableauVersCSV(tabTableauCSV) 
 SI sExportCVS <> "" ALORS
 	//écrire 
 FIN

Vous pourriez également développer un traitement plus interactif et plus visuel :

alimenter une Table,
sélectionner les colonnes à ne pas exporter et les cacher (par ex. double-clic sur une colonne la cache, prévoir un bouton pour réafficher touts les colonnes en cas d'erreur)
TableVersTexte [Edit] les colonnes cachées ne sont pas converties, sauf usage de la constante taAvecColonnesInvisibles
écrire dans le fichier

Bonne fin de semaine

Hemgé

25/05/2014, 17h29
pobos

Bonjour,

@Hemgé: je viens de tester ton code et ça marche plutôt bien.

merci Hemgé.

merci à tous.

bonne soirée.