problem lecture d un fichier texte !!

Question

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&#233;par&#233;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&#233;par&#233;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)



do while (Not ts.AtEndOfStream)

   s = ts.ReadLine

   fields = Split(s, ",")

   s2=ts2.writeline

loop

cs_SyS_ · Answer

Et si tu mettais dans un premier temps un point-virgule à la place d'une simple virgule dans ton split....???      
+++

jpleroisse · Answer

Bonjour,

N'utilise pas fso pour ce genre de truc.Pour lire ton fichier.csv,
place un TextBox (propri&#233;t&#233; Multiligne &#224; true et &#233;ventuellement mets
ScrollBar &#224; 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

Line Input #1, texte

tout = texte

If Len(tout) <> 0 Then

While Not EOF(1)

Line Input #1, texte

tout = tout + crlf + texte

Wend

End If

Text1.Text = tout

Close #1

End Sub



jpleroisse

Problem lecture d un fichier texte !!

2 réponses

Discussions similaires