Discussion :

[boboss76]

Bonsoir

Voici mon problème
J'ai un fichier csv qui a la forme suivante:
14/07/2012;22:00;21.3;19.4;21.3;9.9;-24.4;21.2;21.7;21.1
14/07/2012;22:05;21.3;19.4;21.3;9.9;-24.4;21.2;21.6;21.1
14/07/2012;22:10;21.3;19.5;21.3;9.9;-24.4;21.2;21.6;21.1
14/07/2012;22:15;21.3;19.5;21.3;9.9;-24.4;21.2;21.6;21.1
14/07/2012;22:20;21.4;19.5;21.3;9.9;-24.4;21.2;21.7;21.1
14/07/2012;22:25;21.4;19.5;21.3;9.9;-24.4;21.2;21.9;21.1
14/07/2012;22:30;21.4;19.5;21.2;9.9;-24.4;21.2;21.9;21.1
14/07/2012;22:35;21.4;19.5;21.2;9.9;-24.4;21.2;21.8;21.1
14/07/2012;22:40;21.4;19.5;21.2;9.9;-24.4;21.2;21.7;21.1
14/07/2012;22:45;21.4;19.5;21.2;9.9;-24.4;21.2;21.7;21.2
14/07/2012;22:50;21.4;19.5;21.2;9.9;-24.4;21.2;21.7;21.2
14/07/2012;22:55;21.4;19.5;21.2;9.9;-24.4;21.2;21.6;21.2
14/07/2012;23:00;21.4;19.4;21.2;9.9;-24.4;21.2;21.6;21.2
14/07/2012;23:05;21.4;19.4;21.2;9.9;-24.4;21.3;21.6;21.2
14/07/2012;23:10;21.4;19.4;21.2;9.9;-24.4;21.3;21.6;21.2
14/07/2012;23:15;21.4;19.4;21.2;9.9;-24.4;21.3;21.5;21.2
14/07/2012;23:20;21.3;19.4;21.2;9.9;-24.4;21.3;21.5;21.2
14/07/2012;23:25;21.3;19.4;21.1;9.9;-24.4;21.3;21.4;21.2
14/07/2012;23:30;21.3;19.3;21.2;9.9;-24.4;21.3;21.4;21.2
14/07/2012;23:35;21.3;19.3;21.1;9.9;-24.4;21.3;21.4;21.1
14/07/2012;23:40;21.3;19.3;21.1;9.9;-24.4;21.4;21.4;21.1
14/07/2012;23:45;21.2;19.3;21.1;9.9;-24.4;21.4;21.4;21.1
14/07/2012;23:50;21.2;19.3;21.1;9.9;-24.4;21.4;21.3;21.1
14/07/2012;23:55;21.2;19.3;21.1;9.9;-24.4;21.4;21.3;21
15/07/2012;00:00;21.2;19.3;21.1;9.9;-24.4;21.4;21.3;21
15/07/2012;00:05;21.1;19.3;21.1;9.9;-24.4;21.4;21.3;21
15/07/2012;00:10;21.1;19.2;21;9.9;-24.4;21.4;21.2;21.1
15/07/2012;00:15;21.1;19.2;21;9.9;-24.4;21.4;21.2;21.1
15/07/2012;00:20;21.1;19.2;21;9.9;-24.4;21.4;21.2;21.1
15/07/2012;00:25;21.1;19.2;21;9.9;-24.4;21.4;21.2;21.1
15/07/2012;00:30;21.1;19.2;21;9.9;-24.4;21.4;21.2;21.1
15/07/2012;00:35;21.1;19.2;21;9.9;-24.4;21.4;21.1;21.1
15/07/2012;00:40;21.1;19.2;20.9;9.9;-24.4;21.4;21.1;21.1

Ce fichier commence au 01/07/2012
Nous sommes aujoud'hui le 15/07/2012
et j'ai besoin de me placer sur la première ligne du 15/07/2012 à 00:00

Pour cela j'ai écrit ce bout de script

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
  Set fso = CreateObject("scripting.filesystemobject")
  Set fCsv = fso.OpenTextFile(strDirectory & strFile, ForReading)
  'msgbox(date())
   tbf=Split(fCsv.ReadLine,";")
   msgbox(tbf(0)&"--"& date())
  Do While tbf(0)<>date()
            'fCsv.Readline
          tbf=Split(fCsv.ReadLine,";")
 
 
 Loop
 
   msgbox(tbf(0)& tbf(1))

Mais il ne fonctionne pas.
Merci de votre aide

[hackoofr]

Testez ce

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Const ForReading = 1
Dim fso,f
Titre ="Extraction des données dans un fichier CSV"
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("c:\fcsv.csv", ForReading)
st=f.ReadAll
Ligne = split(st,vbcrlf)
MsgBox Ligne(24),64,Titre
elem=split(Ligne(24),";")
MsgBox  elem(0) & vbcr & elem(1) & vbcr & elem(2) & vbcr & elem(3) &_
        vbcr & elem(4) & vbcr & elem(5) & vbcr & elem(6) & vbcr &_
        elem(8) & vbcr & elem(9),64,Titre