Path: ...!weretis.net!feeder8.news.weretis.net!eternal-september.org!reader01.eternal-september.org!.POSTED!not-for-mail
From: "M.V." <mv@gmail.invalid>
Newsgroups: fr.comp.sys.mac.programmation
Subject: Re: Verifier la presence d'un mot dans tous les champs
Date: Fri, 3 Mar 2023 15:15:56 -0000 (UTC)
Organization: M.V. & Co
Lines: 43
Archive: no
Message-ID: <ttt2vc$lpku$1@dont-email.me>
References: <t0lcik$1616$1@cabale.usenet-fr.net>
 <dg1u2h9ms324so97iqqac5jfclhunbt5u0@4ax.com> <t0n2vh$23a2$1@cabale.usenet-fr.net>
 <t8162d$1rbm$1@gioia.aioe.org> <t81ks1$2ipl$1@cabale.usenet-fr.net>
 <ttkveo$7no$1@shakotay.alphanet.ch> <ttl07l$u8m$1@cabale.usenet-fr.net>
 <ttl3bh$svv$1@shakotay.alphanet.ch> <ttm19j$1bll$1@cabale.usenet-fr.net>
 <ttm1u5$1br0$1@cabale.usenet-fr.net> <ttm4os$inu$1@shakotay.alphanet.ch>
 <1q6wq7l.wkh7dy1ty8eazN%andre_favre@af.invalid>
 <ttn9em$h0s$1@shakotay.alphanet.ch> <ttpqam$7tm$1@shakotay.alphanet.ch>
 <ttt1b6$lk6v$1@dont-email.me>
Reply-To: michel.vauquois@gmail.com (M.V.)
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
Injection-Date: Fri, 3 Mar 2023 15:15:56 -0000 (UTC)
Injection-Info: reader01.eternal-september.org; posting-host="0718c2f8448ffbeb54761c368a747f9f";
	logging-data="714398"; mail-complaints-to="abuse@eternal-september.org";	posting-account="U2FsdGVkX19XRUVojFDC7AbDkR4uIsAKC/4nJfzBzzs="
User-Agent: MacCafe/2.11/caturra (Mac OS X 10.14.6 (18G9323) - iMac19,1)
Cancel-Lock: sha1:g11qbQWrc3dn2AHPH4dTlPm1AXs= sha256:q9g6OguhZzwVcbT4JToSj2Tw7g4E6JNfyC4b0iYSj2k=
	sha1:hnXgBe1WuBkr2aJSufKTuh0395c=
Comments: no-dodin
URL-perso: http://michelvauquois.fr
X-Face: 0f|`H5*Our0P$s'uj0)fS=&`R#U+JYpl<W.~uGMH[S}%Yo{$(f$0`!02mu$5b`f7Hp6:EiW
 c`zw`Y^GQAA=_IIV`NIXW4&YpH]>e<6GW!O'TO4sB4,Q9"tHNQo]\7p\,,nCZ_saH4~Ie
 'gYktutVOXK})aU*/@meZ_y=ixi8qwcJ,ssAk~G4Rr?qr60d_euHkHHJ_;EHES_(IExNo
 h6
X-No-Archive: yes
In-Reply-To: <ttt1b6$lk6v$1@dont-email.me>
Mail-Copies-To: never
Bytes: 4035

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)