Lecture d'un fichier Log

Bonjour,

J'ai un code qui récupère un fichier log mais je voudrais pouvoir lire les x dernières ligne de ce fichier contenant une certaine chaîne

Voilà mon code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

Set FSO = CreateObject("Scripting.FileSystemObject") alert_log = ""   Set oFold = FSO.GetFolder(REP) Resultat = "" Hor= "01/01/1970 00:00:37" For Each oFile In oFold.Files If LCase(Left(oFile.Name, 6)) = "alert_" And LCase(Right(oFile.Name, 4)) = ".log" Then 'récupération des fichier alert_*.log Resultat = oFile.Path   if FSO.FileExists(resultat) then 'récupération du dernier fichier modifié Hor_next = FSO.GetFile(resultat).DateLastModified diff = DateDiff("s",Hor_next,Hor)   if Diff < 0 then Hor = Hor_next alert_log = oFile.Name alert_path = oFile.Path end if end if End If Next wscript.echo alert_log wscript.echo alert_path   if alert_log = "" then wscript.echo "Pas de fichier alert_*.log dans le repertoire "& REP wscript.quit (ST_UK) end if

---

Pour faire la recherche je voulais utiliser une commande find de windows dans ce style là

Code:

---

1 2 3 4 5

ERREUR_cherche = chr(34) & ERREUR & chr(34) Set sh = CreateObject("WScript.Shell") Set cmd = sh.Exec("cmd /c find "& ERREUR_cherche &" " &alert_path) read_cmd=cmd.StdOut.ReadAll wscript.echo read_cmd

---

ERREUR est la chaîne recherché dans le fichier alert_path est le chemin vers le fichier où l'on veut effectuer la commande find

j'ai déjà utilisé cette commande dans un autre script elle passe bien mais la elle ne veut pas passer et impossible de trouver pourquoi quelqu'un saurait pourquoi?

Merci d'avance

Galène

Edit :

En faite je dois récupérer les x dernières lignes du fichier

la deuxième partie sur la commande find marche mais ce n'est pas se don j'ai besoin pour afficher les x dernières lignes

J'ai pensé à la commande type mais elle affiche toute les lignes on ne peut pas choisir ou compter un nombre de lignes

Je sais pas si j'ai été clair :roll:

Salut

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Const ForReading = 1 Dim oFso, f, ContenuLgn Set oFso = CreateObject("Scripting.FileSystemObject")   'Ouverture et lecture du fichier Set f = oFso.OpenTextFile("C:\PersoFrancis\test.txt", ForReading) 'recuperation d'un tableau de x lignes ContenuLgn = split(f.ReadAll,vbnewline) f.close Set f = nothing: Set oFso = nothing   'lecture des 10 dernieres ligne en commencant par la derniere ligne for f = ubound(ContenuLgn) to ubound(ContenuLgn)-9 Step -1 msgbox ContenuLgn(f) next

---

le tableau ContenuLgn contient le contenu entier du fichier d'indice n lignes, disons plutôt de n lignes finissant par un retour chariot.
ContenuLgn(x) contient une des lignes du fichier.
Exemple pour toi si tu veux les trois dernières lignes tu boucles sur ubound(ContenuLgn)-2

Merci de ta réponse ça m'a été très utile,

Comment maintenant je peux faire si je veux compter dans toutes les lignes que l'on m'affiche les lignes où la chaîne de caractère "starting" apparaît par exemple ?

Salut

Citation:

---

dans toutes les lignes que l'on m'affiche

---

les x nombre de lignes déjà présélectionnées ou l’entièreté des lignes du fichier.
De plus, suivant se que tu vas faire de la détection de ce nombre de lignes contenant starting , la stratégie peut être différente.

des lignes déjà présélectionné, et je veux juste compter le nombre de ligne où le mot starting apparaît.

J'ai trouvé cette manière la

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Const ForReading = 1 Dim oFso, f, ContenuLgn Set oFso = CreateObject("Scripting.FileSystemObject")   'Ouverture et lecture du fichier Set f = oFso.OpenTextFile(alert_path, ForReading) 'recuperation d'un tableau de x lignes ContenuLgn = split(f.ReadAll,vbnewline) f.close Set f = nothing: Set oFso = nothing   cpt_error = 0 for f = ubound(ContenuLgn)-NB_LIGNES to ubound(ContenuLgn) Step 1 if instr(1,ContenuLgn(f),ERREUR) > 0 then cpt_error = cpt_error + 1 end if   next

---

NB_LIGNES est le nombre de lignes que je veux récupérer
ERREUR est la chaîne que je recherche

et du coup mon cpt_error sera le nombre de fois où l'erreur est présente.

Salut
Une autre possibilité sans boucle

Code:

---

1 2 3 4

Dim StrTemp, Regrouper() StrTemp = Join(ContenuLgn, vbNewLine) Regrouper = Split(StrTemp, ERREUR) MsgBox "Nombre d'occurence = " & UBound(Regrouper)

---