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 min 0
    set max 0

    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
                set min [expr { $min < [regexp (?<=time=)([0-9])] ? $min : 100 }]
                set max [expr { $min > 100 ? $min : 100 }]
            }
        }
    } else {
        puts "loh"
    }
    close $source
}

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