Bonjour,

J’ai une tache planifiée qui lance une requête de 10 pings sur une adresse IP toutes les minutes et qui génère un fichier log.
J’aimerais récupérer la date et l’heure des requêtes qui ont un maximum de 100 MS.

Voici à quoi ressemble le fichier de log :

=============START===============
09/10/2017 12:10:00,96

Envoi d'une requˆte 'Ping' 192.168.141.10 avec 32 octets de donn‚esÿ:
R‚ponse de 192.168.141.10ÿ: octets=32 temps<1ms TTL=128
R‚ponse de 192.168.141.10ÿ: octets=32 temps<1ms TTL=128
R‚ponse de 192.168.141.10ÿ: octets=32 temps<1ms TTL=128
R‚ponse de 192.168.141.10ÿ: octets=32 temps<1ms TTL=128
R‚ponse de 192.168.141.10ÿ: octets=32 temps<1ms TTL=128
R‚ponse de 192.168.141.10ÿ: octets=32 temps<1ms TTL=128
R‚ponse de 192.168.141.10ÿ: octets=32 temps<1ms TTL=128
R‚ponse de 192.168.141.10ÿ: octets=32 temps<1ms TTL=128
R‚ponse de 192.168.141.10ÿ: octets=32 temps<1ms TTL=128
R‚ponse de 192.168.141.10ÿ: octets=32 temps<1ms TTL=128

Statistiques Ping pour 192.168.141.10:
Paquetsÿ: envoy‚s = 10, re‡us = 10, perdus = 0 (perte 0%),
Dur‚e approximative des boucles en millisecondes :
Minimum = 0ms, Maximum = 0ms, Moyenne = 0ms
==============END==============
=============START===============
09/10/2017 12:11:59,01

Envoi d'une requˆte 'Ping' 192.168.141.10 avec 32 octets de donn‚esÿ:
R‚ponse de 192.168.141.10ÿ: octets=32 temps<1ms TTL=128
R‚ponse de 192.168.141.10ÿ: octets=32 temps<1ms TTL=128
R‚ponse de 192.168.141.10ÿ: octets=32 temps<1ms TTL=128
R‚ponse de 192.168.141.10ÿ: octets=32 temps<1ms TTL=128
R‚ponse de 192.168.141.10ÿ: octets=32 temps<1ms TTL=128
R‚ponse de 192.168.141.10ÿ: octets=32 temps<1ms TTL=128
R‚ponse de 192.168.141.10ÿ: octets=32 temps<1ms TTL=128
R‚ponse de 192.168.141.10ÿ: octets=32 temps<1ms TTL=128
R‚ponse de 192.168.141.10ÿ: octets=32 temps<1ms TTL=128
R‚ponse de 192.168.141.10ÿ: octets=32 temps<1ms TTL=128

Statistiques Ping pour 192.168.141.10:
Paquetsÿ: envoy‚s = 10, re‡us = 10, perdus = 0 (perte 0%),
Dur‚e approximative des boucles en millisecondes :
Minimum = 0ms, Maximum = 0ms, Moyenne = 0ms
==============END==============
Voici ce que j’ai tenté :

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
29
30
31
32
OPTION Explicit
 
Dim fichier_lecture_1, fichier_lecture_2
Dim BaliseDebut, BaliseFin
Dim DebutOu, FinOu
Dim chaine
Dim fso
 
fichier_lecture_1 = "latence.log"
 
BaliseDebut = "Maximum = "
BaliseFin = ", Moyenne"
 
DebutOu = 1
 
Set fso = CreateObject("Scripting.FileSystemObject") 
set fichier_lecture_2 = fso.opentextfile(fichier_lecture_1, 1, true)
 
do until fichier_lecture_2.atendofstream 
	chaine = fichier_lecture_2.readline()
	if InStr(DebutOu, chaine, BaliseDebut) > 0 Then
		DebutOu = DebutOu + Len(BaliseDebut)
		FinOu = DebutOu
		FinOu = InStr(FinOu, chaine, BaliseFin)
	end if
Loop
 
fichier_lecture_2.close 
set fichier_lecture_2 = nothing
set fso = nothing 
 
MsgBox Mid(chaine, DebutOu, FinOu - DebutOu)
Pour le moment j’ai un message box vide !