Re: Verifier la presence d'un mot dans tous les champs

Dans le message <ttn9em$h0s$1@shakotay.alphanet.ch>, Benoît L. a écrit le 1er mars 2023 à 11 h 29 :

_____________________________________________________________
set TextToTest to "Pour parler à cœur ouvert, je mets une phrase vide,
cœur à cœur, je mets du cœur à l'ouvrage, même si ce n'est pas de gaieté
de cœur." as string
>
set TextToSearch to "cœur"
set AppleScript's text item delimiters to ","
set TextAsList to text items of TextToTest
repeat with i in TextAsList
  if i does not contain TextToSearch then
    display dialog "J’ai trouvé un « " & TextToSearch & " » qui manque
    dans « " & i & " »."
    exit repeat
  end if
end repeat
set AppleScript's text item delimiters to ""
_____________________________________________________________

Good mais, à mon sens, il manque quelque chose : si la phrase est
« valide » (ie il y a le mot « cœur » dans chaque item), le script
s'arrête et l'utilisateur va se demander si le script a planté ou
autre chose.
Il faudrait au moins ajouter un avertissement signalant que la
phrase est « valide » :
=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=
set laPhrase to "Pour parler à cœur ouvert, cœur à cœur, je mets beaucoup de coeur, même si ce n'est pas de gaieté de cœur." as text

set text item delimiters to ","
set laPhrase to every text item of laPhrase

repeat with text_item in laPhrase
  if "cœur" is not in text_item then
    display alert "La phrase est invalide :" & return & "« cœur » est absent de « " & text_item & " »." giving up after 5
    return
  end if
end repeat
display alert "La phrase est valide." giving up after 4
=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=

Redirection vers fcsmp
--
🇺🇦 Michel Vauquois - <http://michelvauquois.fr> 🇺🇦
Quand un philosophe me répond, je ne comprends plus ma question. (Pierre
Desproges)