URGENT: Probleme de lecture de fichier texte.

Résolu
neocam Messages postés 52 Date d'inscription mercredi 28 juin 2006 Statut Membre Dernière intervention 1 mars 2010 - 10 févr. 2009 à 12:02
neocam Messages postés 52 Date d'inscription mercredi 28 juin 2006 Statut Membre Dernière intervention 1 mars 2010 - 10 févr. 2009 à 12:50
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

neocam Messages postés 52 Date d'inscription mercredi 28 juin 2006 Statut Membre Dernière intervention 1 mars 2010
10 févr. 2009 à 12:50
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
3