Eclater le contenu d'un ".csv" dans un tableau

Version imprimable

Bonjour,

Je bataille depuis hier pour éclater le contenu d'un fichier "csv" dans un tableau afin de pouvoir le réorganiser pour l'importer dans une base de donnée.

Voici le code que j'ai pondu, celui-ci éclate bien le contenu dans un tableau mais seulement pour la dernière ligne...
La boucle "For i = 0 to 6" Correspond au nombre d'information par ligne en l'occurence ici 7.
La boucle "For j = 0 to 5" Correspond au nombre de ligne ici 5.
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 41 42 43 44 45 46 47 48 49 50 Dim objFso: Set objFso = CreateObject("Scripting.FileSystemObject") Const ForReading = 1, ForWriting = 2 Dim FinalTab(5,6) Set ExportFile = objFso.OpenTextFile(".\Src\Productkey\ExportBrut.txt", ForReading) While Not ExportFile.AtEndOfStream Dim Line : Line = ExportFile.ReadLine Dim TabExport : TabExport = split(Line,",") For i = 0 to 6 For j = 0 to 5 FinalTab(j,i) = TabExport(i) Next Next Wend ExportFile.Close Wscript.echo "de 0,0 a 0,6" Wscript.echo FinalTab(0,0) Wscript.echo FinalTab(0,1) Wscript.echo FinalTab(0,2) Wscript.echo FinalTab(0,3) Wscript.echo FinalTab(0,4) Wscript.echo FinalTab(0,5) Wscript.echo FinalTab(0,6) Wscript.echo "" Wscript.echo "" Wscript.echo "de 1,0 a 1,6" Wscript.echo FinalTab(1,0) Wscript.echo FinalTab(1,1) Wscript.echo FinalTab(1,2) Wscript.echo FinalTab(1,3) Wscript.echo FinalTab(1,4) Wscript.echo FinalTab(1,5) Wscript.echo FinalTab(1,6) Wscript.echo "" Wscript.echo "" Wscript.echo "de 2,0 a 2,6" Wscript.echo FinalTab(2,0) Wscript.echo FinalTab(2,1) Wscript.echo FinalTab(2,2) Wscript.echo FinalTab(2,3) Wscript.echo FinalTab(2,4) Wscript.echo FinalTab(2,5) Wscript.echo FinalTab(2,6) Wscript.echo "" Wscript.echo ""
En retour j'ai ceci:
Dans le tableau, FinalTab(0,0) , FinalTab(1,0) et FinalTab(2,0) contiennent la même chaine etc.

Voila si quelqu’un veux bien m'aider... :)

Bonjour,

Voici comment je ferais pour obtenir le résultat que tu veux :
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 Const FOR_READING = 1 Dim objFso, objExportFile, strLine, arrExport, FinalTab(3,3) Set objFso = CreateObject("Scripting.FileSystemObject") Set objExportFile = objFso.OpenTextFile(".\a.txt", FOR_READING) i = 0 Do Until objExportFile.AtEndOfStream strLine = objExportFile.ReadLine arrExport = split(strLine,",") For j = 0 to UBound(arrExport) FinalTab(i,j) = arrExport(j) Next i = i + 1 Loop objExportFile.Close Wscript.echo "de 0,0 a 0,2" Wscript.echo FinalTab(0,0) Wscript.echo FinalTab(0,1) Wscript.echo FinalTab(0,2) Wscript.echo "" Wscript.echo "de 1,0 a 1,2" Wscript.echo FinalTab(1,0) Wscript.echo FinalTab(1,1) Wscript.echo FinalTab(1,2) Wscript.echo "" Wscript.echo "de 2,0 a 2,2" Wscript.echo FinalTab(2,0) Wscript.echo FinalTab(2,1) Wscript.echo FinalTab(2,2) Wscript.echo ""
Les tests faits avec un csv plus petit :
Code:

1 2 3 A,b,C d,E,f G,h,I
Ce code suffira si la taille de ton CSV est fixe (nombre de ligne et nombre de colonnes), mais si ce n'est pas le cas tu auras des buffer overflow dès que le nombre des données dépassera la taille de ton tableau tel que le script est écrit...

Si le fichier CSV est de taille variable, Il faudra redimensionner te tableaux de manière dynamique (voir "ReDim Preserve" dans la doc vbscript).

Bonne continuation.

30/08/2011, 17h12
ghe69140

Salut,

Merci pour la solution que tu apportes, ca m'a bien dépanner.

Pour la taille du fichier "csv", en effet son nombre de ligne est variable mais ne devrait pas dépasser les 15 lignes. Du coup j'avais prévu d'initialiser un tableau "Max" assez grand genre:

Code:

Dim FinalTab(20,20)

De toute facon derère je fait un boucle For par rapport au nombre de ligne pour renseigner un nouveau fichier "csv". La boucle For récupère le nombre de ligne et agit en fonction pour ne pas parcourir tout le tableau et les case vide. C'est pas très joli mais sa fonctionne bien.

Merci encore.

OK.

Pour faire moins moche, et juste au cas ou ça t'intéresse, voici une méthode pour le faire de manière dynamique, sans avoir à te soucier de la taille de ton fichier d'entrée :

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
Const FOR_READING = 1
Dim objFso, objExportFile, strLine, arrExport, arrFinalTab
 
Set objFso = CreateObject("Scripting.FileSystemObject")
Set objExportFile = objFso.OpenTextFile(".\a.txt", FOR_READING)
 
i = 0
ReDim arrFinalTab(i)
Do Until objExportFile.AtEndOfStream
	ReDim Preserve arrFinalTab(i)
	arrFinalTab(i) = split(objExportFile.ReadLine,",")		
	i = i + 1
Loop
objExportFile.Close
 
i = 1
For Each arrTmp In arrFinalTab
	WScript.Echo "Line " & i
	For Each strTmp In arrTmp
		WScript.Echo vbTab & strTmp
	Next
	Wscript.echo ""
	i = i + 1
Next

Bonne continuation.

30/08/2011, 17h50
ghe69140
Le tout servi sur un plateau, :). Je vais regardé plus en détail parce-que je ne comprend pas tout ^^, demain si j'ai le temps. J'ai un autre script à mettre à jour quitte à refaire autant faire bien et tout comprendre.

Encore Merci.

[EDIT]
Salut,

Alors j'ai analysé un peu ton code, mais je ne vois pas trop comment faire pour sélectionner seulement les informations du tableau que je souhaite rediriger vers le nouveau fichier. Je m'explique, au final pour pouvoir réorganiser mon "csv" je fait ainsi:

Citation:

Wscript.Echo FinalTab(k,0) & ";" & FinalTab(k,2)

Ca me permet de sectionner uniquement ce que je veux rediriger vers mon fichier.

Avec ton nouveau code je ne peux pas car les infos sont présentes uniquement dans cette boucle si j'ai bien compris:
Code:

1 2 3 4 5 6 7 8 9 For Each arrTmp In arrFinalTab WScript.Echo "Line " & i For Each strTmp In arrTmp WScript.Echo vbTab & strTmp Next Wscript.echo "" i = i + 1 Next
A plus.