Zum Hauptinhalt gehen

⚠️ Please note that this topic or post has been archived. The information contained here may no longer be accurate or up-to-date. ⚠️

An AppleScript to to find Images with offline files

Eric Valk
Here is my AppleScript to identify images (items) whose files are missing or offline. This may not be terribly useful if you have 100's of images in a Catalog, but if you have 1000's of images or 10's of 1000';s of images in a catalog, then finding items with missing files by inspection is tedious and inaccurate.

Once files have been identified as missing, then other actions are needed. These actions are not included in the AppleScript.

  • Check if the missing files are on a drive which is not connected. Easy Fix.

  • The file may have been accidently deleted. Check OS X Trash. Check Capture One Trash.

  • The file may have been moved. Use the search bar in OSXs Finder to locate the file

  • Failing that, open Terminal and execute: sudo find -x / -iname "*thefilename*"

  • Failing that, use Time Machine to retrieve the file

This AppleScript can report results by Dialog, by Notifications, through Text Edit, onthe ClipBoard, and by adding the images to a Capture One collection. This Applescript has its own GUI to configure its options and settings.

This Applescript can be compiled as an Application and added to the Capture One Scripts menu.

In implementing the GUI, the length of this Applescript has become 10% larger than PhaseOnes limit for a forum posting. Therefore I have broken it into two parts. The part in this posting is the first part, which is all the code specific to this AppleScript. The second part, which will be in a reply to this posting, is a common part which is used by all my AppleScripts.

Both parts should be copied and pasted into one OSX Script Editor document in sequence.

The First Part
1 edit

## Notes
## Applescript to search a COP 11 Catalog for Images with offline files
## Version 1.29 !! NO GUARANTEE OF SUPPORT !! Best effort
## Copyright 2018 Eric Valk, Ottawa, Canada Creative Commons License CC BY-SA No Warranty.

-- ***To Setup
-- Start Script Editor, open a new (blank) file, copy and paste both parts into one Script Editor Document, compile (hammer symbol) and save.
-- Best if you make "Scripts" folder somewhere in your Documents or Desktop
-- This file is suitable to use as an application in Capture One Pro's Script Menu

-- *** Operation in Script Editor
-- Open the compiled and saved document
-- Open the Script Editor log window, and select the messages tab
-- The user may elect to set defaults for enabling or disabling results in Notifications, TextEdit and Script Editor by setting the "enable" variables at beginning of the script
-- The user may change the default amount of reporting by setting the "debugLogLevel" and "ResultsFileMaxDebug" variables at beginning of the script
-- There is a GUI which allows the user to modify settings
-- If you are having some issues, then set debugLogLevel to 3 and send me the results from Script Editors log window, or Text Edit.

## Values in this section are safe to change, within limits indicated. Support is likely but no commitment

use AppleScript version "2.5"
use scripting additions

set debugLogLevel to 0 -- 0...6 Values >1 result in increasing amounts of debug data that takes longer to report
set enableResultsFile to true -- (true/false)
set enableResultsByDialog to false -- (true/false)
set enableResultsByClipboard to false -- (true/false)
set enableNotifications to true -- (true/false)
set enableResultsInCollection to false -- (true/false)
set ResultsFileMaxDebug to 2 -- 1...6 suggest not more than 2
set SearchAllImages to true -- If set to true, then only "all Images" is searched, If false, the current user collection is searched
set ExcludedSubCollectionNames to {} -- Collections in this list will not be searched
set maxSearchlevel to 100 -- Reduce if you only want to search top level collections Range 1.... Verified to 100
set enableFastGUI to true -- (true/false)


## ***** Not safe to change stuff below this line, unless you have some background in SW development.
## I generally won't help much if you change stuff below this line. I may explain the design intent.

tell application "System Events" to set parent_name to name of current application

tell application "Finder"
set script_path to path to me
set Script_Title to name of file script_path as text
end tell

set SE_Parent to (parent_name = "Script Editor")
set SE_Logging to SE_Parent as boolean
set COPisParent to (parent_name = "Capture One 11")
set Result_DocName to "COP_Image_Search.txt"
set Result_AlbumRoot to "NotInUserCollection"
set Result_ProjectName to "ScriptSearchResults"

set ResultMethod to my InitializeLoqqing3(Result_DocName, Script_Title)
loq_Results2(0, false, ("Started from: " & parent_name & " Action: Find images which refer to a missing file"))

set minCOPversion to "11.2"
validateCOP(minCOPversion)
validateCOPdoc3({"catalog"})
validateCOPcollections3()
tell application "Capture One 11"
set countCollectionImages to count of images -- images in the current collection
tell document COPDocName to tell collection "All Images" to set count_All_Images to get count of every image --variants in the All Images Collection
end tell

if not selectedCollectionIsUser then set SearchAllImages to true

CO_settingHandler()

if enableResultsInCollection then
set Result_AlbumRoot to "OfflineFile"
set Result_ProjectName to "ScriptSearchResults"
set Coll_Init_Text to "Images with offline files"
InitializeResultsCollection(Result_ProjectName, Result_AlbumRoot, Coll_Init_Text)
end if

set Mark1 to GetTick_Now()


tell application "System Events" to set frontmost of process "Capture One 11" to true

## Start the search

if SearchAllImages then
tell application "Capture One 11" to tell COPDocRef
set thisCollectionRef to get the collection "All Images"
set thisColl_name to (get name of thisCollectionRef) as text
set thisCollKind to my convertKind((get kind of thisCollectionRef))
end tell

set countProcessedImages to count_All_Images
else
tell application "Capture One 11" to tell COPDocRef
set thisCollectionRef to current collection
set thisColl_name to (get name of thisCollectionRef) as text
set thisCollKind to my convertKind((get kind of thisCollectionRef))
end tell
set countProcessedImages to countCollectionImages
end if

loq_Results2(3, false, ("In " & thisCollKind & " " & thisColl_name & " " & countProcessedImages & " Images"))

set nextSearchLevel to 1
set All_Found to true
set countImageNotFound to 0
set Coll_path to ">" & thisColl_name

set Mark2 to GetTick_Now()

if 0 < countProcessedImages then
set progress description to "Searching " & thisCollKind & " " & thisColl_name
if enableNotifications then display notification "Searching " & thisCollKind & " " & thisColl_name
set All_Found to my search_collection(thisCollectionRef, nextSearchLevel, Coll_path)
if All_Found then
my loq_Results2(0, false, "No Images with offline files found")
else
my loq_Results2(0, false, "Found " & countImageNotFound & " Images with offline or missing files")
end if
else
loq_Results2(0, true, ("There are no Images in " & thisCollKind & " " & thisColl_name & " - unable to proceed "))
end if

set Mark3 to GetTick_Now()


tell application "System Events" to set frontmost of process "Capture One 11" to true
tell current application to set date_string to (current date) as text

set elapsedTime1s to roundDecimals(Mark2 - Mark1, 3)
set elapsedTime2s to roundDecimals(Mark3 - Mark2, 3)

if countProcessedImages > 0 then
set searchTimePerVariant to get ((Mark3 - Mark2) / countProcessedImages)
set searchTimePerVariantDisplay to roundDecimals(searchTimePerVariant, 3)
else
set searchTimePerVariantDisplay to "--"
end if

loq_Results2(1, false, (return & "SetupTime: " & elapsedTime1s & "sec Process time: " & elapsedTime2s & "sec per Image: " & searchTimePerVariantDisplay & "sec"))

