ANIMATOR

#
# Count the number of lines in a text file
#
clear
set fp [open "C:/Temp/verify.log" r]
set number 0

#
# gets with two arguments returns the length of the line,
# -1 if the end of the file is found
#
while {[gets $fp line] != -1} {
    incr number
    if
    puts "Line Number: $number\n"
    set X $line
    puts $X
}

close $fp

set num1 [lindex $X 1]
set num2 [lindex $X 2]
set num3 [lindex $X 3]
puts "Item at index 1,2,3 of the list {$X} is: $num1, $num2, $num3\n"

puts [expr $num3*2]

==================================================

#
# Count the number of lines in a text file
#
clear
set fp [open "C:/Temp/verify.log" r]
set number 0

#
# gets with two arguments returns the length of the line,
# -1 if the end of the file is found
#
while {[gets $fp line] != -1} {
    incr number
    if {int($number) == 1} {
         puts "Line Number: $number\n"
         set Y $line
         puts $Y
    }
    if {int($number) == 2} {
         puts "Line Number: $number\n"
         set X $line
         puts "$X\n"
    }
}

close $fp
set num0 [lindex $X 0]
set num1 [lindex $X 1]
set num2 [lindex $X 2]
set num3 [lindex $X 3]
puts "Item at index 0,1,2,3 of the list {$X} is: $num0, $num1, $num2, $num3\n"

set value0 [lindex $Y 0]
set value1 [lindex $Y 1]
set value2 [lindex $Y 2]
set value3 [lindex $Y 3]
puts "Item at index 0,1,2,3 of the list {$Y} is: $value0, $value1, $value2, $value3\n"

puts "Multi num3 to 2 [expr $num3*2]"

#
# Count the number of lines in a text file
#
clear
set fp [open "C:/Temp/verify.log" r]

#
# gets with two arguments returns the length of the line,
# -1 if the end of the file is found
#
array set x {}
array unset x
set i 0
while {[gets $fp line] != -1} {
    incr i
         puts "Line Number: $i\n"
         set x($i) $line
         puts $x($i)
}
puts "======================================\n"
puts "Number of PID $i\n"
set pid $i
puts "======================================\n"
close $fp

for { set i 1 } { $i <= $pid } { incr i } {
 puts $x($i)\n
 for { set j 1 } { $j <= 5 } { incr j } {
  set num($i,$j) [lindex $x($i) $j-1]
  puts $num($i,$j)\n
 }
}

puts "======================================\n"

set vomi [list]
set fn $num(2,2)
set ind $i
for { set i 2 } { $i <= $pid } { incr i } {
 if { int($num($i,2)) > int($fn) } {
        set fn $num($i,2)
  set ind $i
    }
 lappend vomi $num($i,2)
 #puts $num($i,2)\n
}

puts "Max at PID = $ind\n"
puts "Max Vonmise = $fn\n"
puts "Max  Vonmise at Element = $num($ind,3)\n"
puts "Min Vonmise = $num($ind,4)\n"
puts "Min  Vonmise at Element = $num($ind,5)\n"
puts "======================================\n"
puts $vomi\n

Input File

A    MaV    EaId    MiV    EiId
1    4.8    300       4       400
2    4.6    301       4.1    390
3    5.2    302       4.9    280
4    6.2    304       4.2    380
5    9.2    305       2.2    370