Path: ...!3.us.feeder.erje.net!2.eu.feeder.erje.net!feeder.erje.net!news.uzoreto.com!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: Sun, 5 Mar 2023 09:54:11 -0000 (UTC)
Organization: M.V. & Co
Archive: no
Message-ID: <tu1os2$nhd$1@shakotay.alphanet.ch>
References: <t0lcik$1616$1@cabale.usenet-fr.net> <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> <ttvn4b$t4d$1@shakotay.alphanet.ch>
 <tu01tv$21rv$1@cabale.usenet-fr.net>
Reply-To: michel.vauquois@gmail.com
Mime-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
Injection-Date: Sun, 5 Mar 2023 09:54:11 -0000 (UTC)
Injection-Info: shakotay.alphanet.ch; posting-account="michelvauquois";
	logging-data="24109"; 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:48lBBYSq6JQUNtNh7t56iThkGmw= sha256:fdECqIsPXlpXQt87AjHgC9mPrw2/CjEFWWfb6HNU1uU= sha256:CtAStAsbtHOOOlRBSYXNTQ9UazHbgd1hz6lvw40q95k=
URL-perso: http://michelvauquois.fr
X-No-Archive: yes
Mail-Copies-To: nobody
Comments: no-dodin
In-Reply-To: <tu01tv$21rv$1@cabale.usenet-fr.net>
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
Bytes: 4594
Lines: 67

Dans le message <tu01tv$21rv$1@cabale.usenet-fr.net>, Olivier Miakinen a écrit le 4 mars 2023 à 19 h 16 :

> Maintenant il te reste à ajouter un test au début pour éviter
> que "1,5" soit considéré comme une syntaxe valide sur un Mac en français
> alors qu'il serait rejeté comme invalide en anglais.

Avec, en plus, une petite correction par rapport à la version 
précédente :
=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=
global decimalSeparator

set decimalSeparator to character 2 of (1 / 2 as string)
set {valid_list, invalid_list} to {{""}, {""}}
set numList to {"0", "1,5", "+1.5", "1e+99", "-19E-7", "1.7e003", ".3", "1.2.3", "", "1E3.4", "--1", "e+99", ".", "+1e"}

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

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
=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=

Résultat :
=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=
Les éléments valides sont :
  0
  +1.5
  1e+99
  -19E-7
  1.7e003
  .3

Les éléments invalides sont :
  1,5
  1.2.3
  
  1E3.4
  --1
  e+99
  .
  +1e"
=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=
-- 
🇺🇦 Michel Vauquois - <http://michelvauquois.fr> 🇺🇦
L'amour est comme un arbre, il pousse de lui-même, jette profondément ses
racines dans tout notre être et continue de verdoyer sur un cœur en ruine.