Débutant avec les FSO
Résolu
lol733
Messages postés
19
Date d'inscription
mercredi 12 janvier 2005
Statut
Membre
Dernière intervention
18 novembre 2006
-
10 oct. 2005 à 11:24
raharez Messages postés 3 Date d'inscription lundi 10 octobre 2005 Statut Membre Dernière intervention 11 octobre 2005 - 10 oct. 2005 à 22:22
raharez Messages postés 3 Date d'inscription lundi 10 octobre 2005 Statut Membre Dernière intervention 11 octobre 2005 - 10 oct. 2005 à 22:22
1 réponse
raharez
Messages postés
3
Date d'inscription
lundi 10 octobre 2005
Statut
Membre
Dernière intervention
11 octobre 2005
10 oct. 2005 à 22:22
10 oct. 2005 à 22:22
Hello Gary;
c'est assez simple en fait...
L'algo consiste à lire ligne par ligne ton fichier et d'ecrire ces meme lignes dans un autre fichier.
dim fso as FileSystemObject
set fso = CreateObject("Scripting.FileSystemObject")
'ton fichier source
set srcFile = fso.OpenTextFile("chemin de ton fichier")
'ton fichier destination set destFile = fso.CreateTextFile("nom fichier avec son chemin", true)
dim currentLine as String
'maitenant tu lis ton fichier src ligne par ligne
Do While not srcFile.AtEndOfStream
currentLine = srcFile.ReadLine
'/* là tu fais ce que tu veux avec ta ligne
'...
' */
'puis ecriture ds le fichier destination
destFile.WriteLine currentLine
Loop
'fermeture des flux
srcFile.Close
destFile.Close
Voila, a++
c'est assez simple en fait...
L'algo consiste à lire ligne par ligne ton fichier et d'ecrire ces meme lignes dans un autre fichier.
dim fso as FileSystemObject
set fso = CreateObject("Scripting.FileSystemObject")
'ton fichier source
set srcFile = fso.OpenTextFile("chemin de ton fichier")
'ton fichier destination set destFile = fso.CreateTextFile("nom fichier avec son chemin", true)
dim currentLine as String
'maitenant tu lis ton fichier src ligne par ligne
Do While not srcFile.AtEndOfStream
currentLine = srcFile.ReadLine
'/* là tu fais ce que tu veux avec ta ligne
'...
' */
'puis ecriture ds le fichier destination
destFile.WriteLine currentLine
Loop
'fermeture des flux
srcFile.Close
destFile.Close
Voila, a++
