[vbs] Problème avec la méthode ReadLine

Problème avec la méthode ReadLine [vbs] - VB/VBA/VBS - Programmation

Marsh Posté le 08-08-2007 à 17:16:08    

Bonjour,
 
J'ai un problème avec la méthode ReadLine : Elle marche lors de la première exécution du script, mais si je réxécute le script une seconde fois, la méthode me renvoi l'ensemble du fichier au lieu d'uniquement la ligne en cours...
 
Pourquoi ????
 
 
Ci dessous une partie de mon script :
 

Code :
  1. Dim OFS, MonFichier, FR
  2. Set OFS = CreateObject("Scripting.FileSystemObject" )
  3. Set Monfichier = OFS.GetFile(APPDATA & "\Microsoft\Signatures\toto.htm" )
  4. Set FR = Monfichier.OpenAsTextStream( 1,0)
  6. strhtml = ""
  7. Actu = false
  9. Do Until FR.AtEndOfStream
  10.   strLine = FR.ReadLine
  11.  
  12.   if strLine="<!--actualite_debut-->" Then
  13.     Actu = true
  14.     strhtml = strhtml & strActuSignature & Chr(13)
  15.   end if
  16.  
  17.   if not Actu Then
  18.     strhtml = strhtml & strLine & Chr(13)
  19.   end if
  20.  
  21.   if strLine="<!--actualite_fin-->" Then
  22.     Actu = false
  23.   end if 
  25. loop
  27. FR.close


 
Une idée ??
 
Merci...

Reply

Marsh Posté le 08-08-2007 à 17:16:08   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed