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