mohax007
Messages postés13Date d'inscriptionmercredi 8 juin 2005StatutMembreDernière intervention25 juillet 2005
-
15 juil. 2005 à 10:40
jpleroisse
Messages postés1788Date d'inscriptionmardi 7 novembre 2000StatutMembreDernière intervention11 mars 2006
-
17 juil. 2005 à 14:23
bonjour a tous je suis debutant en vbscript j ai voulu faire un bout de
script me permettant la Lecture d'un fichier texte au format CSV
(champs séparés par points-virgules). et je souhaite afficher le
contenu de mon de mon fichier pour tester si il fonctionne bien mais j
ai un bug et je ne sais pas pourquoi est ce quelqu un pourrait
voir le code ci dessous et me dire d ou vien le Pb.merci
dim s
dim s2
dim fields
dim fso
Const ForReading=1
'Lecture d'un fichier texte au format CSV (champs séparés par points-virgules)
set fso = CreateObject("Scripting.FileSystemObject")
set f = fso.GetFile(filename)
set ts = f.OpenAsTextStream(ForReading, TristateUseDefault)
set f2 = fso.GetFile(test)
set ts2 = f.OpenAsTextStream(Forwriting, TristateUseDefault)
jpleroisse
Messages postés1788Date d'inscriptionmardi 7 novembre 2000StatutMembreDernière intervention11 mars 200627 17 juil. 2005 à 14:23
Bonjour,
N'utilise pas fso pour ce genre de truc.Pour lire ton fichier.csv,
place un TextBox (propriété Multiligne à true et éventuellement mets
ScrollBar à Both, ou autres), un CommandButton et place ce code.
Private Sub Command1_Click()
Dim crlf, tout, texte
crlf = Chr(13) + Chr(10)
Open "C:\Mes documents\MonFichier.csv" For Input As #1