0

“on switchDir”例程旨在定位作为“目录”传递的路径的每个元素并单击它，以便深入查看目录路径以到达所需的最终输出目录。

用鼠标激活所需行时。像往常一样，必须双击才能选中它！

这是单独“on switchDir”的代码：

on switchDir(directory, appName, selectDefault, createIt)
    local compname, bootvolume
    set compname to get computer name of (system info)
    set bootvolume to get boot volume of (system info)
    if directory is equal to "~" then set directory to system attribute ("HOME")
    if directory starts with "~/" then set directory to (system attribute ("HOME")) & text 2 through -1 of (get directory)
    if not checkPathExists(directory) then
        if createIt then
            do shell script ("mkdir -p " & (POSIX path of directory))
        else
            return false
        end if
    end if
    if directory begins with "/" then
        set directory to bootvolume & (get directory)
    end if
    tell application "System Events" to tell (process "iTunes"'s front window)
        delay 1
        click pop up button 1 of group 1 -- selects the drop-down box above the directory listing
        set max to the count of menu items of menu 1 of pop up button 1 of group 1 -- number of items in the drop-down menu
        set ndx to 1
        repeat while ndx ≤ max
            if the title of group 1's pop up button 1's menu 1's menu item ndx as string is equal to compname then -- found the absolute top-level directory
                click group 1's pop up button 1's menu 1's menu item ndx - so choose it and go to next part of navigation
                exit repeat
            else -- keep looking
                set ndx to (get ndx) + 1
            end if
        end repeat
        if ndx > max then error "Never found " & compname
        set thePath to every item of my splitString(directory, "/") -- thePath equals every individual folder in the path's name in order
        repeat with dir in thePath
            set max to the (count of rows in outline 1 of scroll area 1 of splitter group 1 of group 1) -- max equals the number of rows in the "directory contents" list box
            log max
            set ndx to 2 -- row 1 is just the colum titles
            repeat while ndx ≤ max
                log the value of text field 1 of UI element 1 of row ndx of outline 1 of scroll area 1 of splitter group 1 of splitter group 1 of group 1 as string
                log the value of text field 1 of UI element 1 of row ndx of outline 1 of scroll area 1 of splitter group 1 of splitter group 1 of group 1 as string is equal to dir as string
                if the value of text field 1 of UI element 1 of row ndx of outline 1 of scroll area 1 of splitter group 1 of splitter group 1 of group 1 as string is equal to dir as string then -- this is the row we want!
                    log "found " & dir & " at row " & ndx as string
                    select row ndx of outline 1 of scroll area 1 of splitter group 1 of splitter group 1 of group 1 -- included to make sure the reference in the "click" statement is correct
                    click row ndx of outline 1 of scroll area 1 of splitter group 1 of splitter group 1 of group 1 -- supposed to "click" the desired folder name to choose it and dive deeper, BUT IT DOESN'T ACTUALLY DO THAT!
                    exit repeat -- apparently never executed because the loop keeps going past finding the desired directory's name and crashes at the first blank row!
                else
                    set ndx to (get ndx) + 1
                end if
                if ndx > max then error "Never found " & dir
             end repeat
        end repeat
    end tell
    error "success"
    return true
end switchDir

错误发生在“on switchDir”中，其余代码仅包含在内，以便代码将在“脚本编辑器”下执行。“单击行 ndx ......” 语句和之后的“exit repeat”语句显然永远不会被执行，因为循环继续运行超过“found”的日志记录。. . . 因此在列表框中的第一个空白行上崩溃。找到的（带引号的）可用作查找代码的搜索词。

完整的、可运行的应用程序代码如下：

on splitString(theString, theDelimiter)
    set oldDelimiters to AppleScript's text item delimiters
    set AppleScript's text item delimiters to theDelimiter
    set theArray to every text item of theString
    set AppleScript's text item delimiters to oldDelimiters
    return theArray
end splitString

on checkPathExists(thePath)
    if thePath is equal to "~" then set thePath to system attribute ("HOME")
    if thePath starts with "~/" then set thePath to (system attribute ("HOME")) & text 2 through -1 of (get thePath)
    try
        POSIX file thePath as alias
        return true
    on error
        return false
    end try
end checkPathExists

on switchDir(directory, appName, selectDefault, createIt)
    local compname, bootvolume
    set compname to get computer name of (system info)
    set bootvolume to get boot volume of (system info)
    if directory is equal to "~" then set directory to system attribute ("HOME")
    if directory starts with "~/" then set directory to (system attribute ("HOME")) & text 2 through -1 of (get directory)
    if not checkPathExists(directory) then
        if createIt then
            do shell script ("mkdir -p " & (POSIX path of directory))
        else
            return false
        end if
    end if
    if directory begins with "/" then
        set directory to bootvolume & (get directory)
    end if
    tell application "System Events" to tell (process "iTunes"'s front window)
        delay 1
        click pop up button 1 of group 1 -- selects the drop-down box above the directory listing
        set max to the count of menu items of menu 1 of pop up button 1 of group 1 -- number of items in the drop-down menu
        set ndx to 1
        repeat while ndx ≤ max
            if the title of group 1's pop up button 1's menu 1's menu item ndx as string is equal to compname then -- found the absolute top-level directory
                click group 1's pop up button 1's menu 1's menu item ndx - so choose it and go to next part of navigation
                exit repeat
            else -- keep looking
                set ndx to (get ndx) + 1
            end if
        end repeat
        if ndx > max then error "Never found " & compname
        set thePath to every item of my splitString(directory, "/") -- thePath equals every individual folder in the path's name in order
        repeat with dir in thePath
            set max to the (count of rows in outline 1 of scroll area 1 of splitter group 1 of group 1) -- max equals the number of rows in the "directory contents" list box
            log max
            set ndx to 2 -- row 1 is just the colum titles
            repeat while ndx ≤ max
                log the value of text field 1 of UI element 1 of row ndx of outline 1 of scroll area 1 of splitter group 1 of splitter group 1 of group 1 as string
                log the value of text field 1 of UI element 1 of row ndx of outline 1 of scroll area 1 of splitter group 1 of splitter group 1 of group 1 as string is equal to dir as string
                if the value of text field 1 of UI element 1 of row ndx of outline 1 of scroll area 1 of splitter group 1 of splitter group 1 of group 1 as string is equal to dir as string then -- this is the row we want!
                    log "found " & dir & " at row " & ndx as string
                    select row ndx of outline 1 of scroll area 1 of splitter group 1 of splitter group 1 of group 1 -- included to make sure the reference in the "click" statement is correct
                    click row ndx of outline 1 of scroll area 1 of splitter group 1 of splitter group 1 of group 1 -- supposed to "click" the desired folder name to choose it and dive deeper, BUT IT DOESN'T ACTUALLY DO THAT!
                    exit repeat -- apparently never executed because the loop keeps going past finding the desired directory's name and crashes at the first blank row!
                else
                    set ndx to (get ndx) + 1
                end if
                if ndx > max then error "Never found " & dir
             end repeat
        end repeat
    end tell
    error "success"
    return true
end switchDir

set directory to "/Users/bryandunphy/Music"
try
    tell application "iTunes" to quit
end try
tell application "System Events"
    key down option
    tell application "iTunes" to activate
    key up option
    repeat until process "iTunes" exists
        delay 0.5
    end repeat
    click process "iTunes"'s window 1's button 2
    my switchDir(directory, "iTunes", false, true)
    delay 2
    set libraryName to value of text field "Save As:" of window "New iTunes Library" of process "iTunes"
    delay 2
    click process "iTunes"'s window "New iTunes Library"'s button "Save"
end tell
return libraryName

任何关于错误原因和/或如何修复它的想法将不胜感激。

4

1 回答 1

0

我重构了你的 onSwitchDir 函数，使它在我的机器上工作，并使它更具可读性。

我还添加了大量日志记录以帮助排除故障，请随时删除。

on switchDir(directory, appName, selectDefault, createIt)

    local compname, bootvolume
    set sysInfo to (system info) -- cache value to reduce processing time
    set compname to get computer name of sysInfo
    log "compname: " & compname
    set bootvolume to get boot volume of sysInfo
    log "bootvolume: " & bootvolume
    if directory is equal to "~" then set directory to system attribute ("HOME")
    if directory starts with "~/" then set directory to (system attribute ("HOME")) & text 2 through -1 of (get directory)

    if not checkPathExists(directory) then
        if createIt then
            do shell script ("mkdir -p " & (POSIX path of directory))
        else
            return false
        end if
    end if

    if directory begins with "/" then
        set directory to bootvolume & (get directory)
    end if

    tell application "System Events" to tell (process "iTunes"'s front window)

        -- ensure view is set to expanded view
        try
            click pop up button 1 of group 1
        on error
            key code 81 using {command down} -- expand view
            delay 2 -- esnure it finishes expanding before continuing
        end try

        -- name the item, making the code more readable
        set dropDownMenuBtn to menu 1 of pop up button 1 of group 1

        click dropDownMenuBtn -- selects the drop-down box above the directory listing

        -- Set drop-down menu to go to system's root folder
        -- Variation of solution from http://stackoverflow.com/questions/13415994/how-to-get-the-number-of-items-in-a-pop-up-menu-without-opening-it-using-applesc
        tell pop up button 1 of group 1
            if value of it is not equal to compname then
                set menuItemTitles to name of menu items of menu 1
                --check if the menu item exists
                if compname is in menuItemTitles then
                    --menu item exists; click on it
                    click menu item compname of menu 1
                    log "yay! found it! setting menu to item " & compname
                else
                    --the menu item to select doesn't exist; hide the menu
                    log "bummer! " & compname & " doesn't exist"
                    key code 53
                end if
            else
                log "yay! menu already set to " & compname
            end if
        end tell

        -- Make iTunes dialog navigate to root folder
        set thePath to every item of my splitString(directory, "/") -- thePath equals every individual folder in the path's name in order
        log "thePath: " & thePath

        set isFound to false -- so we can exit the repeat loop when needed

        repeat with dir in thePath

            if isFound is false then

                -- set reference to UI element for readability
                set theOutline to outline 1 of scroll area 1 of splitter group 1 of splitter group 1 of group 1

                set max to the (count of rows in theOutline) -- max equals the number of rows in the "directory contents" list box
                log "max for " & dir & ": " & max

                set ndx to 2 -- row 1 is just the column titles

                repeat while ndx ≤ max

                    -- set reference to item for readability
                    set theRow to row ndx of theOutline

                    -- set reference to item for readability                    
                    set theElement to text field 1 of UI element 1 of theRow

                    -- if we have found the appropriate item
                    if the value of theElement is equal to dir as string then

                        -- set focus so we can use keyboard commands on it
                        set value of attribute "AXFocused" of theOutline to true

                        -- select the item in the list
                        select theRow

                        -- set boolean so we can avoid re-running the repeat loop
                        set isFound to true

                        -- exit inner repeat
                        exit repeat

                    else

                        set ndx to (get ndx) + 1

                    end if

                    if ndx > max then error "Never found " & dir

                end repeat

            else

                -- exit outer repeat
                exit repeat

            end if

        end repeat

        -- CMD-o to open the selected directory
        keystroke "o" using {command down}

    end tell

end switchDir

set directory to "/Users/username/Music"

try
    tell application "iTunes" to quit
end try

tell application "System Events"
    key down option
    tell application "iTunes" to activate
    key up option
    repeat until process "iTunes" exists
        delay 0.5
    end repeat
    click process "iTunes"'s window 1's button 2
    my switchDir(directory, "iTunes", false, true)
    delay 0.5
    set libraryName to value of text field "Save As:" of window "New iTunes Library" of process "iTunes"
    delay 0.5
    click process "iTunes"'s window "New iTunes Library"'s button "Save"
end tell
return libraryName

值得注意的变化：

  • 我更改了退出重复循环的处理；exit repeat您的代码有一个缺陷，即使在发出之后也会导致重复循环继续退出
  • 我减少了对 System Info 的调用次数，从而加快了脚本速度
  • 我创建了变量作为对之类的项目的引用menu 1 of pop up button 1 of group 1，从而使脚本不那么密集且更易于阅读
  • 我更改了选择下拉菜单项的方法（我发现此代码更易于遵循）
  • 我添加了keystroke "o"命令，但是将它放在重复循环之后（由于某种原因，它在循环中不起作用）
  • 我添加了一些错误处理以使脚本在我的系统上运行；例如，如果“新建库”窗口已打开但处于紧凑模式，则group 1引用将导致错误。通过确保窗口被扩展，group 1解决，我不再得到错误。

请注意，此脚本的结果是 iTunes 警告它无法在请求的位置创建新库。我相信这是因为我只有你整个脚本的一个片段。我想你有代码的另一端，可以解决这个问题。如果是这样，您应该能够毫不费力地将这些更改合并到您的项目中。

于 2017-03-17T00:31:11.700 回答