0

我的智能手机上有很多照片。它们的文件名格式都是 yyyy-mm-dd hh:mm:ss.jpg

我需要根据周数将它们分类到文件夹中。

使用 AppleScript 将文件移动到文件夹时我没有问题 :) 为给定日期定义周数也没有问题。我在语法甚至数据类型方面（我认为）有问题，但我不明白问题出在哪里。

这是我正在使用的。

  1. 我有一个为给定日期定义周数的功能
  2. 我扫描我的文件夹并将所有名称都放入列表中
  3. 我解析名称以获取 yyyy、mm 和 dd 作为变量
  4. 然后我尝试用这些变量调用我的函数——这就是问题的开始。

请看一下我的代码示例：

property DBFolder : "Macintosh HD:Users:lyubovberezina:Dropbox:DB"
property CUFolder : "Macintosh HD:Users:lyubovberezina:Dropbox:Camera Uploads"

on weekNumber(_inputDate)

script Week_Number_Extras

    on dateOfFirstWeekOfYear(_year)
        -- Get Monday of first week number
        set _date to current date
        set year of _date to _year
        set month of _date to 1
        set day of _date to 1
        set time of _date to 0

        -- Get the first Thursday of this year
        repeat until weekday of _date is Thursday
            set _date to _date + (24 * 60 * 60)
        end repeat

        -- Return the Monday before
        set _date to _date - (3 * 24 * 60 * 60)

        return _date
    end dateOfFirstWeekOfYear

end script

-- Make a copy of the passed date object to avoid changes to the original
copy _inputDate to _targetDate

-- Reset the time and go back to Monday
set time of _targetDate to 0
repeat until weekday of _targetDate is Monday
    set _targetDate to _targetDate - (24 * 60 * 60)
end repeat

-- Get the date of the first week for the current year and the next one
tell Week_Number_Extras
    set _matchDate to dateOfFirstWeekOfYear(year of _targetDate)
    set _nextYearsFirstWeekDate to dateOfFirstWeekOfYear((year of _targetDate) + 1)
end tell

-- Exit early, if the current week is the first one of next year
if _targetDate = _nextYearsFirstWeekDate then return 1

-- Count up until the target date is reached
set _weekNumber to 1
repeat until _targetDate = _matchDate
    set _matchDate to _matchDate + (7 * 24 * 60 * 60)
    set _weekNumber to _weekNumber + 1
end repeat

return _weekNumber
end weekNumber

tell application "Finder"
set this_folder to folder CUFolder
set this_list to every file of this_folder
repeat with i in this_list
    set fileName to name of i
    set fileYear to characters 1 thru 4 of fileName as string
    set fileMonth to characters 6 thru 7 of fileName as string
    set fileDay to characters 9 thru 10 of fileName as string
end repeat
end tell

set theNewDate to date (fileMonth & "/" & fileDay & "/" & fileYear)
weekNumber(theNewDate)

在这种情况下，行

set theNewDate1 to date (fileMonth & "/" & fileDay & "/" & fileYear)

工作正常（我的意思是，没有错误），但由于它在循环之外，它只给出循环中最后一个图像的结果。但是，如果我将它移到循环中，则会出现错误：

property DBFolder : "Macintosh HD:Users:lyubovberezina:Dropbox:DB"
property CUFolder : "Macintosh HD:Users:lyubovberezina:Dropbox:Camera Uploads"

on weekNumber(_inputDate)

script Week_Number_Extras

    on dateOfFirstWeekOfYear(_year)
        -- Get Monday of first week number
        set _date to current date
        set year of _date to _year
        set month of _date to 1
        set day of _date to 1
        set time of _date to 0

        -- Get the first Thursday of this year
        repeat until weekday of _date is Thursday
            set _date to _date + (24 * 60 * 60)
        end repeat

        -- Return the Monday before
        set _date to _date - (3 * 24 * 60 * 60)

        return _date
    end dateOfFirstWeekOfYear

end script

-- Make a copy of the passed date object to avoid changes to the original
copy _inputDate to _targetDate

-- Reset the time and go back to Monday
set time of _targetDate to 0
repeat until weekday of _targetDate is Monday
    set _targetDate to _targetDate - (24 * 60 * 60)
end repeat

-- Get the date of the first week for the current year and the next one
tell Week_Number_Extras
    set _matchDate to dateOfFirstWeekOfYear(year of _targetDate)
    set _nextYearsFirstWeekDate to dateOfFirstWeekOfYear((year of _targetDate) + 1)
end tell

-- Exit early, if the current week is the first one of next year
if _targetDate = _nextYearsFirstWeekDate then return 1

-- Count up until the target date is reached
set _weekNumber to 1
repeat until _targetDate = _matchDate
    set _matchDate to _matchDate + (7 * 24 * 60 * 60)
    set _weekNumber to _weekNumber + 1
end repeat

return _weekNumber
end weekNumber

tell application "Finder"
set this_folder to folder CUFolder
set this_list to every file of this_folder
repeat with i in this_list
    set fileName to name of i
    set fileYear to characters 1 thru 4 of fileName as string
    set fileMonth to characters 6 thru 7 of fileName as string
    set fileDay to characters 9 thru 10 of fileName as string
    set theNewDate to date (fileMonth & "/" & fileDay & "/" & fileYear)
    weekNumber(theNewDate)
end repeat
end tell

获取第一个文件后会出现错误：

get name of document file "2013-01-02 02.43.21.jpg" of folder "Camera Uploads" of folder "Dropbox" of folder "lyubovberezina" of folder "Users" of startup disk
    --> "2013-01-02 02.43.21.jpg"
get date "01/02/2013"
    --> error number -1728 from date "01/02/2013"
Result:
error "Finder got an error: Can’t get date \"01/02/2013\"." number -1728 from date "Wednesday, January 2, 2013 12:00:00 AM"

我几乎是 Applescript 的新手，所以我不明白为什么代码在循环外工作而不在循环内工作。对于此事，我将不胜感激。

非常感谢！

4

2 回答 2

1

至少在周数部分使用 shell 脚本可能更容易：

do shell script "date -jf %F 2013-07-19 +%V"

cd ~/Dropbox/Camera\ Uploads; for f in *; do d=../DB/$(date -jf %F ${f:0:10} +%Y-%V "$f"); mkdir -p $d; mv "$f" $d; done

于 2013-07-19T06:06:08.623 回答
0

你应该坚持你原来的格式：

set theNewDate to current date
set theNewDate's year to fileYear
set theNewDate's month to fileMonth
set theNewDate's day to fileDay

还：

将 _date 设置为 _date + (24 * 60 * 60)
与
将 _date 设置为 _date + days相同

将 _date 设置为 _date - (3 * 24 * 60 * 60)
与将 _date 设置为 _date - (3 * days) 相同

将 _matchDate 设置为 _matchDate + (7 * 24 * 60 * 60)
与
将 _matchDate 设置为 _matchDate + 周相同

于 2013-07-18T18:18:40.823 回答