Abbreviate Time

intel · Post by **intel** » Sat Jan 10, 2009 6:58 pm

Is there a way when my bot announces the time instead of hours it will display hrs (same for minutes and seconds)?
set time1 [unixtime]
incr time1 -$timestamp
set ago [duration $time1]

speechles · Post by **speechles** » Sat Jan 10, 2009 7:05 pm

Code: Select all

set ago [string map {"year" "yr" "week" "wk" "day" "dy" "hour" "hr" "minute" "min" "second" "sec"} [duration $time1]]

intel · Post by **intel** » Sat Jan 10, 2009 7:24 pm

Thanx, but will that do hrs or just hr. Like 5 hrs ago or 5 hr ago?

speechles · Post by **speechles** » Sat Jan 10, 2009 7:40 pm

intel wrote:Thanx, but will that do hrs or just hr. Like 5 hrs ago or 5 hr ago?

It will change any occurence of "hour" to "hr" which is part of both words, hour and hours. So "hours" will be changed to "hrs", yes. The same goes for the rest of the abbreviations.

intel · Post by **intel** » Sat Jan 10, 2009 8:03 pm

awesome... thanx

intel · Post by **intel** » Mon Jan 12, 2009 8:02 am

oh would you know how to get rid of the space? It says 1 hr 15 min ago would like 1hr 15min ago

Thanks.

arfer · Post by **arfer** » Mon Jan 12, 2009 8:14 am

You must include the space character in the mapped items to be replaced as follows :-

Code: Select all

set ago [string map {" year" "yr" " week" "wk" " day" "dy" " hour" "hr" " minute" "min" " second" "sec"} [duration $time1]]

For example :-

[12:19] <@arfer> % return [string map {" year" "yr" " week" "wk" " day" "dy" " hour" "hr" " minute" "min" " second" "sec"} [duration [unixtime]]]
[12:19] <@Baal> 39yrs 3wks 12hrs 19mins 6secs

intel · Post by **intel** » Mon Jan 12, 2009 9:36 am

Great. It works. Thanx appreciate the all the help.
Just curious if I wanted say 12h 15m 10s would that just be
" hour" "" " minutes" "" or will just put either nothing or a s at the end (like 12 or 12s instead of 12hr or 12hrs)?

incith · Post by **incith** » Mon Jan 12, 2009 5:07 pm

How about you just fiddle with it until it works the way you want..

http://www.tcl.tk/man/tcl8.2.3/TclCmd/string.htm#M34

intel · Post by **intel** » Mon Jan 12, 2009 6:01 pm

lol been tryin... used /m /s [m] [s] not working... so obviously doing something wrong.

incith · Post by **incith** » Mon Jan 12, 2009 8:00 pm

You are mapping "{from} {to}", so if you want to replace hour with h, ...

{hour} {h} {minute} {m} etc.. you might need to do extra ones for the s, or try with {hour*} but that might end up replacing the whole string <_<. maybe hour? to check for the 1 additional char.

speechles · Post by **speechles** » Mon Jan 12, 2009 8:08 pm

Code: Select all

set ago [string map {" years" "y" " weeks" "w" " days" "d" " hours" "h" " minutes" "m" " seconds" "s" " year" "y" " week" "w" " day" "d" " hour" "h" " minute" "m" " second" "s"} [duration $time1]]

Make a big long string map in that case. Incith was correct, test these things on your own, so you learn intuitively and interactively.

intel · Post by **intel** » Mon Jan 12, 2009 9:31 pm

Thanx. I did try that really long way but I didnt have it in that order so it did not work. It was still doing ms (for minutes) and ss (for seconds)

Thanx. Appreciate the help.