Proc to write data in tabular format.
Tcl, 5 lines
Download
Copy to clipboard1 2 3 4 5 | # Print columns
proc puts_tabular {width args} {
set fmt [string repeat "%-${width}s" [llength $args]]
puts [eval [list format $fmt] $args]
}
|
Tags: windows