loq_Results2(0, true, (return & "*** Done on " & date_string & " *** " & countImageNotFound & " of " & countProcessedImages & " images have offline files" & return & return))

finalCleanup() -- cleanup large arrays to avoid the situation where the script cannot be saved

## Arrange the windows to show results on top
tell application "System Events" to set frontmost of process "Capture One 11" to true

if enableResultsFile then
tell application "System Events" to set frontmost of process "TextEdit" to true
else
tell application "System Events" to set frontmost of process parent_name to true
end if


## Script Specific Handlers #######

on search_collection(thisCollection, searchLevel, thisCollPath)
-- recursive handler to search a collection and it's subcollections

global debugLogLevel, enableResultsByDialog, maxSearchlevel, COPDocName, COPDocRef, countImageNotFound, enableResultsInCollection, ref2ResultAlbum
set nextSearchLevel to searchLevel + 1

tell application "Capture One 11" to tell thisCollection
set thisCollKind to my convertKind(kind)
set everyImagePathList to get path of every image
end tell


loq_Results2(2, false, ("Searching " & thisCollKind & " " & thisCollPath & ":"))
set loc_Text to "In " & thisCollKind & " " & thisCollPath & ":"
set first_Hit to true
set All_Found to true
set everyImageCount to count of everyImagePathList

repeat with ImageCounter from 1 to everyImageCount
set imagepath to item ImageCounter of everyImagePathList
tell application "System Events" to if not (get exists file imagepath) then
if first_Hit then my loq_Results2(0, false, (return & loc_Text))
set first_Hit to false
tell application "Capture One 11" to tell COPDocRef to tell thisCollection to tell image ImageCounter
set imageName to name
if enableResultsInCollection then add inside ref2ResultAlbum variants (get variants)
end tell
my loq_Results2(0, false, ("File for " & imageName & " not found at " & imagepath))
set countImageNotFound to countImageNotFound + 1
set All_Found to false
end if
end repeat
loq_Results2(2, false, ("Done " & thisCollKind & " " & thisCollPath & " "))

if thisCollKind ≠ "project" then -- do not search collections contained inside a project to avoid repeated "hits" of the same image
tell application "Capture One 11" to tell COPDocRef to set subCollections to (get every collection of thisCollection)
set nextSearchLevel to searchLevel + 1
if nextSearchLevel ≤ maxSearchlevel then
repeat with searchCollection in subCollections
tell application "Capture One 11" to tell COPDocRef to set nextCollName to (get name of searchCollection) as text
set progress description to "Searching " & thisCollKind & " " & nextCollName
if enableNotifications then display notification "Searching " & thisCollKind & " " & thisColl_name
set nextCollPath to thisCollPath & ">" & nextCollName
set All_Found_here to my search_collection(searchCollection, nextSearchLevel, nextCollPath)
set All_Found to All_Found and All_Found_here
end repeat
end if
end if

return All_Found
end search_collection

on finalCleanup()
## clean up the large arrays to avoid a large stack that may prevent AppleScript from saving the script
global everyImagePathList, everyImageNameList, everyTopCollection, namesTopCollections, namesTopCollections, kindsTopCollections_p, search_name_list
## Cleanup Memory to avoid Script Editor having a stack overflow error on saving; this data will be dirty on the next run anyway
set everyImageNameList to {}
set everyImagePathList to {}
set everyTopCollection to {}
set namesTopCollections to {}
set kindsTopCollections_p to {}
end finalCleanup

on CO_settingHandler()
## Copyright 2018 Eric Valk, Ottawa, Canada Creative Commons License CC BY-SA No Warranty.
## Initialisation Handler for scripts using Capture One Pro
## Collects and sets up information about the Script settings for the GUI handler

global parent_name, Script_Title, enableFastGUI, debugLogLevel, ResultsFileMaxDebug, count_All_Images, countCollectionImages
global theAppName, copVersion, COPDocName, COPDocKind_s, COPDocRef
global namesTopCollections, bottomUserCollectionIndex, topUserCollectionIndex, selectedCollectionRef, nameSelectedCollection, selectedCollectionIsUser, kindSelectedCollection_s
global SearchDiskFileSystem, SearchRecentImports, SearchRecentCaptures, SearchTrash, SearchAllImages, ExcludedSubCollectionNames, maxSearchlevel
global SE_Logging, SE_Parent, enableResultsFile, enableResultsByDialog, enableResultsByClipboard, enableNotifications, ResultMethod, Result_DocName, enableResultsInCollection

set basic_setting_list to {}
set end of basic_setting_list to {SettingName:(get copVersion & " in " & COPDocKind_s & " "" & COPDocName & "" with " & count_All_Images & " Images")}
set end of basic_setting_list to {SettingName:(get kindSelectedCollection_s & " "" & nameSelectedCollection & "" with " & countCollectionImages & " images")}
set end of basic_setting_list to {SettingName:"Debug Level", SettingValue:debugLogLevel}
set end of basic_setting_list to {SettingName:"Search All Images", SettingValue:SearchAllImages}
set end of basic_setting_list to {SettingName:"Results by " & ResultMethod}
if settingGUI_Bypass(basic_setting_list) then
loq_Results2(0, false, joinListToString(basic_setting_list, return))
return
end if

set helpdisplaydialog to "display Dialog when a file is not found"
set helpdebugLogLevel to "the amount of debug info reported"
set helpmaxSearchlevel to "lowest subcollection level which is searched"
set helpExcludedCollection to "collections with these names will not be searched"
set helpResultsInCollection to "images not in any user colection will be added to the results album"
set helpFastGUI to "enable faster GUI response, with less help text"

set initialLogging to {(get enableNotifications as boolean), (get enableResultsByDialog as boolean), (get enableResultsFile as boolean), (get enableResultsByClipboard as boolean), (get SE_Logging as boolean)}

set setting_list to {}
set end of setting_list to {SettingID:1, SettingName:"Parent Application", SettingValue:(""" & parent_name & """), UserSet:false}
set end of setting_list to {SettingID:2, SettingName:"Document", SettingValue:(COPDocKind_s & " "" & COPDocName & "" with " & count_All_Images & " Images"), UserSet:false}
set end of setting_list to {SettingID:3, SettingName:"Collection", SettingHelp:"", SettingValue:(kindSelectedCollection_s & " " & nameSelectedCollection & " with " & countCollectionImages & " images"), UserSet:false}

if not selectedCollectionIsUser then
set end of setting_list to {SettingID:8, SettingName:"Search All Images", SettingValue:SearchAllImages, UserSet:false, SettingClass:"Boolean"}
else
set end of setting_list to {SettingID:8, SettingName:"Search All Images", SettingValue:(a reference to SearchAllImages), UserSet:true, SettingClass:"Boolean"}
tell application "Capture One 11" to tell selectedCollectionRef to set nameSubCollections to (get name of every collection)
if 0 < length of nameSubCollections then
set end of setting_list to {SettingID:10, SettingName:"Excluded Collection Names", SettingHelp:"", SettingValue:(a reference to ExcludedSubCollectionNames), UserSet:true, SettingClass:"List_Text", SettingLimited:false}
set end of setting_list to {SettingID:11, SettingName:"Excluded Collection Names (by list)", SettingHelp:"", SettingValue:(a reference to ExcludedSubCollectionNames), UserSet:true, SettingClass:"List_Text", SettingLimited:"List", SettingLimit_L:nameSubCollections}
end if
end if

