Tcl/keep CT automated test script instance 5-read a row from the file

Code As shown in the following figure, it is relatively simple and will not be analyzed. For more information about how to call an instance, see Article .

#*************************************** *********
# Get a line from file, skip blank lines and
# Comment lines, return the reading line in
# Parameter 'line '.
#
# @ Params
# FD-file FD
# Line-var used to return the line
#
# @ Return
# Return 1 if read successfully, otherwise 0
#*************************************** *********
Proc Getline {FD line }{
Upvar $ line ln

# Read a line from Fd
While {[set linelen [gets $ FD ln]> = 0 }{
# Blank line
If {$ linelen = 0} continue
 
# Trim whitespace
Set ln [String trim $ ln]
If {[String Length $ ln] = 0} continue

# Skip comment
If {[String index $ ln 0] = "#"} continue

# Success
Return 1
}

Return 0
}