proc execOpen { args } {
    set pingResults "PING.txt"
    set source [open $pingResults a]
    puts $source " Statistics from $args "
    close $source

    set a [eval exec $args >>$pingResults ]
}

proc f { filePath patternPinging patternSucced args } {
    set source [open $filePath a]
    set pattern1 $patternPinging
    set pattern2 $patternSucced
    set sentPackageCount 0
    set lostPackageCount 0
    set time [list]

    if {[catch {eval exec $args} result] == 0} {
        set line [split $result "\n"]
        foreach l $line {
            if { [regexp $pattern1 $l] } {
                puts $source "*************\n[string range $l 0 [string first " with" $l]]: \n*************"
            }
            if { [regexp $pattern2 $l] } {
                incr sentPackageCount
                uplevel 2 min
                set num [string range $l [expr {[string first "time=" $l] + 5}] [expr {[string first "ms" $l] - 1}]]

            }
        }
    } else {
        puts "loh"
    }

    set min [expr { $min < $num ? $min : $num }]
    set max [expr { $min > $num ? $num : $min }]

    close $source
    puts "$min - $max"
}

set patternPinging {^Pinging[A-Za-z0-9\s.:=]+}
set patternSucced {^Reply[A-Za-z0-9\s.:=]+}
set filePath "C:\\Users\\olena.kliuka\\Desktop\\PING.txt"
f $filePath $patternPinging $patternSucced ping 172.26.85.18