toto = "2015/02/10 10:00:00.000 : Reply[1] from X.X.X.X: bytes=32 time=78.9 ms TTL=126 jitter=0.00 ms"
titi = Split(toto, " ")
heure = titi(1)
pos = InStr(toto, "=")
reste = Mid(toto, pos + 1)
titi = Split(reste, "=")
mesbytes = Val(titi(0))
montemps = Val(titi(1))
MsgBox heure & " " & mesbytes & " " & montemps
et même ainsi :
toto = "2015/02/10 10:00:00.000 : Reply[1] from X.X.X.X: bytes=32 time=78.9 ms TTL=126 jitter=0.00 ms"
heure = Mid(toto, 11, 13)
titi = Split(toto, "=")
MsgBox Mid(toto, 11, 13) & " " & Val(titi(1)) & " " & Str(Val(titi(2)))
ou encore cela :
toto = "2015/02/10 10:00:00.000 : Reply[1] from X.X.X.X: bytes=32 time=78.9 ms TTL=126 jitter=0.00 ms"
titi = Split(Replace(toto, " ", "="), "=")
MsgBox titi(1) & " " & Val(titi(7)) & " " & Str(Val(titi(9)))
(entre autres possibilités en nombre infini)
________________________
Nul ne saurait valablement coder ce qu'il ne saurait exposer clairement.