AppleScript：检查现有项目的列表

Question

我不知道为什么这个脚本不起作用。我有近2000个条目（类别）的列表，但有很多重复。我只是想创建一个唯一类别的列表，但我似乎无法正常工作。

背景：我正在阅读一个CSV文件，该文件具有标题为：类别的列。我读取文件，使用newline定界符创建每个条目的数组，循环循环段落，再次由逗号分隔符，并获取类别列的内容。这些条目可以是单个类别或以cat1输入的多个条目； cat2或只是为了更烦人cat1＆gt; CAT2。这是我的代码，我现在忽略了可以返回的类别的第三个实例（使用＆gt;符号），直到我使代码正常工作为止。

...
set arrCategories to {}

set theCats to item 14 of arrThisLine
set oatd to AppleScript's text item delimiters
set AppleScript's text item delimiters to ";"
set subCats to every text item of theCats
        
repeat with thisSubCat in subCats
    if thisSubCat does not contain ">" then
        if arrCategories contains thisSubCat then
        else
            copy thisSubCat to end of arrCategories
            log arrCategories
        end if
    end if
end repeat
set AppleScript's text item delimiters to oatd

看起来像这样的日志，最终在ARRCATEGIOR中有成千上万的条目（我在CSV中大约有1000行要重新循环）

(*Design*)
(*Design, Design*)
(*Design, Design, Design*)
(*Design, Design, Design, Design*)
(*Design, Design, Design, Design, Revenue*)
(*Design, Design, Design, Design, Revenue, Learning & Development*)
(*Design, Design, Design, Design, Revenue, Learning & Development,  Product & Engineering*)
(*Design, Design, Design, Design, Revenue, Learning & Development,  Product & Engineering, Product & Engineering*)

我确定这只是简单的东西，但我无法弄清楚为什么它没有拿起它重复。任何帮助将不胜感激。

Answer 1

在优胜美地或以后的系统上，您可以使用AppleScript目标C避免重复循环C：

use AppleScript version "2.4" -- Yosemite or later
use scripting additions
use framework "Foundation"

-- .... INSERT HERE THE BEGINNING OF YOUR SCRIPT

set theCats to item 14 of arrThisLine
set oatd to AppleScript's text item delimiters
set AppleScript's text item delimiters to ";"
set subCats to every text item of theCats
set AppleScript's text item delimiters to oatd

-- remove items with ">"
set stringArray to current application's NSArray's arrayWithArray:subCats
set thePred to current application's NSPredicate's predicateWithFormat:"!self  LIKE '*>*'"
set bList to (stringArray's filteredArrayUsingPredicate:thePred) as list

-- remove duplicates
set aSet to current application's NSOrderedSet's orderedSetWithArray:bList
set arrCategories to (aSet's array()) as list

我测试了以下脚本：

use AppleScript version "2.4" -- Yosemite (10.10) or later
use framework "Foundation"
use scripting additions

set theCats to {"Design", "Design", "Design > Design", "Revenue", "Learning & Development", "Product & Engineering", "Product & Engineering"}

-- remove duplicates, retaining list's order
set aSet to current application's NSOrderedSet's orderedSetWithArray:theCats
set aList to (aSet's array()) as list

-- remove strings with ">"
set stringArray to current application's NSArray's arrayWithArray:aList
set thePred to current application's NSPredicate's predicateWithFormat:"!self  LIKE '*>*'"
set arrCategories to (stringArray's filteredArrayUsingPredicate:thePred) as list

--> {"Design","Revenue","Learning & Development","Product & Engineering"}

Answer 2

在使用y 重复语句形式的x重复时，循环变量x实际上是对列表y中的项目的引用。取决于您的操作，其内容可能不会被删除。 。

如果尝试做类似的事情，例如将循环变量与文本进行比较，则比较将失败，因为它将是参考本身而不是其价值。为了确保您使用的是实际值，您可以获取循环变量的内容，或者在使用它之前将其胁到所需的类，例如：

repeat with thisSubCat in subCats
   set thisSubCat to thisSubCat as text
   --