Creating a tcl code to resolve the Normals

# # set a [tk_getOpenFile -title "select the file"]
# set file [open "test.xml" r]

# for {set i 0} {$i<18} {incr i} {
# gets $file
# }



# cd "C:/Users/Skill-Lync/Downloads/cONNECTOR PROJECT"
# set g [open "test_file.txt" w]
# while {[eof $file] == 0} {
# set val {}
# set a [gets $file]

# set val [maximum $a]				
# puts $g $val
# }
# close $g

# proc maximum {x} {
# set b {}
# set b [split $x]
# set i {}
# set variable {}
# foreach i $b {
# if {$i!={}} {
# lappend variable $i
# }
# }
# return $variable
# }

# #data extraction
set file {}
cd "C:/Users/Skill-Lync/Downloads/cONNECTOR PROJECT"
set i 0
set file [open "test_file.txt" r]
set a {}

while { $a != ""} {
puts $i
set j 0
set a [gets $file]
if {$a == ""} {
incr i
while {$a != ""} {
set a [gets $file]
if {$j==0} {
set g [open "test$i.txt" w]
incr j
}
puts $g $a
puts $a
}
close $g
} else {
puts "condition"
}
}