Code:

foreach line [split $data \n] {                putcmdlog "line '$line'"}

Code:

# read data inif {![file exists $quotefile]} {return "No quotes available."}set quotelines ""set inqfile [open $quotefile r]set quotetemp [split [read $inqfile] \n]catch {close $inqfile}foreach line $quotetemp {if {$line != ""} {lappend quotelines $line}}

Code:

# write data outset quotewrite [open $quotefile w]foreach line $quotelines {set line [string trim $line]if {$line != ""} {puts $quotewrite $line}}catch {close $quotewrite}

Code:

set fname "textfile.txt"set fp [open $fname "r"]set data [read -nonewline $fp] close $fpset lines [split $data "\n"]