snowingnow
Programmer
How to padding a certain number of spaces in front of a string ? Thanks
Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations Mike Lewis on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
padding a space in front of a string
- Thread starter snowingnow
- Start date
- Status
Neetend it up a bit...
proc string_pad {orig {num 1} {char " "} {side front} } {
# pad string on either side with a number of characters
set pad [string repeat $char $num]
switch $side {
beginning - front {return $pad$orig}
back - end {return $orig$pad}
default {return $orig}
}
}
set s "Hello World!"
set s [string_pad $s 20 { } front]
proc string_pad {orig {num 1} {char " "} {side front} } {
# pad string on either side with a number of characters
set pad [string repeat $char $num]
switch $side {
beginning - front {return $pad$orig}
back - end {return $orig$pad}
default {return $orig}
}
}
set s "Hello World!"
set s [string_pad $s 20 { } front]
- Status
Similar threads