URGENT: Probleme de lecture de fichier texte. [Résolu]

Signaler
Messages postés
52
Date d'inscription
mercredi 28 juin 2006
Statut
Membre
Dernière intervention
1 mars 2010
-
Messages postés
52
Date d'inscription
mercredi 28 juin 2006
Statut
Membre
Dernière intervention
1 mars 2010
-
Bonjour,
Mon But est de parcourir un fichier afin de supprimer toutes les lignes sauf la premiere...
Mon Code tourne mais me supprime toute les lignes et de plus j'ai une erreur sur la ligne du AtEndOfStream : Mode Fichier incorrect

Voici mon code
for each strFile in oFolder.Files
if strFile.type ="Document texte" then
Set MonFic = FSys.OpenTextFile(strFile,2,true)
compt=0
do while MonFic.AtEndOfStream = false
compt=compt+1
if compt > 1 then
MonFic.writeline = ""
end if
loop
MonFic.close
end if
next

1 réponse

Messages postés
52
Date d'inscription
mercredi 28 juin 2006
Statut
Membre
Dernière intervention
1 mars 2010

Voila j'ai réussi
Bisarre je doit attendre le rafraichissement j'ai donc ajouter des sleep...

for each strFile in oFolder.Files
if strFile.type ="Document texte" then
Set MonFic = FSys.OpenTextFile(strFile,1)
contenu = MonFic.ReadLine
'wscript.echo contenu
wscript.sleep 1000
Set MonFic = FSys.OpenTextFile(strFile,2)
MonFic.write contenu
MonFic.close
end if
next