Discussion :

[benguil]

Bonjour à tous,
Je suis en train de faire actuellement un script qui doit rechercher une chaine de caractère dans un txt. Jusque la pas de problème cela fonctionne sans problème et indique aussi le nombre de fois ou cette chaine est présente.

Le problème est que désormais je dois afficher la ligne complète ou apparait cette chaine de caractère, qui est donc différente selon chaque ligne (enfin par la suite je tronquerais une partie).

Voici mon code (j'ai tronqué toute la partie contenant le nom etc qui ne pose pas de problème)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
Dim Search, file_log, patch_error, val
Const ForReading = 1, ForWriting = 2, ForAppending = 8
 
patch_error = 0
 
Search_ok = "installation error" 'chaine de caractère recherchée
 
Set fso = CreateObject("Scripting.FileSystemObject")
Set file_log = fso.OpenTextFile(logname, ForReading, True)
 
  do until file_log.atendofstream 
 
    chaine = file_log.readline() 
    If instr(1, chaine, Search_ok) > 0 Then
      patch_error = patch_error+1
    End If
 
  loop  
        If patch_error = 0 Then 'si search_ok non présent
          Wscript.echo "Le fichier de log n'indique pas d'erreur"
        Else
			Wscript.echo "Nombre d'erreurs présentes: " & patch_error
			Wscript.echo "pour erreur: " 'Afficher les lignes ou les chaines de caractères apapraissent
        End If
 
file_log.close 
set file_log = nothing
Set fso = Nothing

Note: le fichier comporte des retour à la ligne pour chaque évènements, et la chaine recherchée peut apparaitre plusieurs fois
Si quelqu'un avait une idée

[ProgElecT]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
'..............
Dim PhraseErreur
  do until file_log.atendofstream 
 
    chaine = file_log.readline() 
    If instr(1, chaine, Search_ok) > 0 Then
      patch_error = patch_error+1
      PhraseErreur = PhraseErreur & vbcrlf ' <=======
    End If
 
  loop  
'.................
file_log.close 
set file_log = nothing
Set fso = Nothing
If PhraseErreur <> "" then msgbox PhraseErreur '<=========

Motif de l'edit:
excuses moi benguil pour l'oubli, et merci bbil d'avoir rectifié

[benguil]

Salut ProgElecT merci pour ta réponse !

Par contre cela ne fonctionne pas, en fait la msgbox affiche des lignes vide ou l'on peut voir les retour à la ligne mais pas le contenu de la phrase.

[SfJ5Rpw8]

Juste un petit oubli .. de "chaine"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

PhraseErreur = PhraseErreur & chaine & vbcrlf

[benguil]

bbil merci