[vbscript]- erreur dans la recherche de chaines de caractère

- erreur dans la recherche de chaines de caractère [vbscript] - Shell/Batch - Programmation

Marsh Posté le 27-04-2003 à 18:40:39    

je voudrais faire une recherche de chaînes de caractères dans des fichiers .txt ou .rep
voici mon code
------------------------------------------------
strRech= ""
    if InStr(1, f.readAll,"file export successfully" )or InStr (1, f.readAll, "procédure d'export terminée" ) then
        WScript.Echo "export ok"
    else
        WScript.Echo "export inexistant"
    end if
    f.Close
    Set f = Nothing
    Set fso = Nothing
-----------------------------------------------
 
tout ca me renvoie une belle erreur "l'entrée dépasse la fin du fichier" alors que si je ne mets qu'une seule chaîne a trouver je n'ai aucun pbm
 
...google ne m'a renvoyé que des sites ou l'erreur se produit également  :)

Reply

Marsh Posté le 27-04-2003 à 18:40:39   

Reply

Marsh Posté le 27-04-2003 à 18:59:39    

vérifié que le fichier n'est pas vide avant de lire dedans.
 
sinon, il fait quelle taille ton fichier ?

Reply

Marsh Posté le 27-04-2003 à 19:01:05    

Arf ! Non ! :lol:
 
Je viens de voir.
 
Erreur classique :
-> Le première readall te positionne à la fin du fichier, donc le second plante, parcequ'il n'y a plus rien à lire.
 
Donc utilise une variable dans laquelle tu mets le contenu du fichier, puis tu fais les instr dessus.

Reply

Marsh Posté le 27-04-2003 à 19:15:06    

MagicBuzz a écrit :

Arf ! Non ! :lol:
 
Je viens de voir.
 
Erreur classique :
-> Le première readall te positionne à la fin du fichier, donc le second plante, parcequ'il n'y a plus rien à lire.
 
Donc utilise une variable dans laquelle tu mets le contenu du fichier, puis tu fais les instr dessus.


 
euuuh  :whistle: ...tu pourrais m'aiguiller sitleplé ??
[ encore un peu noob inside]

Reply

Marsh Posté le 27-04-2003 à 19:20:39    

Bah tu peux pas faire 2 fois de suite un readall dans un même fichier, sans l'avoir réouvert.
 
Donc ton script devient :
 

Code :
  1. strRech= f.readAll
  2.    if InStr(1, strRech,"file export successfully" )or InStr (1, strRech, "procédure d'export terminée" ) then
  3.        WScript.Echo "export ok"
  4.    else
  5.        WScript.Echo "export inexistant"
  6.    end if
  7.    f.Close
  8.    Set f = Nothing
  9.    Set fso = Nothing

Reply

Marsh Posté le 27-04-2003 à 19:29:44    

merci ca marche nickel  :jap:

Reply

Sujets relatifs:

Leave a Replay

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