Applescript - 带有 applescript 设置文件标签的幻影结果

Question

我确实在 automator 中制作了这个脚本。

property unset : 0
property orange : 1
property red : 2
property yellow : 3
property blue : 4
property purple : 5
property green : 6
property grey : 7

property tmplFileName : "__ReadMe" as string
property fileType : ".txt" as string
property labelTag : red

on run {input, parameters}

tell application "Finder"

    set currentPath to insertion location as text
    -- set filePath to POSIX path of currentPath
    set txtfilename to tmplFileName & fileType
    set txtFile to make new file at insertion location as alias with properties {name:txtfilename}
    set the label index of the item (txtFile as alias) to my labelTag

    select txtFile
    open txtFile

end tell

return input
end run

它给了我以下结果。一个幻影或仅可见的禁用文件。

我做错了什么？仅当我设置标签时才会发生这种情况。关于这一行

set the label index of the item (txtFile as alias) to my labelTag

有什么建议吗？谢谢。

Answer 1

仍然不明白为什么文件被禁用。无论如何，继续前进，经过一些阅读后，我把它作为一个测试脚本来了，它可以工作。需要一些错误管理，例如检查现有文件。

use AppleScript version "2.4"
use scripting additions
use framework "Foundation"

property |NSURL| : a reference to current application's NSURL

property tmplFileName : "__ReadMe" as string
property fileType : ".txt" as string
property labelTag : "red"

-- Replace tags; 
--      setTags - pass a list with new tags and replacing any existing
--      forPath - POSIX path

on setTags:tagList forPath:POSIXPath 
    set aURL to current application's |NSURL|'s fileURLWithPath:POSIXPath
    aURL's setResourceValue:tagList forKey:(current application's NSURLTagNamesKey) |error|:(missing value)
end setTags:forPath:

on run {input, parameters}

  tell application "Finder"

    set txtfilename to tmplFileName & fileType
    set txtFile to make new file at insertion location as alias with properties {name:txtfilename}
    set POSIXPath to POSIX path of (txtFile as text)
    (my setTags:{labelTag} forPath:POSIXPath)
    select txtFile

    tell application "TextEdit"
        activate
        open txtFile as alias
    end tell

  end tell

  return input
end run

希望这对其他人也有帮助。我现在能从上面得到加一票吗？作为旁注，有人可以解释为什么我确实得到了-1吗？只是好奇。 谢谢。

Answer 2

我在黑暗中刺了一下，并认为问题可能出在创建的文件的大小上，为 0 kb。我决定使用write to file 命令添加一个处理程序，并在文件中添加一个空格作为字符。这使文件大小为 1 字节，然后设置标签索引有效。为了我的目的，我对您的初始代码做了一些小的调整，但这里是我所做的更改和我的代码版本。

local unset, orange, red, yellow, blue, purple, green, grey

set {unset, orange, red, yellow, blue, purple, green, grey} to {0, 1, 2, 3, 4, 5, 6, 7}

set tmplFileName to "__ReadMe"
set nameExtension to ".txt"
set labelTag to red

tell application "Finder"
    set currentPath to insertion location
    set txtfilename to tmplFileName & nameExtension
    set txtFile to make new file at insertion location as alias with properties {name:txtfilename, name extension:nameExtension}

    my writeToTheFile(txtFile as alias)

    set the label index of (txtFile as alias) to labelTag

    open txtFile
end tell

on writeToTheFile(txtFile as alias)
    set theFile to txtFile as alias
    set theText to " "
    try
        set writeToFile to open for access theFile with write permission
        write theText to writeToFile as text starting at eof
        close access theFile
    on error errMsg number errNum
        try
            close access theFile
        end try
    end try
end writeToTheFile