Posted to tcl by dandyn at Wed Mar 27 15:20:27 GMT 2024view raw

  1.  
  2. regsub -all { days} $check_date {days} check_date
  3. regsub -all { day} $check_date {day} check_date
  4. regsub -all { hours} $check_date {hrs} check_date
  5. regsub -all { hour} $check_date {h} check_date
  6. regsub -all { minutes} $check_date {mins} check_date
  7. regsub -all { minute} $check_date {min} check_date
  8. regsub -all { seconds} $check_date {sec} check_date
  9. regsub -all { second} $check_date {sec} check_date
  10.  

Comments

Posted by dandyn at Wed Mar 27 18:26:17 GMT 2024 [text] [code]

string map -nocase { " days" "days" " day" "day" " hours" "hrs" " hour" "h" " minutes" "mins" " minute" "min" " seconds" "sec" " second" "sec" } $check_date

Posted by dandyn at Wed Mar 27 19:29:12 GMT 2024 [text] [code]

string map -nocase { " days" "days" " day" "day" " hours" "hrs" " hour" "h" " minutes" "mins" " minute" "min" " seconds" "sec" " second" "sec" } $check_date