Csv vers tableau

Bonjour a vous,

voila ce que je souhaiterai faire en vbs :

J ai un fichier csv de la forme suivante :

Toto/maison/rouge/150000/rien/cbr0024
Titi/voiture/bleu/20000/utilitaire/vds0047
tata/rien/neuf/10000cfa/meuble/vds0175
...

Je souhaiterai passer le csv dans un tableau.

Ce qui me permetterai de faire la recherche suivante :

recherche de : Nom_user = titi

--> recherche dans le tableau.

placer la correspondance de titi dans des variables :

option1 = voiture
option2 = bleu
option3 = 20000
option4 = utilitaire
option5 = vds0047


Je ne m y connait vraiment peu en vbs

seul base que j ai trouvé etant :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

'Function csv_to_table(C:\Temp\base_deploiement.csv)   Set FSO = CreateObject("Scripting.FileSystemObject") Set File = FSO.OpenTextFile(C:\Temp\base_deploiement.csv, 1)   intSize = 0   Do Until File.AtEndofStream strNextLine = File.ReadLine If InStr (strNextLine, ",") Then ReDim Preserve arrTxtArray(intSize) arrTxtArray(intSize) = strNextLine intSize = intSize +1 End If Loop csv_to_table = arrTxtArray   End Function

---

J'ai du faire pas mal d'erreur dans la fonction pour mettre le csv dans un tableau...

Une aide serait vraiment trés appréciée.

Merci d'avance.

Re,

J ai voulu faire un petit test dans un script a part pour juste incrémenter un tableau avec un fichier "testmachin.csv" se trouvant dans c:\temp

fichier testmachin.csv :

user/objet/etat/prix/infos/code
Toto/maison/rouge/150000/rien/cbr0024
Titi/voiture/bleu/20000/utilitaire/vds0047
tata/rien/neuf/10000cfa/meuble/vds0175

(bien entendu les "/" sont des "," dans le fichier)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

On Error Resume Next   Dim fso, fCsv, tb   Const ForReading = 1 Set fso = CreateObject("scripting.filesystemobject") Set fCsv = fso.OpenTextFile("c:\temp\testmachin.csv", ForReading) ' lecture ligne d'entête     If Not fCsv.AtEndOfStream Then fCsv.ReadLine While Not fCsv.AtEndOfStream tb = Split(fCsv.ReadLine, ",") If UBound(tb) = 5 Then WScript.Echo "user : " & tb(0) & " objet :" & tb(1) & " etat :" & tb(2) & " prix:" & tb(3) & " info :" & tb(4) & " prix :" & tb(5) End If Wend

---

En l'executant rien ne s'affiche :(

bonjour,

que donne cette ligne ?

Code:

---

1 2 3

tb = Split(fCsv.ReadLine, ",") wscript.echo Ubound(tb) If UBound(tb) = 5 Then

---

Bonjour a tous,

Alors pour les interessés voici le bout de code permettant d'ouvrir un csv puis de le placer dans un tableau a 2 dimensions afin d'effectuer des traitements dessus.

cela est peut être structuré d'une manière pas trés catholique mais ca marche !

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

'Importation CSV vers tableau 2 dimensions Dim fso, fCsv   Redim MonTableau(4,0) MonTableau(0,0) = "" 'redim MonTableauTemporaire   dim MaLigne : MaLigne = ""   Const ForReading = 1   Set fso = CreateObject("scripting.filesystemobject") Set fCsv = fso.OpenTextFile("C:\Temp\testbase.csv", ForReading)   While Not fCsv.AtEndOfStream MaLigne = fCsv.ReadLine Wscript.echo "lecture ligne : " & MaLigne MonTableauTemporaire = Split (MaLigne,",")   if MonTableau(0,0) <> "" then redim preserve MonTableau(4,Ubound(MonTableau,2)+1) for i = 0 to 4 Wscript.echo MonTableauTemporaire(i) MonTableau(i,Ubound(MonTableau,2)) = MonTableauTemporaire(i) next   Wend

---

Voila j'èspère que ca aidera certaines personnes.

:ccool: