Date Tags From Filename
Summary: Tags a file based on the date in its filename.
Requires: EagleFiler
Install Location: ~/Library/Scripts/Applications/EagleFiler/
Last Modified: 2022-03-01
Description
This script adds month and year tags to the selected files based on the date in the filename. For example, a file named “ATT 02-15-12 bill” would be assigned the tags “feb” and “2012”.
Installation Instructions · Download in Compiled Format · Download in Text Format
Script
use AppleScript version "2.4"
use framework "Foundation"
use scripting additions
--my runTests()
my tagSelectedFiles()
on tagSelectedFiles()
set _addCompanyTag to false
set _replaceExistingTags to false
set _moveToCompanyFolder to false
tell application "EagleFiler"
set _records to selected records of browser window 1
repeat with _record in _records
set _filename to _record's filename
set _tagNames to my dateTagNamesFromFilename(_filename)
set _company to word 1 of _filename
if _addCompanyTag then copy _company to end of _tagNames
if not _replaceExistingTags then set _tagNames to (_tagNames & _record's assigned tag names)
set _record's assigned tag names to _tagNames
if _moveToCompanyFolder then my moveToFolderNamed(_record, _company)
end repeat
end tell
end tagSelectedFiles
on moveToFolderNamed(_record, _folderName)
tell application "EagleFiler"
set _library to _record's library document
set _root to _library's root folder
try
set _folder to library record _folderName of _root
on error
set _tempFolderPath to do shell script "mktemp -d -t 'NewFolder'"
tell _library to set {_folder} to import files {_tempFolderPath}
set _folder's filename to _folderName
end try
set _record's container to _folder
end tell
end moveToFolderNamed
on dateTagNamesFromFilename(_filename)
set _dateString to my dateStringFromFilename(_filename)
set _monthName to my lowercaseString(my formatDate(_dateString, "+%b"))
set _year to my formatDate(_dateString, "+%Y")
return {_monthName, _year}
end dateTagNamesFromFilename
on dateStringFromFilename(_filename)
set _regex to my (NSRegularExpression's regularExpressionWithPattern:"(\\d\\d?[-:]){2}(\\d\\d){1,2}" options:0 |error|:(missing value))
set _nsString to my (NSString's stringWithString:_filename)
set _textCheckingResult to _regex's firstMatchInString:_nsString options:0 range:{0, _nsString's |length|()}
set _dateRange to _textCheckingResult's range()
set _dateString to _nsString's substringWithRange:_dateRange
return _dateString as Unicode text
end dateStringFromFilename
on lowercaseString(_string)
return do shell script "echo " & _string's quoted form & "| tr '[:upper:]' '[:lower:]'"
end lowercaseString
on formatDate(_dateString, _outputFormat)
set _formats to {"%m-%d-%Y", "%m:%d:%Y", "%m-%d-%y", "%m:%d:%y"}
repeat with _format in _formats
set _script to "date -j -f '" & _format & "' " & _dateString's quoted form & " " & _outputFormat's quoted form
try
return do shell script _script
end try
end repeat
error _dateString & " did not match any date formats."
return
end formatDate
on runTests()
my test("ATT 02-15-12 bill", {"feb", "2012"})
my test("ATT 2-15-2012 bill", {"feb", "2012"})
my test("ATT 04-02-09 bill.pdf", {"apr", "2009"})
my test("ATT 04-01-09 disconnect notice.pdf", {"apr", "2009"})
my test("DT 03-03-09.pdf", {"mar", "2009"})
my test("DT 03:03:09.pdf", {"mar", "2009"})
my test("DT 03-03-2009.pdf", {"mar", "2009"})
my test("DT 3-3-2009.pdf", {"mar", "2009"})
my test("DT 03:03:2009.pdf", {"mar", "2009"})
my test("DT 3:3:2009.pdf", {"mar", "2009"})
my test("Geico Est Body Work 6:20:13.pdf", {"jun", "2013"})
end runTests
on test(_filename, _tagNames)
my assertEqual(my dateTagNamesFromFilename(_filename), _tagNames, _filename)
end test
on assertEqual(_actual, _expected, _name)
if not my isEqual(_actual, _expected) then
set _title to "Test Failed: " & _name
set _message to "Expected “" & _expected & "” but got “" & _actual & "“."
display alert _title message _message
end if
end assertEqual
on isEqual(_a, _b)
considering case
set AppleScript's text item delimiters to "|"
return _a is equal to _b -- Converts to strings
end considering
end isEqual