Discussion :

[blyonnet]

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 :

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

[blyonnet]

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 :

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

[omen999]

bonjour,

que donne cette ligne ?

Code :

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

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

[blyonnet]

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 :

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