Path: ...!newsreader4.netcologne.de!news.netcologne.de!news.imp.ch!news.alphanet.ch!alphanet.ch!.POSTED!not-for-mail
From: "M.V." <mv@gmail.com.invalid>
Newsgroups: fr.comp.sys.mac.programmation
Subject: Re: Verifier la presence d'un mot dans tous les champs
Date: Sat, 4 Mar 2023 15:12:11 -0000 (UTC)
Organization: M.V. & Co
Archive: no
Message-ID: <ttvn4b$t4d$1@shakotay.alphanet.ch>
References: <t0lcik$1616$1@cabale.usenet-fr.net> <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> <tttjb9$1ais$1@cabale.usenet-fr.net>
 <tttjmb$5hk$1@shakotay.alphanet.ch> <tttl0q$1asu$1@cabale.usenet-fr.net>
 <tttltt$elj$1@shakotay.alphanet.ch> <tttmh9$1caj$1@cabale.usenet-fr.net>
 <ttto6k$p6b$1@shakotay.alphanet.ch> <tttu3m$1dv4$1@cabale.usenet-fr.net>
 <ttv1vi$ugge$1@dont-email.me> <ttvkp8$j5h$1@shakotay.alphanet.ch>
 <ttvlae$lka$2@shakotay.alphanet.ch>
Reply-To: michel.vauquois@gmail.com
Mime-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
Injection-Date: Sat, 4 Mar 2023 15:12:11 -0000 (UTC)
Injection-Info: shakotay.alphanet.ch; posting-account="michelvauquois";
	logging-data="29837"; mail-complaints-to="usenet@alphanet.ch"; posting-host="961b1d675b4792ec2ef50fdab1e0d2ea.nnrp.alphanet.ch"
User-Agent: MacCafe/2.11/caturra (Mac OS X 10.14.6 (18G9323) - MacBookAir7,2)
Cancel-Lock: sha1:jVqz2LWKks6zctqbbVUwWzatWVA= sha256:y2MYn6fHO76oeqAGzigxoHdIV6vSd1Kdj78GkSmMwXg= sha256:4h3rAYRKmZaId2jAu0aqIYSuX5sT9hpoCzjBaUqXpxk=
In-Reply-To: <ttvlae$lka$2@shakotay.alphanet.ch>
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
URL-perso: http://michelvauquois.fr
Mail-Copies-To: nobody
Comments: no-dodin
X-No-Archive: yes
Bytes: 4003
Lines: 42

Dans le message <ttvlae$lka$2@shakotay.alphanet.ch>, j'ai écrit le 4 mars 2023 à 15 h 41 :

> C'est pas bien du tout donc faut traiter "" à part.

En utilisant ton astuce et en traitant "" à part, et en repartant 
de la liste donnée par Olivier sans modification :

=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=
global decimalSeparator
set decimalSeparator to character 2 of (1 / 2 as string)

set numList to {"0", "+1.5", "1e+99", "-19E-7", "1.7e003", ".3", "1.2.3", "", "1E3.4", "--1", "e+99", ".", "+1e"}
set invalid_list to {}

repeat with k in numList
  if (k as string) = "" then set invalid_list to invalid_list & ""
  try
    set conv_num to replace(k as string)
    set conv_num to conv_num as number
  on error
    set invalid_list to invalid_list & k
  end try
end repeat
set text item delimiters to return & tab
display alert "Les éléments invalides sont :" & return & tab & (invalid_list as string)

on replace(str)
  set text item delimiters to "."
  set list1 to every text item of str
  set text item delimiters to decimalSeparator
  set newStr to ("" & list1) as text
  set text item delimiters to ""
  return newStr
end replace
=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=

NB J'ai évité la commande « tr » pour rester en AppleScript "pur".
-- 
🇺🇦 Michel Vauquois - <http://michelvauquois.fr> 🇺🇦
Un psychotique, c'est quelqu'un qui croit dur comme fer que 2 et 2 font 5, et
qui en est pleinement satisfait. Un névrosé, c'est quelqu'un qui sait
pertinemment que 2 et 2 font 4, et ça le rend malade ! (Pierre Desproges)