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

Dans le message <ttt1b6$lk6v$1@dont-email.me>, j'ai écrit le 3 mars 2023 à 15 h 48 :

Faudrait exactement savoir ce que signifie pour Olivier « le mot cœur
est présent » car le script que j'ai indiqué considère que « De Montcuq
à Moncœur » comme étant valide, ce qui est quand même plutôt contestable.

Ceci devrait aller un peu mieux (j'ai accepté « Cœur » mais c'est facile
à régler si on n'en veut pas) :

=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=
set laPhrase to "Cœur ouvert, de Montcuq à Montcœur il n'y a qu'un pas, je mets beaucoup de cœur, même si ce n'est pas de gaieté de ccœur." as text

set invalid_count to 0
set invalid_list to {}

set text item delimiters to ","
set laPhrase to every text item of laPhrase
set C to count items of laPhrase

repeat with k from 1 to C
  set item_list to every word of (item k of laPhrase)
  if "cœur" is not in item_list then
    set invalid_count to (invalid_count + 1)
    set invalid_list to invalid_list & (item k of laPhrase)
  end if
end repeat

if invalid_count = 0 then
  display alert "La phrase est valide : le mot « cœur » est présent dans chacun des " & C & " items."
else
  if invalid_count = 1 then
    display alert "Sur " & C & " items, il y en a un seul ne contenant pas le mot « cœur » " & return & "C'est : " & return & tab & "• " & (invalid_list as text)
  else
    set text item delimiters to return & tab & "• "
    display alert "Sur " & C & " items, il y en a " & invalid_count & " ne contenant pas le mot « cœur » " & return & "Ce sont : " & return & tab & "• " & (invalid_list as text)
  end if
end if
=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=
--
🇺🇦 Michel VAUQUOIS 🐸 <http://michelvauquois.fr> 🇺🇦
Les deux tiers des enfants du monde meurent de faim, alors même que le
troisième tiers crève de son excès de cholestérol. (Pierre Desproges)