Apple

On 2009-01-26, at 04:30:15, Michael Schmidt (BRT) wrote:

If you have a list of strings only, you can also use this:

on flattenList(theList)
set retour to {}
if theList ≠ {} then
set AppleScript's text item delimiters to "\", \""
set retour to run script "{\"" & theList & "\"}"
set AppleScript's text item delimiters to ""
end if
return retour
end flattenList

Try this:

global gFlatList

on FlattenList(theList)

global gFlatList

repeat with i in theList

if (class of i is list) then

my FlattenList(i)

else

set end of gFlatList to contents of i

end if

end repeat

end FlattenList

set deep to {{"item 1", 0, {"item 3", "item 4", "item 5"}}, {{name:"Michael"}, "item 7", "item 8"}, 999}

set gFlatList to {}

my FlattenList(deep)

gFlatList

Philip Aker

echo email@hidden@nl | tr a-z@. p-za-o.@

Democracy: Two wolves and a sheep voting on lunch.

References:
	>Flattening Nested Lists (From: Rick Gordon <email@hidden>)
	>Re: Flattening Nested Lists (From: Barry Wainwright <email@hidden>)
	>Re: Flattening Nested Lists (From: Rick Gordon <email@hidden>)
	>Re: Flattening Nested Lists (From: Brian Christmas <email@hidden>)
	>Re: Flattening Nested Lists (From: "Michael Schmidt (BRT)" <email@hidden>)