1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35
|
-- La chaîne avec le nom et les prenoms récupérée et placée dans une varaible
set sIdentite to "THAIS LA BRETONNE"
-- Les deux listes de prénoms pour les femmes et les hommes
set aPrenomsFemmes to {"Marie", "Jeanne", "Thaïs", "etc."}
set aPrenomsHommes to {"Jean", "Paul", "Fredo", "etc."}
-- On découpe l'identité pour en faire une liste de mots distincts
set aIdentite to words of sIdentite
-- On initialise les variables qui contiendront le prenom femme ou homme trouvé
set sPrenomFemme to ""
set sPrenomHomme to ""
-- On boucle sur chaque mot de l'identité
repeat with sItem in aIdentite
-- On demande à AS de ne pas tenir compte de la casse ni des accents
ignoring case and diacriticals
-- Si le mot sItem de l'identité est trouvé dans la liste des prénoms des femmes,
-- alors on renseigne la variable correspondante
if (sItem is in aPrenomsFemmes) then set sPrenomFemme to contents of sItem
-- Si le mot sItem de l'identité est trouvé dans la liste des prénoms des hommes,
-- alors on renseigne la variable correspondante
if (sItem is in aPrenomsHommes) then set sPrenomHomme to contents of sItem
end ignoring
-- Si un prénom femme ou un prénom homme a été trouvé, on arrête la boucle
if ((sPrenomFemme is not "") or (sPrenomHomme is not "")) then exit repeat
end repeat
return {sPrenomFemme, sPrenomHomme} -- {"THAIS", ""} |
Partager