set end of setting_list to {SettingID:12, SettingName:"Debug Level", SettingHelp:helpdebugLogLevel, SettingValue:(a reference to debugLogLevel), UserSet:true, SettingClass:"Integer", SettingLimited:"Min_Max", SettingLimit_L:{0, 6}}
set end of setting_list to {SettingID:13, SettingName:"Highest Debug Level in Result File", SettingHelp:"", SettingValue:(a reference to ResultsFileMaxDebug), UserSet:true, SettingClass:"Integer", SettingLimited:"Min_Max", SettingLimit_L:{1, 6}}
set end of setting_list to {SettingID:14, SettingName:"Maximum Search Level", SettingHelp:helpmaxSearchlevel, SettingValue:(a reference to maxSearchlevel), UserSet:true, SettingClass:"Integer", SettingLimited:"Min", SettingLimit_L:{1}}
set end of setting_list to {SettingID:15, SettingName:"Enable Results in Collection", SettingHelp:helpResultsInCollection, SettingValue:(a reference to enableResultsInCollection), UserSet:true, SettingClass:"Boolean"}
set end of setting_list to {SettingID:16, SettingName:"Enable Results in Text Edit", SettingHelp:"", SettingValue:(a reference to enableResultsFile), UserSet:true, SettingClass:"Boolean"}
set end of setting_list to {SettingID:17, SettingName:"Enable Results in Dialog", SettingHelp:helpdisplaydialog, SettingValue:(a reference to enableResultsByDialog), UserSet:true, SettingClass:"Boolean"}
set end of setting_list to {SettingID:18, SettingName:"Enable Results in Clipboard", SettingHelp:"", SettingValue:(a reference to enableResultsByClipboard), UserSet:true, SettingClass:"Boolean"}
set end of setting_list to {SettingID:19, SettingName:"Enable Results in Notifications", SettingHelp:"", SettingValue:(a reference to enableNotifications), UserSet:true, SettingClass:"Boolean"}
set end of setting_list to {SettingID:20, SettingName:"Results Logged by Script Editor", SettingValue:(a reference to SE_Logging), UserSet:SE_Parent, SettingClass:"Boolean"}
set end of setting_list to {SettingID:23, SettingName:"Enable Fast GUI Response", SettingHelp:helpFastGUI, SettingValue:(a reference to enableFastGUI), UserSet:true, SettingClass:"Boolean"}

set settings_display_string to settingGUI(setting_list)

if ((not (get enableNotifications as boolean)) and (not (get enableResultsByDialog as boolean)) and (not (get enableResultsFile as boolean)) and (not (get SE_Logging as boolean))) then
display alert "You have turned off all results notification!! " message "Turning results by Dialog Display on" as critical giving up after 30
set enableResultsByDialog to true
end if
if (initialLogging ≠ {(get enableNotifications as boolean), (get enableResultsByDialog as boolean), (get enableResultsFile as boolean), (get enableResultsByClipboard as boolean), (get SE_Logging as boolean)}) then
set ResultMethod to my InitializeLoqqing3(Result_DocName, Script_Title)
end if
set settings_display_string to settings_display_string & "Result Logging Methods: " & ResultMethod & return

loq_Results2(1, false, (return & "Settings:" & return & settings_display_string))

end CO_settingHandler

## Copy the second part after this line #####
0

Kommentare

2 Kommentare

