Applescript 文件命名

Question

代码片段：

 tell application "Finder" to set new_item to ¬
 (container of this_item as string) & (name of this_item) & "s"
 save this_image in new_item as typ

它将文件另存为 filenames.pngs 我希望它另存为 filenames.png。有什么想法如何解决这个问题吗？

Answer 1

将其保存为应用程序，然后您可以将内容放在上面，它会复制它们并在名称中添加 s。或者您可以双击它，它会要求您选择要复制的文件。 注意：如果您想更改添加到名称中的文本（即“s”），请更改属性appendText。

请注意处理程序 getName_andExtension(f)。这就是我用来从文件中获取名称和扩展名的方法。我用它来计算添加 s 时的新路径。

我希望这有帮助！

property appendText : "s"

on run
    set f to choose file
    duplicateInPlace_appendingText(f, appendText)
end run

on open the_items
    repeat with f in the_items
        duplicateInPlace_appendingText(f, appendText)
    end repeat
end open

on duplicateInPlace_appendingText(f, textToAppend)
    set f to f as text
    set {nm, ex} to getName_andExtension(f)
    tell application "Finder" to set theContainer to (container of item f) as text

    if ex is "" then
        set new_path to theContainer & nm & textToAppend
    else
        set new_path to theContainer & nm & textToAppend & "." & ex
    end if

    do shell script "cp -R " & quoted form of POSIX path of f & space & quoted form of POSIX path of new_path
end duplicateInPlace_appendingText

on getName_andExtension(f)
    set f to f as text
    set {name:nm, name extension:ex} to info for file f without size
    if ex is missing value then set ex to ""
    if ex is not "" then
        set nm to text 1 thru ((count nm) - (count ex) - 1) of nm
    end if
    return {nm, ex}
end getName_andExtension

Answer 2

name of this_item 给出 Finder 项目的全名，包括文件扩展名。你需要把它分开。不幸的是，这并不那么容易。您可以执行以下操作：

tell application "Finder"
    get the selection 
    set {dispname, ext, exthidden} to {displayed name, name extension, extension hidden} of item 1 of the result
end tell

if exthidden then
    dispname & "s." & ext
else
    ((characters 1 through -(2 + (count of ext)) of dispname) as string) & "s." & ext
end if

这只是为 Finder 选择中的第一个项目构建修改后的名称，而不对其进行任何操作。