Studera och lär min gosse:
property myNestedList : {} --property bevarar värdet mellan körningar
set end of myNestedList to {DocName:"document 1", FontList:{"Verdana", "Arial", "Courier"}}
set end of myNestedList to {DocName:"document 2", FontList:{"Myriad", "Times"}}
set end of myNestedList to {DocName:"document 3", FontList:{"Comic sans", "Wingdings", "Verdana", "Arial"}}
--records används för att hämta saker via namn, "FontList" innehåller i sin tur en lista
--bygg alltid på listor (som myNestedList) med "set end of" eller "set beginning of" - mycket effektivare, se dock undantaget nedan
set myAllFontsInAllDocs to {} --tom lista för att bygga på
repeat with i in myNestedList
set myListItem to contents of i -- contents hämtar värdet, istället för en referens
set myDocName to DocName of myListItem -- här kan vi hämta värdet via "DocName" i vår record
set myDocFonts to FontList of myListItem -- här hämtar vi listan med dokumentets fonter med hjälpav "FontList" i vår record
set myAllFontsInAllDocs to myAllFontsInAllDocs & myDocFonts -- enda gången man ska bygga på en lista med &-tecknet är när man vill slå samman två listor till en, annars får man en lista av listor
end repeat
(* utifall du behöver unika fontnamn
set myUniqueFonts to {}
repeat with j in myAllFontsInAllDocs
if (contents of j) is not in myUniqueFonts then
set end of myUniqueFonts to (contents of j)
end if
end repeat
return myUniqueFonts
*)