Hi all.
I’ve been wanting to write a function for getting the size and the last
modified datetime of one specific file. I finally figured out how to do it.
Here’s the function. Enjoy.
function getDetailedFileInfo pFilePath
-- new method use shell
if the platform contains "win" then
replace slash with backslash in pFilePath
put "dir /T:W " & quote & pFilePath & quote into tShellCommand
put shell(tShellCommand) into tResult
put word 1 of line 6 of tResult into tDate
put formatDate(tDate, "sql date") into tDate
put word 2 of line 6 of tResult into tTime
put formatTime(tTime, "sql time") into tTime
put tDate && tTime into tDateTime
put word 4 of line 6 of tResult into tFileSize
replace comma with empty in tFileSize
put tFileSize *1000 into tFileSize
else
put "getFileInfo -m" && quote & pFilePath & quote into tShellCommand
put shell(tShellCommand) into tResult
put formatDate(word 1 of tResult, "sql date") && \
formatTime(word 2 of tResult, "sql time") into tDateTime
put "echo "& quote & "$(( $(stat -f'%z' filename)))" & quote into
tShellCommand
replace fileName with "'" & pFilePath & "'" in tShellCommand
put word 1 of shell(tShellCommand) into tFileSize
end if
put tFilePath & comma & tFileSize & comma & tDateTime & cr after
tNewDetailedFiles
return tNewDetailedFiles
end getDetailedFileInfo
FUNCTION formatDate theDate, theFormat
/*
Accepts any valid date for the first parameter. If not a valid date, it
simply returns
what was passed. Second parameter can be any of the following:
sql date: date in the yyyy-mm-dd format
short date, abbreviated date, internet date, long date: LC versions of the
same
julian date: Julian number based on (I believe) Jacques formula
standard date: The date in the form of "mm/dd/yyyy"
*/
put theDate into tSavedDate
put the itemdelimiter into theOldDelim
set the itemdelimiter to "-"
IF the length of item 1 of theDate = 4 AND \
the number of items of theDate = 3 AND \
item 1 of theDate is a number AND \
item 2 of theDate is a number AND \
item 3 of theDate is a number THEN
put item 2 of theDate & "/" & \
item 3 of theDate & "/" & \
item 1 of theDate into theDate
END IF
-- replace "." with "/" in theDate
convert theDate to dateitems
set the itemdelimiter to theOldDelim
-- if the number of items of theDate <> 7 then
-- answer "'" & theDate & "' is not a valid date format!"
-- return tSavedDate
-- end if
SWITCH word 1 of theFormat
CASE "sql"
/*
put item 1 of theDate & "-" & \
format("%02d",item 2 of theDate) & "-" & \
format("%02d",item 3 of theDate) into theDate
*/
put format("%s-%02d-%02d", item 1 of theDate, item 2 of theDate, \
item 3 of theDate) into theDate
break
CASE "short"
convert theDate from dateitems to short date
break
CASE "abbreviated"
convert theDate from dateitems to abbreviated date
break
CASE "abbr"
convert theDate from dateitems to abbreviated date
break
CASE "internet"
convert theDate from dateitems to internet date
break
CASE "long"
convert theDate from dateitems to long date
break
CASE "julian"
put the date into theDate
convert theDate to dateItems
IF ((item 2 of theDate = 1) OR (item 2 of theDate = 2)) THEN
put 1 into theDay
ELSE
put 0 into theDay
END IF
put item 1 of theDate + 4800 - theDay into theYear
put item 2 of theDate + (12 * theDay) - 3 into theMonth
put item 3 of theDate + \
((153 * theMonth + 2) div 5) + \
(365 * theYear) + \
(theYear div 4) - \
(theYear div 100) + \
(theYear div 400) - \
32045 into theDate
break
case "standard"
put format("%02d/%02d/%04d", item 2 of theDate, item 3 of theDate, \
item 1 of theDate) into theDate
break
default
put tSavedDate into theDate
END SWITCH
return theDate
END formatDate
FUNCTION formatTime theTime, tOutFormat, tInFormat
/*
formatTime accepts any valid time and returns the form of the time specified
in the second parameter.
The valid formats are:
sql time: hh:mm:ss (Note: combining sql date from the formatDate() function
with the
sql time will produce a valid SQL date time type).
short time: LC short time format
abbreviated time: LC abbr time format (same as short time)
long time: LC long time format
seconds: the number of seconds since the prior midnight
military: the military time 00:00 - 23:59
*/
IF theTime is empty THEN return empty
if tOutFormat is empty then return theTime
if tInFormat is empty then put "short time" into tInFormat
if tOutFormat is among the items of "short time,long time,abbreviated
time,seconds" then
put "convert theTime from " & tInFormat & " to " & tOutFormat into
tCommand
do tCommand
return theTime
end if
-- strip leading and trailing spaces
put word 1 to -1 of theTime into theTime
-- replace spaces with colons
replace space with colon in theTime
replace ":AM" with " AM" in theTime
replace ":PM" with " PM" in theTime
-- convert integer to time
if theTime is an integer then \
put theTime & ":" & "00" into theTime
-- determine if seconds are in theTime
set the itemDelimiter to ":"
put the number of items of theTime >2 into tUseSeconds
set the itemDelimiter to ","
set the numberformat to "00"
SWITCH word 1 of tOutFormat
CASE "sql"
convert theTime to dateitems
put (item 4 of theTime +0) & ":" & \
(item 5 of theTime +0) & ":" & \
(item 6 of theTime +0) into theTime
break
CASE "short"
convert theTime to short time
break
CASE "abbreviated"
convert theTime to abbreviated time
break
CASE "long"
convert theTime to long time
break
CASE "seconds"
convert theTime to seconds
break
CASE "military"
put theTime into tMilitaryTime
convert tMilitaryTime to dateitems
put 0 + item 4 of tMilitaryTime & ":" & 0 + item 5 of tMilitaryTime
into theTime
if tUseSeconds is true then \
put ":" & 0 + item 6 of tMilitaryTime after theTime
break
END SWITCH
return theTime
END formatTime
Bob S
_______________________________________________
use-livecode mailing list
use-livecode@lists.runrev.com
Please visit this url to subscribe, unsubscribe and manage your subscription
preferences:
http://lists.runrev.com/mailman/listinfo/use-livecode
