51 routines :

*AppleScriptsVanilla*
ascii_to_HTML
Average
Calculator
Calendar
Count_item
cut_text
days_week
EAN13
Encrypt-Decrypt
FactPremier
French_Vanilla_Dotted_Date
French_Vanilla_Dotted_Date2
Hexa_to_Bin
Last_month
list_erase
list_insert
list_replace
ListeDiviseurs
ListePremiers
Minuscule
NombreLong
NombreLong2
NomExtension
num_item
num_month
num_month2
num_week
number_format
number_format2
Paques
PGCD
PGCD2
reverse_string
Roman_to_Arab
round_decimal
search_email
search_replace
search_URL
SepNbre
SepNbre2
snip_text
stat
TauxPermut
TauxTransform
the_left
the_right
TriBulle
TriLineaire
week_and_year
XOR
ZeroDouble

ZeroDouble

Syntaxe

ZeroDouble(oldList)
Supprime les doublons d'une liste. Le paramètre et le résultat sont au format liste.

Exemple

ZeroDouble({1, 2, 3, 1, 5, 6, 7, 8, 6, 9})
---> {1, 2, 3, 5, 6, 7, 8, 9}
ZeroDouble({"objet", "pomme", "pomme", "propriété", "couleur", "propriété", "valeur", "rouge", "valeur"})
---> {"objet", "pomme", "propriété", "couleur", "valeur", "rouge"}

Script

on ZeroDouble(oldList)
set newList to {}
repeat with doublon in oldList
if doublon is not in newList then set newList to newList & doublon
end repeat
return newList
end ZeroDouble

Site scripté avec HyperCard ©1987-1998 Apple Computer, Inc.
Mise à jour le 19/01/10 à 08:45:57