The OpenSees Community

i suggest you read this: http://wiki.tcl.tk/367 for small files: foreach line [split [read $inFile] \n] { foreach word [split $line] { } } for larger files you might want to use gets (it is slower) while { [gets $inFile line] >= 0 } { foreach word [slit $line] { } } hey thanks for this information i...