Datum Stimmen
  • Eric Valk
    The Second (Common) Part

    This applescript code is a common set of functions (handles) used by all my AppleScripts. Several other postings will refer to this one. Copy and paste this code at the end of the other Applescript.


    ## Capture One General Handlers Version 2018/08/28 #######

    on validateCOP(minCOPversionstr)
    ## Copyright 2018 Eric Valk, Ottawa, Canada Creative Commons License CC BY-SA No Warranty.
    ## General purpose initialisation handler for scripts using Capture One Pro
    ## Extract and check basic information about the Capture One application

    global debugLogLevel, theAppName, copVersion, copDetailedVersion, enableNotifications
    tell application "System Events"
    set COPProcList to every process whose name contains "Capture One" and background only is false
    if debugLogLevel ≥ 2 then
    set COPProcNameList to name of every process whose name contains "Capture One" and background only is false
    my loq_Results2(2, false, ("COP Processes:" & COPProcNameList))
    end if
    end tell
    if (count of COPProcList) = 0 then my loqqed_Error_Halt3(true, "COP is not running")
    if (count of COPProcList) ≠ 1 then my loqqed_Error_Halt3(true, "Unexpected: >1 COP instances")
    set theAppRef to item 1 of COPProcList
    tell application "System Events" to set theAppName to ((get name of theAppRef) as text)
    tell application "System Events" to set copDetailedVersion to get version of my application theAppName

    tell application "Capture One 11" to set copVersion to (get app version)

    if debugLogLevel ≥ 2 then
    --properties of application "Capture One 11"
    tell application "System Events"
    my loq_Results2(2, false, ("All Processes: " & (get my joinListToString((get name of every process whose background only is false), ", "))))
    end tell
    loq_Results2(2, false, ("theAppName: " & theAppName))
    loq_Results2(2, false, ("COP Version: " & copVersion))
    loq_Results2(2, false, ("COP Detailed Version: " & copDetailedVersion))
    end if

    if the theAppName ≠ "Capture One 11" then
    if enableNotifications then display notification "Wrong COP Application"
    my loqqed_Error_Halt3(true, "Found COP Application " & theAppName & " The only supported COP application is Capture One 11")
    end if

    set numCOPversion to (splitStringToList((word -1 of copVersion), "."))
    set minCOPversion to (splitStringToList(minCOPversionstr, "."))

    set digit_mult to 1000000
    set Version_digit to 0
    repeat with dig_ctr from 1 to count of numCOPversion
    set digit_mult to digit_mult / 100
    set Version_digit to Version_digit + (get item dig_ctr of numCOPversion as integer) * digit_mult
    end repeat

    set digit_mult to 1000000
    set min_digit to 0
    repeat with dig_ctr from 1 to count of minCOPversion
    set digit_mult to digit_mult / 100
    set min_digit to min_digit + (get item dig_ctr of minCOPversion as integer) * digit_mult
    end repeat

    if Version_digit < min_digit then
    if enableNotifications then display notification "COP Version is too low"
    my loqqed_Error_Halt3(true, "This COP Version is " & (word -1 of copVersion) & " - the minimum supported COP version is " & minCOPversionstr)
    end if

    tell application "System Events" to set frontmost of process theAppName to true
    loq_Results2(1, false, ("Capture One version: " & copDetailedVersion))
    end validateCOP

    on validateCOPdoc3(COP_kind_list)
    ## Copyright 2018 Eric Valk, Ottawa, Canada Creative Commons License CC BY-SA No Warranty.
    ## General purpose initialisation handler for scripts using Capture One Pro
    ## Extract and check basic information about the current document
    global debugLogLevel, COPDocName, COPDocKind_s, COPDocRef, enableNotifications

    try
    tell application "Capture One 11" to set COPDocName to get name of current document
    on error
    tell application "System Events" to tell process "Capture One 11" to ¬
    if (1 = (count of windows)) and ("" = name of window 1) then ¬
    tell window 1 to tell group 1 to tell button "Cancel" to click
    tell application "Capture One 11" to set COPDocName to get name of current document
    end try

    tell application "Capture One 11"
    set current_doc_kind_p to (get kind of current document)
    set current_doc_ref_list to (get every document whose name is COPDocName and kind is current_doc_kind_p)
    set number_of_hits to count of current_doc_ref_list
    end tell
    set COPDocKind_s to convertKind(current_doc_kind_p)
    if COPDocKind_s = "session" then set COPDocName to text 1 thru ((offset of "." in COPDocName) - 1) of COPDocName


    loq_Results2(2, false, ("Is: " & COPDocKind_s & " was: " & (get current_doc_kind_p as text)))
    loq_Results2(2, false, ("Found Documents: " & number_of_hits))

    if COP_kind_list does not contain COPDocKind_s then loq_Results2(0, false, (COPDocName & " is a " & COPDocKind_s & " -- unsupported type of document"))

    if number_of_hits = 0 then
    loqqed_Error_Halt3(false, "Could not find find " & COPDocKind_s & COPDocName)
    error "Could not find find " & COPDocKind_s & COPDocName
    else if number_of_hits > 1 then
    loqqed_Error_Halt3(false, "Found more than one " & COPDocKind_s & " with the name " & COPDocName)
    error "Found more than one " & COPDocKind_s & " with the name " & COPDocName
    else
    tell application "Capture One 11" to set COPDocRef to item 1 of current_doc_ref_list
    end if

    loq_Results2(1, false, ("CO Document: " & COPDocKind_s & " " & COPDocName))
    end validateCOPdoc3

    on validateCOPcollections3()
    ## Copyright 2018 Eric Valk, Ottawa, Canada Creative Commons License CC BY-SA No Warranty.
    ## General purpose initialisation handler for scripts using Capture One Pro
    ## Extract basic information regarding the current collection, and thhe top level collections
    global debugLogLevel, COPDocName, COPDocKind_s, COPDocRef, enableNotifications
    global everyTopCollection, namesTopCollections, kindsTopCollections_p, countTopCollections, selectedCollectionRef, selectedCollectionIndex, kindSelectedCollection_s, nameSelectedCollection
    global selectedCollectionMirroredAtTopLast, selectedCollectionIsUser, bottomUserCollectionIndex, topUserCollectionIndex
    -- selectedCollectionMirroredAtTopLast replaces selectedCollectionAtTopEnd
    -- bottomUserCollectionIndex, topUserCollectionIndex replaces indexInCatalog

    tell application "Capture One 11" to tell COPDocRef
    try
    set selectedCollectionRef to get current collection
    set {nameSelectedCollection, kindSelectedCollection_p} to {name, kind} of selectedCollectionRef
    on error
    my loqqed_Error_Halt3(true, "There is no collection selected in " & COPDocKind_s & " " & COPDocName)
    end try
    set everyTopCollection to get every collection
    set {namesTopCollections, kindsTopCollections_p} to {name, kind} of every collection
    end tell
    set kindSelectedCollection_s to convertKind(kindSelectedCollection_p)
    set countTopCollections to count of namesTopCollections

    repeat with collectionCounter from 1 to countTopCollections
    if (nameSelectedCollection = item collectionCounter of namesTopCollections) and (kindSelectedCollection_s = convertKind(item collectionCounter of kindsTopCollections_p)) then
    set selectedCollectionIndex to collectionCounter
    exit repeat
    end if
    end repeat

    if COPDocKind_s = "catalog" then
    repeat with collectionCounter from countTopCollections to 1 by -1
    if ("in Catalog" = item collectionCounter of namesTopCollections) and ("smart album" = convertKind(item collectionCounter of kindsTopCollections_p)) then
    set topUserCollectionIndex to collectionCounter - 1
    exit repeat
    end if
    end repeat
    repeat with collectionCounter from 1 to countTopCollections
    if ("Trash" = item collectionCounter of namesTopCollections) and ("smart album" = convertKind(item collectionCounter of kindsTopCollections_p)) then
    set bottomUserCollectionIndex to collectionCounter + 1
    exit repeat
    end if
    end repeat
    set selectedCollectionMirroredAtTopLast to (selectedCollectionIndex = countTopCollections) and ({"catalog folder", "favorite"} does not contain convertKind(last item of kindsTopCollections_p))
    set selectedCollectionIsUser to (selectedCollectionMirroredAtTopLast or ((selectedCollectionIndex ≥ bottomUserCollectionIndex) and (selectedCollectionIndex ≤ topUserCollectionIndex)))

    else if COPDocKind_s = "session" then
    repeat with collectionCounter from countTopCollections to 1 by -1
    if ("favorite" ≠ convertKind(item collectionCounter of kindsTopCollections_p)) then
    set topUserCollectionIndex to collectionCounter
    exit repeat
    end if
    end repeat
    repeat with collectionCounter from 1 to countTopCollections
    if ("Trash" = item collectionCounter of namesTopCollections) and ("favorite" = convertKind(item collectionCounter of kindsTopCollections_p)) then
    set bottomUserCollectionIndex to collectionCounter + 1
    exit repeat
    end if
    end repeat
    set selectedCollectionMirroredAtTopLast to false
    set selectedCollectionIsUser to ({"project", "album", "group", "smart album"} contains kindSelectedCollection_s)
    end if
    end validateCOPcollections3

    on validateCOPvariant(theVariant, theVariantID)
    ## Copyright 2018 Eric Valk, Ottawa, Canada Creative Commons License CC BY-SA No Warranty.
    ## General Purpose Handler for scripts using Capture One Pro
    ## Capture One identifies a variant as "variant n of collrction m of ..."
    ## If the user changes the order of variant of a collection, "variant n" refers to a different variant, and a running script will behave unpredicatably
    ## The usefulness of this handler depends on some other part of the script obtaining a list of the variant IDs when the script starts
    ## The handler is provided with the variant reference and the original variant ID.
    ## This handler obtains the variant's ID from Capture One, and compares that to the original variant ID. If there is a difference, the script is halted
    ## This handler should be called when processing of a variant starts, and just before any operation that change something of the variant

    global COPisParent, enableNotifications
    if COPisParent then return -- when Capture One is running a script, the GUI is locked ... no need to check

    tell application "Capture One 11" to tell theVariant to if theVariantID = id then return
    loqqed_Error_Halt3(true, "Variant ID Mismatch, most likely due to manipulation of Capture One by the user while the script is running")

    end validateCOPvariant

    on convertKind(kind_p)
    ## Copyright 2018 Eric Valk, Ottawa, Canada Creative Commons License CC BY-SA No Warranty.
    ## General Purpose Handler for scripts using Capture One Pro
    ## Release 11 of Capture One returns the chevron form of the property "kind" when AppleScript is run as an Application
    ## This script converts the chevron form into the expected string
    ## Code looks ugly but executes in under 0.25 msec

    set kind_s to kind_p as text
    if (get text 1 of kind_s) ≠ "«" then return kind_s -- Check if the first character is a Chevron. If not, return the same string

    ## minimum 6 characters for valid logic. Normally 19
    if 6 > length of kind_s then loqqed_Error_Halt3(true, "convertKind received an unexpected Kind string: " & kind_s)

    set code_start to (get length of kind_s) - 4
    set kind_code to get (text code_start thru (code_start + 3) of kind_s)
    set kind_type to get text 1 thru 2 of kind_code
    set fail_flag to false

    if kind_type = "CC" then ## Collection Kinds
    if kind_code = "CCpj" then
    set kind_res to "project"
    else if kind_code = "CCgp" then
    set kind_res to "group"
    else if kind_code = "CCal" then
    set kind_res to "album"
    else if kind_code = "CCsm" then
    set kind_res to "smart album"
    else if kind_code = "CCfv" then
    set kind_res to "favorite"
    else if kind_code = "CCff" then
    set kind_res to "catalog folder"
    else
    set fail_flag to true
    end if

    else if kind_type = "CL" then ## Layer Kinds
    if kind_code = "CLbg" then
    set kind_res to "background"
    else if kind_code = "CLnm" then
    set kind_res to "adjustment"
    else if kind_code = "CLcl" then
    set kind_res to "clone"
    else if kind_code = "CLhl" then
    set kind_res to "heal"
    else
    set fail_flag to true
    end if

    else if kind_type = "CR" then ## Watermark Kinds
    if kind_code = "CRWn" then
    set kind_res to "none"
    else if kind_code = "CRWt" then
    set kind_res to "textual"
    else if kind_code = "CRWi" then
    set kind_res to "imagery"
    else
    set fail_flag to true
    end if

    else if kind_type = "CO" then ## Document Kinds
    if kind_code = "COct" then
    set kind_res to "catalog"
    else if kind_code = "COsd" then
    set kind_res to "session"
    else
    set fail_flag to true
    end if
    else
    set fail_flag to true
    end if

    if fail_flag then loqqed_Error_Halt3(true, "convertKind received an unexpected Kind string: " & kind_s)

    return kind_res
    end convertKind

    on InitializeResultsCollection(nameResultProject, nameResultAlbumRoot, Coll_Init_Text)
    ## Copyright 2018 Eric Valk, Ottawa, Canada Creative Commons License CC BY-SA No Warranty.
    ## General Purpose Handler for scripts using Capture One Pro
    ## Sets up a project and albums for collecting images

    global debugLogLevel, COPDocRef, ref2ResultAlbum, enableNotifications

    tell application "Capture One 11" to tell COPDocRef
    if not (exists collection named (get nameResultProject)) then
    set ref2ResultProject to make new collection with properties {kind:project, name:nameResultProject}
    else
    if ("project" = my convertKind(kind of (get collection named nameResultProject))) then
    set ref2ResultProject to collection named nameResultProject
    else
    my loqqed_Error_Halt3(true, ("A collection named "" & nameResultProject & "" already exists, and it is not a project."))
    end if
    end if
    end tell

    set coll_ctr to 1
    set nameResultAlbum to nameResultAlbumRoot & "_" & (get short date string of (get current date)) & "_"
    repeat
    tell application "Capture One 11" to tell ref2ResultProject
    if not (exists collection named (get nameResultAlbum & coll_ctr)) then
    set nameResultAlbum to (get nameResultAlbum & coll_ctr)
    set ref2ResultAlbum to make new collection with properties {kind:album, name:nameResultAlbum}
    exit repeat
    else
    set coll_ctr to coll_ctr + 1
    end if
    end tell
    end repeat

    if enableNotifications then display notification (Coll_Init_Text & " " & nameResultProject & ">" & nameResultAlbum)
    loq_Results2(1, false, (Coll_Init_Text & " " & nameResultProject & ">" & nameResultAlbum))

    end InitializeResultsCollection

    ## General Handlers Version 2018/08/26 #######

    on settingGUI_Bypass(theSettingList)
    ## Copyright 2018 Eric Valk, Ottawa, Canada Creative Commons License CC BY-SA No Warranty.
    ## General Purpose handler that provides a bypass to settingGUI()

    ####
    ## The Setting record
    ## SettingName Name of the Setting (text)
    ## SettingValue Value of the Setting (text)

    global debugLogLevel, parent_name, Script_Title
    tell application "System Events" to set frontmost of process parent_name to true

    set settings_display_string to ""
    repeat with theSetting_r in theSettingList
    set settings_display_string to settings_display_string & theSetting_r's SettingName
    try
    set theValueString to joinListToString(theSetting_r's SettingValue, ", ")
    if 0 < length of theValueString then set settings_display_string to settings_display_string & ": " & theValueString
    end try
    set settings_display_string to settings_display_string & return
    end repeat

    set debugButtonName to "Configure"
    set legendString to return & "Click "" & debugButtonName & "" to configure settings; "OK" to continue"
    try
    set dialog_result to display dialog settings_display_string & legendString with title "Settings for " & Script_Title ¬
    buttons {"Cancel", "OK", debugButtonName} default button "OK" cancel button "Cancel"
    on error errmess
    my loqqed_Error_Halt3(true, "User Cancelled the Script")
    end try

    return ("OK" = (get button returned of dialog_result))

    end settingGUI_Bypass

    on settingGUI(theSettingList)
    ## Copyright 2018 Eric Valk, Ottawa, Canada Creative Commons License CC BY-SA No Warranty.
    ## General Purpose handler that provides a user interface to control AppleScript settings

    #############
    ## The Setting record
    ## SettingID ID of the setting (integer)
    ## SettingName Name of the Setting (text)
    ## SettingHelp Help Text for the Setting
    ## SettingValue Value or Reference to the Global Variable which holds the option value (reference)
    ## UserSet True if the user can set this variable (boolean)
    ## SettingClass Class of the data representing the option {Boolean, Text, List_Text, Integer, Real} (text)
    ## SettingLimited How are the option values constrained {false, List&Free, List, Min_Max, Min, Max}
    ## SettingLimit_L The list of permissible values of the option (List of Text, List of Integer, List of Real, List of [Min],[Max])

    #############

    global debugLogLevel, parent_name, Script_Title, enableFastGUI

    copy {} to settings_ID_List
    repeat with theSetting_r in theSettingList -- Duplicate setting IDs cause subtle and bizarre errors - catch this problem
    set theSettingID to (get (theSetting_r's SettingID) as text)
    if settings_ID_List contains theSettingID then error "Duplicate Setting ID!! " & theSettingID
    set the end of settings_ID_List to theSettingID
    end repeat

    repeat
    tell application "System Events" to set frontmost of process parent_name to true

    set settings_display_string to ""
    repeat with theSetting_r in theSettingList
    set settings_display_string to settings_display_string & (theSetting_r's SettingName) & ": " & joinListToString((get contents of theSetting_r's SettingValue), ";")
    if theSetting_r's UserSet then set settings_display_string to settings_display_string & " *"
    set settings_display_string to settings_display_string & return
    end repeat

    set legendString to return & "Click "Edit" to edit items with an *asterisk*" & return & "Click "OK" to continue without editing settings"

    try
    set dialog_result to display dialog settings_display_string & legendString with title "Settings for " & Script_Title ¬
    buttons {"Cancel", "OK", "Edit"} default button "OK" cancel button "Cancel"
    on error errmess
    my loqqed_Error_Halt3(true, "User Cancelled the Script")
    end try

    if "OK" = (get button returned of dialog_result) then exit repeat -- Exit 3 of 3 from the handler

    set userCancelled to false
    repeat while userCancelled is false

    copy {} to settings_choose_List
    repeat with theSetting_r in theSettingList
    ##!!!## Do NOT screw with this line, or the list of text editing starts losing information ##!!!##
    if theSetting_r's UserSet then ¬
    copy (get ((theSetting_r's SettingID as text) & ": " & (theSetting_r's SettingName as text) & ": " & joinListToString((contents of theSetting_r's SettingValue), "; "))) to ¬
    the end of settings_choose_List
    end repeat

    set ChooseResult to (get choose from list settings_choose_List with title "Settings for " & Script_Title with prompt "Select an Item to Edit" cancel button name "Done" OK button name "Edit")

    if ChooseResult = false then exit repeat --main exit from this repeat loop

    set selectedSetting to item 1 of ChooseResult
    set selectedSettingID to get ((item 1 of (splitStringToList(selectedSetting, ":"))) as integer)

    set settingFound to false
    repeat with selectedSetting_r in theSettingList
    if selectedSettingID = (get selectedSetting_r's SettingID) then
    set settingFound to true
    exit repeat
    end if
    end repeat

    if not settingFound then
    loqqed_Error_Halt3(false, "Unexpected value found while finding setting: " & selectedSettingID)
    error "SW Error 1"
    end if

    set selectedSettingName to selectedSetting_r's SettingName as text
    set setting_Class to selectedSetting_r's SettingClass as text

    set hasFreeInput to true
    set hasSettingLimitType to false
    set hasSettingMin to false
    set hasSettingMax to false
    set hasSettingLimitList to false
    set theSettingMin to missing value
    set theSettingMax to missing value
    set theSettingLimitList to missing value

    try
    set SettingLimitType to get selectedSetting_r's SettingLimited as text -- this works even if the class is boolean
    set hasSettingLimitType to true
    if false = (get SettingLimitType as boolean) then set hasSettingLimitType to false
    end try

    if hasSettingLimitType then

    if ("Min_Max" = SettingLimitType) then
    set hasFreeInput to true
    set hasSettingMin to true
    set hasSettingMax to true
    set theSettingMin to get item 1 of (get selectedSetting_r's SettingLimit_L as list)
    set theSettingMax to get item 2 of (get selectedSetting_r's SettingLimit_L as list)

    else if ("Min" = SettingLimitType) then
    set hasFreeInput to true
    set hasSettingMin to true
    set theSettingMin to get item 1 of (get selectedSetting_r's SettingLimit_L as list)

    else if ("Max" = SettingLimitType) then
    set hasFreeInput to true
    set hasSettingMax to true
    set theSettingMax to get item 1 of (get selectedSetting_r's SettingLimit_L as list)

    else if ("List" = SettingLimitType) then
    set hasFreeInput to false
    set hasSettingLimitList to true
    set theSettingLimitList to (get selectedSetting_r's SettingLimit_L) as list

    else if ("List&Free" = SettingLimitType) then
    set hasFreeInput to (not enableFastGUI)
    set hasSettingLimitList to true
    set theSettingLimitList to (get selectedSetting_r's SettingLimit_L) as list

    else
    loqqed_Error_Halt3(false, "Unexpected value found while evaluating Setting Limit. Type: " & SettingLimitType & " Length: " & (length of selectedSetting_r's SettingLimit_L))
    error "SW Error 4"
    end if
    end if

    set settingAddTitle to "Enter New Value"
    set settingChooseTitle to "Select New Item"
    set settingDeleteTitle to "Select Item to be removed"
    set settingEditPrompt to "for setting #" & selectedSettingID & ": " & selectedSettingName
    set settingDeletePrompt to "from setting #" & selectedSettingID & ": " & selectedSettingName
    if (not enableFastGUI) and (0 < (count of selectedSetting_r's SettingHelp)) then set settingEditPrompt to ¬
    settingEditPrompt & return & " (" & (get (selectedSetting_r's SettingHelp) as text) & ")"


    set userCancelled to false
    set hasNewSettingValue to false

    if setting_Class = "Boolean" then

    set selectedSettingValue to (selectedSetting_r's SettingValue) as boolean

    if enableFastGUI then
    set the contents of selectedSetting_r's SettingValue to not selectedSettingValue
    else
    set ChooseResult to (get choose from list {"True", "False"} with prompt settingEditPrompt with title settingChooseTitle OK button name "Select" default items {(get selectedSettingValue as text)})
    if ChooseResult = false then
    set userCancelled to true
    else
    set newSettingValue to item 1 of ChooseResult

    if "True" = (get newSettingValue) then
    set the contents of selectedSetting_r's SettingValue to true
    set hasNewSettingValue to true
    else if "False" = (get newSettingValue) then
    set the contents of selectedSetting_r's SettingValue to false
    set hasNewSettingValue to true
    else
    loqqed_Error_Halt3(false, "Unexpected value found while editing Boolean: " & newSettingValue)
    error "SW Error 2"
    end if
    end if
    end if

    else if setting_Class = "Integer" then

    set selectedSettingValue to (get selectedSetting_r's SettingValue) as integer

    if hasSettingLimitList then
    set ChooseResult to (get choose from list theSettingLimitList with prompt settingEditPrompt with title settingChooseTitle OK button name "Select")
    if ChooseResult = false then
    set userCancelled to true
    else
    if (0 ≤ (count of ChooseResult)) then set contents of selectedSetting_r's SettingValue to (get item 1 of ChooseResult) as integer
    set hasNewSettingValue to true
    set selectedSettingValue to (get item 1 of ChooseResult) as integer
    end if
    end if

    if hasFreeInput then
    set settingEditPrompt to settingEditPrompt & return
    if hasSettingMin then set settingEditPrompt to settingEditPrompt & "Minimum: " & (get theSettingMin as integer)
    if hasSettingMax then
    if hasSettingMin then set settingEditPrompt to settingEditPrompt & " "
    set settingEditPrompt to settingEditPrompt & "Maximum: " & (get theSettingMax as integer)
    end if

    repeat while not hasNewSettingValue
    try
    set dialog_result to display dialog settingEditPrompt with title settingAddTitle default answer selectedSettingValue
    on error
    set userCancelled to true
    exit repeat
    end try
    try
    if 0 < (length of text returned of dialog_result) then
    set newSettingValue to get (text returned of dialog_result) as integer
    else
    copy (get selectedSettingValue as integer) to newSettingValue
    end if
    set hasNewSettingValue to true
    on error
    display dialog (settingEditPrompt & return & "Unable to convert " & (get text returned of dialog_result) & " to an integer") with title "Press OK to try again" buttons {"OK"} default button "OK"
    end try

    if hasNewSettingValue then
    if (hasSettingMin and (newSettingValue < theSettingMin)) or (hasSettingMax and (newSettingValue > theSettingMax)) then
    set hasNewSettingValue to false
    display dialog (settingEditPrompt & return & "The value " & newSettingValue & " is below the Min or above the Max") with title "Press OK to try again" buttons {"OK"} default button "OK"
    else
    set contents of selectedSetting_r's SettingValue to newSettingValue
    end if
    end if
    end repeat
    end if

    else if setting_Class = "Real" then

    set selectedSettingValue to (get selectedSetting_r's SettingValue) as real

    if hasSettingLimitList then
    set ChooseResult to (get choose from list theSettingLimitList with prompt settingEditPrompt with title settingChooseTitle OK button name "Select")
    if ChooseResult = false then
    set userCancelled to true
    else
    if (0 ≤ (count of ChooseResult)) then set contents of selectedSetting_r's SettingValue to (get item 1 of ChooseResult) as real
    set hasNewSettingValue to true
    set selectedSettingValue to (get item 1 of ChooseResult) as real
    end if
    end if

    if hasFreeInput then
    set settingEditPrompt to settingEditPrompt & return
    if hasSettingMin then set settingEditPrompt to settingEditPrompt & "Minimum: " & (get theSettingMin as real)
    if hasSettingMax then
    if hasSettingMin then set settingEditPrompt to settingEditPrompt & " "
    set settingEditPrompt to settingEditPrompt & "Maximum: " & (get theSettingMax as real)
    end if

    repeat while not hasNewSettingValue
    try
    set dialog_result to display dialog settingEditPrompt with title settingAddTitle default answer selectedSettingValue
    on error
    set userCancelled to true
    exit repeat
    end try
    try
    if 0 < (length of text returned of dialog_result) then
    set newSettingValue to get (text returned of dialog_result) as real
    else
    copy (get selectedSettingValue as real) to newSettingValue
    end if
    set hasNewSettingValue to true
    on error
    display dialog (settingEditPrompt & return & "Unable to convert " & (get text returned of dialog_result) & " to an real") with title "Press OK to try again" buttons {"OK"} default button "OK"
    end try

    if hasNewSettingValue then
    if (hasSettingMin and (newSettingValue < theSettingMin)) or (hasSettingMax and (newSettingValue > theSettingMax)) then
    set hasNewSettingValue to false
    display dialog (settingEditPrompt & return & "The value " & newSettingValue & " is below the Min or above the Max") with title "Press OK to try again" buttons {"OK"} default button "OK"
    else
    set contents of selectedSetting_r's SettingValue to newSettingValue
    end if
    end if
    end repeat
    end if

    else if setting_Class = "Text" then

    set selectedSettingValue to (get selectedSetting_r's SettingValue) as text

    if hasSettingLimitList then
    set ChooseResult to (get choose from list theSettingLimitList with prompt settingEditPrompt with title settingChooseTitle OK button name "Select")
    if ChooseResult = false then
    set userCancelled to true
    else
    if (0 ≤ (count of ChooseResult)) then
    set contents of selectedSetting_r's SettingValue to (get item 1 of ChooseResult)
    set hasNewSettingValue to true
    set selectedSettingValue to (get item 1 of ChooseResult) as text
    end if
    end if
    end if

    if hasFreeInput then
    try
    set dialog_result to display dialog settingEditPrompt with title settingAddTitle default answer selectedSettingValue
    set contents of selectedSetting_r's SettingValue to get (text returned of dialog_result)
    set hasNewSettingValue to true
    on error
    set userCancelled to true
    end try
    end if

    else if setting_Class = "List_Text" then

    copy ((get contents of selectedSetting_r's SettingValue) as list) to selectedSettingValueList

    if (count of selectedSettingValueList) = 0 then
    set deleteList to {}
    else
    set deleteList to (get choose from list selectedSettingValueList ¬
    with prompt (settingDeletePrompt & return & "(empty selection ok)") ¬
    with title settingDeleteTitle OK button name "Remove" cancel button name "Skip" with multiple selections allowed and empty selection allowed)
    if (deleteList = false) then
    set deleteList to {}
    else
    if (count of deleteList) > 0 then set hasNewSettingValue to true
    end if
    end if

    set newSettingValueList to {}
    repeat with theValueString in selectedSettingValueList
    if deleteList does not contain theValueString then copy (get theValueString as text) to the end of newSettingValueList
    end repeat

    set addedSettingValueList to {}
    if hasSettingLimitList then
    set ChooseResult to (get choose from list theSettingLimitList with prompt settingEditPrompt ¬
    with title settingChooseTitle OK button name "Add" with empty selection allowed and multiple selections allowed)
    if ChooseResult = false then
    set userCancelled to true
    else
    set addedSettingValueList to (get ChooseResult as list)
    end if
    end if

    if hasFreeInput then
    try
    set dialog_result to display dialog settingEditPrompt with title settingAddTitle default answer ""
    set addedSettingValueList to addedSettingValueList & splitStringToList((get text returned of dialog_result), ";")
    on error
    set userCancelled to true
    end try
    end if

    if userCancelled then
    set hasNewSettingValue to false
    else
    repeat with theValueString in addedSettingValueList
    set theValueString to removeLeadingTrailingSpaces(theValueString)
    ## Don't add zero length strings and strings already in the list
    if (0 < (count of theValueString)) and ¬
    newSettingValueList does not contain theValueString then
    copy (get theValueString as text) to the end of newSettingValueList
    set hasNewSettingValue to true
    end if
    end repeat

    if hasNewSettingValue and (newSettingValueList ≠ selectedSettingValueList) then
    set the contents of selectedSetting_r's SettingValue to {}
    copy (get newSettingValueList as list) to contents of selectedSetting_r's SettingValue
    end if
    end if

    else
    loqqed_Error_Halt3(false, "Unexpected class found while editing Boolean: " & setting_Class)
    error "SW Error 3"
    end if
    end repeat
    if enableFastGUI then exit repeat
    end repeat


    set settings_display_string to ""
    repeat with theSetting_r in theSettingList
    set settings_display_string to settings_display_string & (get SettingName of theSetting_r) & ": " & (get contents of (SettingValue of theSetting_r)) & return
    end repeat

    return settings_display_string ## Exit point
    end settingGUI

    on InitializeLoqqing3(DocName_Ext, sourceTitle)
    ## Copyright 2018 Eric Valk, Ottawa, Canada Creative Commons License CC BY-SA No Warranty.
    ## General purpose handler to set up Text Editor document for logging results

    global debugLogLevel, Script_Title, Result_Doc_ref, SE_Logging, enableResultsFile, enableResultsByDialog, enableResultsByClipboard, DialogTextList, enableNotifications
    global initEnableResultsByDialog, initEnableResultsByClipboard, initEnableNotifications

    tell current application to set date_string to (current date) as text
    set LogMethods to {}
    set LogHeader to (sourceTitle & " results on " & date_string)

    if enableResultsFile then
    set end of LogMethods to DocName_Ext
    set targetFileWasCreated to false
    set ResultDocIsOpen to false

    ## Check if TextEdit is already open and has the document open
    tell application "System Events" to set TextEditlist to get background only of every application process whose name is "TextEdit"
    if (0 < (count of TextEditlist)) and not item 1 of TextEditlist then
    if (DocName_Ext is in (get name of documents of application "TextEdit")) then
    tell application "TextEdit" to set Result_Doc_ref to document DocName_Ext
    set ResultDocIsOpen to true
    end if
    end if

    if not ResultDocIsOpen then
    -- create the document and the folder if necessary
    -- Do not use finder to test for the file existence because it has a bug that ignores leading 0's
    -- https://www.macscripter.net/viewtopic.php?id=45178

    set target_folder_parent_a to alias (get path to desktop folder as text)
    set target_folder_parent_p to get POSIX path of target_folder_parent_a
    set target_folder_name to "ScriptReports"
    set target_folder_p to (target_folder_parent_p & target_folder_name)
    set Result_Doc_Path_p to target_folder_p & "/" & DocName_Ext

    try
    set Result_Doc_Path_a to (get alias POSIX file Result_Doc_Path_p)
    on error
    try
    set target_folder_a to (get alias POSIX file target_folder_p) --x1
    on error
    tell application "Finder" to set newFolder to make new folder at target_folder_parent_a with properties {name:target_folder_name}
    set target_folder_a to newFolder as alias
    end try
    tell application "Finder" to set newFile to make new file at target_folder_a with properties {name:DocName_Ext}
    set Result_Doc_Path_a to newFile as alias
    set targetFileWasCreated to true
    end try

    set First_line to ("Created by " & Script_Title & " on " & date_string)
    tell application "TextEdit" -- open the document and add the first line if empty
    activate
    set Result_Doc_ref to open Result_Doc_Path_a
    set ResultDocIsOpen to true -- For consistency
    tell text of Result_Doc_ref
    if targetFileWasCreated then
    set paragraph 1 to First_line & return & return
    tell me to if 2 ≤ debugLogLevel then log Result_Doc_Path_p & ": " & First_line
    else
    try
    if (0 = (count of paragraphs)) then set paragraph 1 to First_line & return & return
    on error
    set paragraph 1 to First_line & return & return
    end try
    end if
    end tell
    end tell
    end if

    tell application "TextEdit" to tell text of Result_Doc_ref to ¬
    set paragraph (1 + (count paragraphs)) to return & LogHeader & return

    end if

    if enableResultsByDialog then
    set end of LogMethods to "Display Dialog"
    try
    initEnableResultsByDialog
    set DialogTextList to DialogTextList & ""
    set initEnableResultsByDialog to false
    on error
    set DialogTextList to {LogHeader}
    set initEnableResultsByDialog to true
    end try
    end if

    if enableResultsByClipboard then
    set end of LogMethods to "Clipboard"
    try
    initEnableResultsByClipboard
    set initEnableResultsByClipboard to false
    on error
    set the clipboard to LogHeader
    set initEnableResultsByClipboard to true
    end try
    end if

    if SE_Logging then -- if Script Editor logging, then open the Log History window
    tell application "System Events" to tell application process "Script Editor"
    if (get name of windows) does not contain "log History" then
    click menu item "Log History" of menu "Window" of menu bar 1
    end if
    end tell
    set end of LogMethods to " Script Editor Log"
    end if

    if enableNotifications then set end of LogMethods to "Notifications"

    set LogMethods_S to joinListToString(LogMethods, ", ")
    loq_Results2(2, false, ("Results by " & LogMethods_S))

    return LogMethods_S
    end InitializeLoqqing3

    on loq_Results2(thisLogDebugLevel, MakeFront, log_Text)
    ## Copyright 2018 Eric Valk, Ottawa, Canada Creative Commons License CC BY-SA No Warranty.
    ## General purpose handler for logging results
    ## log results if the debug level of the message is below the the threshold set by debugLogLevel
    ## log the results by whatever mechanism is ebabled - {Script Editor Log, Text Editor Log, Display Dialog}

    global Result_Doc_ref, debugLogLevel, SE_Logging, parent_name, ResultsFileMaxDebug, enableResultsFile, enableResultsByDialog, enableResultsByClipboard, DialogTextList, enableNotifications
    if thisLogDebugLevel > debugLogLevel then return

    set log_Text_S to joinListToString(log_Text, ", ")

    if enableResultsFile and ((thisLogDebugLevel ≤ ResultsFileMaxDebug) or not SE_Logging) then
    tell application "TextEdit" to tell text of Result_Doc_ref to ¬
    set paragraph (1 + (count paragraphs)) to ((log_Text_S as text) & return)
    tell application "System Events" to if MakeFront then set frontmost of process "TextEdit" to true
    end if

    if enableResultsByDialog and (1 ≥ thisLogDebugLevel) then
    set DialogTextList to DialogTextList & log_Text_S
    tell application "System Events" to set frontmost of process parent_name to true
    display dialog joinListToString(DialogTextList, return)
    end if

    if enableResultsByClipboard and (1 ≥ thisLogDebugLevel) then set the clipboard to ((get the clipboard) & return & (log_Text_S as text))
    if SE_Logging then log (log_Text_S as text)

    end loq_Results2

    on loqqed_Error_Halt3(createErrorHere, error_text)
    ## General purpose handler for logging during script termination
    ##
    ## found an error somewhere, so now we exit in a controlled fashion
    ## set createError to "false" to create a local error instead of here
    global debugLogLevel, Script_Title, enableNotifications
    tell current application to set date_string to (current date) as text
    finalCleanup()
    if enableNotifications then display notification error_text
    if createErrorHere then
    loq_Results2(0, true, ("Script "" & Script_Title & "" has halted at " & date_string & return & "Reason: " & error_text & return & return))
    error error_text
    else
    loq_Results2(0, true, ("Script "" & Script_Title & "" is exitting at " & date_string & "Reason: " & error_text & return))
    end if
    end loqqed_Error_Halt3

    on splitStringToList(theString, theDelim)
    ## Public Domain
    set astid to AppleScript's text item delimiters
    try
    set AppleScript's text item delimiters to theDelim
    set theList to text items of theString
    on error
    set AppleScript's text item delimiters to astid
    end try
    set AppleScript's text item delimiters to astid
    return theList
    end splitStringToList

    to joinListToString(theList, theDelim)
    ## Public Domain
    set theString to ""
    set astid to AppleScript's text item delimiters
    try
    set AppleScript's text item delimiters to theDelim
    set theString to theList as string
    on error
    set AppleScript's text item delimiters to astid
    end try
    set AppleScript's text item delimiters to astid
    return theString
    end joinListToString

    on removeLeadingTrailingSpaces(theString)
    ## Public Domain, modified
    repeat while theString begins with space
    -- When the string is only 1 character long, then it is exactly 1 space, and the next operation willl crash. So return ""
    if 1 ≥ (count of theString) then return ""
    set theString to text 2 thru -1 of theString
    end repeat
    repeat while theString ends with space
    set theString to text 1 thru -2 of theString
    end repeat
    return theString
    end removeLeadingTrailingSpaces

    on getIndexOf(theItem, theList)
    ## credits Emmanuel Levy
    set astid to AppleScript's text item delimiters
    set AppleScript's text item delimiters to return
    set theList to return & theList & return
    set AppleScript's text item delimiters to astid
    try
    -1 + (count (paragraphs of (text 1 thru (offset of (return & theItem & return) in theList) of theList)))
    on error
    0
    end try
    end getIndexOf

    on roundToQuantum(thisValue, quantum)
    ## Public domain author unknown
    return (round (thisValue / quantum) rounding to nearest) * quantum
    end roundToQuantum

    on roundDecimals(n, numDecimals)
    ## Nigel Garvey, Macscripter
    set x to 10 ^ numDecimals
    tell n * x to return (it div 0.5 - it div 1) / x
    end roundDecimals

    on MSduration(firstTicks, lastTicks)
    ## Public domain
    ## returns duration in ms
    ## inputs are durations, in seconds, from GetTick's Now()
    return (round (10000 * (lastTicks - firstTicks)) rounding to nearest) / 10
    end MSduration

    on GetTick_Now()
    ## From MacScripter Author "Jean.O.matiC"
    ## returns duration in seconds since since 00:00 January 2nd, 2000 GMT, calculated using computer ticks
    script GetTick
    property parent : a reference to current application
    use framework "Foundation" --> for more precise timing calculations
    on Now()
    return (current application's NSDate's timeIntervalSinceReferenceDate) as real
    end Now
    end script

    return GetTick's Now()
    end GetTick_Now
    0
  • Ken Bates
    Excellent work, Eric - thanks a bunch for this script. I ran it on a 16K image catalog and it only took a few minutes to turn up some missing images. Easy to fix once I knew about them. Thanks again for such a useful script!

    - Ken
    0

Post ist für Kommentare geschlossen.