102 lines
2.8 KiB
Plaintext
Executable File
102 lines
2.8 KiB
Plaintext
Executable File
-- Rockstar DateTime Utilities
|
|
-- Rockstar North
|
|
-- 23 May 2007
|
|
-- by David Muir <david.muir@rockstarnorth.com>
|
|
--
|
|
|
|
---------------------------------------------------------------------------------
|
|
-- Return date as string
|
|
--
|
|
-- [return] Date as string (DD/MM/YYYY on UK configured locale)
|
|
---------------------------------------------------------------------------------
|
|
function RsGetDate = (
|
|
|
|
dosCommand "date /t >MAXScript_RsGetDate.tmp"
|
|
fp = openfile "MAXScript_RsGetDate.tmp" mode:"rt"
|
|
if ( undefined == fp ) then
|
|
return undefined
|
|
|
|
dateStr = readline fp
|
|
close fp
|
|
deleteFile "MAXScript_RsGetDate.tmp"
|
|
|
|
-- Trim space chars
|
|
dateStr = trimleft dateStr
|
|
dateStr = trimright dateStr
|
|
|
|
dateStr
|
|
)
|
|
|
|
---------------------------------------------------------------------------------
|
|
-- Return reversed date as string (not suitable for filenames/paths)
|
|
--
|
|
-- [return] Date as string (YYYY/MM/DD on UK configured locale)
|
|
---------------------------------------------------------------------------------
|
|
function RsGetDateReverse = (
|
|
|
|
dateStr = RsGetDate()
|
|
strs = filterString dateStr "-/"
|
|
|
|
ss = stringStream ""
|
|
format "%/%/%" strs[3] strs[2] strs[1] to:ss
|
|
|
|
(ss as string)
|
|
)
|
|
|
|
---------------------------------------------------------------------------------
|
|
-- Return reversed date for use in file/directory names
|
|
--
|
|
-- [return] Date as string (YYYY-MM-DD on UK configured locale)
|
|
---------------------------------------------------------------------------------
|
|
function RsGetDateReverseFilesystem = (
|
|
|
|
dateStr = RsGetDateReverse()
|
|
strs = filterString dateStr "/"
|
|
|
|
ss = stringStream ""
|
|
format "%-%-%" strs[1] strs[2] strs[3] to:ss
|
|
|
|
(ss as string)
|
|
)
|
|
|
|
---------------------------------------------------------------------------------
|
|
-- Return reversed date for use in file/directory names
|
|
--
|
|
-- [return] Date as string (YYYYMMDD on UK configured locale)
|
|
---------------------------------------------------------------------------------
|
|
function RsGetDateReverseFilesystem2 = (
|
|
|
|
dateStr = RsGetDateReverse()
|
|
strs = filterString dateStr "/"
|
|
|
|
ss = stringStream ""
|
|
format "%%%" strs[1] strs[2] strs[3] to:ss
|
|
|
|
(ss as string)
|
|
)
|
|
|
|
---------------------------------------------------------------------------------
|
|
-- Return time as string
|
|
--
|
|
-- [return] Time as string (HH:MM on UK configured locale)
|
|
---------------------------------------------------------------------------------
|
|
function RsGetTime = (
|
|
|
|
dosCommand "time /t >MAXScript_RsGetTime.tmp"
|
|
fp = openfile "MAXScript_RsGetTime.tmp" mode:"rt"
|
|
if ( undefined == fp ) then
|
|
return undefined
|
|
|
|
timeStr = readline fp
|
|
close fp
|
|
deleteFile "MAXScript_RsGetTime.tmp"
|
|
|
|
-- Trim space chars
|
|
timeStr = trimleft timeStr
|
|
timeStr = trimright timeStr
|
|
|
|
timeStr
|
|
)
|
|
|
|
-- End of script
|