Spliter un document texte
Bonjour à tous, je ne trouve pas de discussion a ce sujet...
J'ai script qui lit un fichier texte qui a cette forme :
c:\fichier.txt :
Michel:Dupont:0189093434:9 aller de truc muche:consultant
J'aimerais avoir chaque champs dans des variables..
Mon script vbs :
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
|
'<<<<<<< LECTURE d'un fichier >>>>>>>>>>>>
'déclaration file system object
Dim fso
'instanciation
Set FSO = CreateObject("Scripting.FileSystemObject")
'on instance le fichier texte
Set Ftxt = FSO.OpenTextFile("c:\fichier.txt")
'on parcours chaque ligne du fichier texte
Do While Not Ftxt.AtEndOfStream
MaVariable = Ftxt.Readline
'....... <- votre code ici pour traiter chaque ligne
MsgBox MaVariable
Loop
Ftxt.Close |