Path: ...!3.us.feeder.erje.net!feeder.erje.net!news.alphanet.ch!alphanet.ch!.POSTED!not-for-mail
From: =?UTF-8?B?IkJlbm/DrnQgTC4i?= <benoit@leraillez.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 19:02:40 -0000 (UTC)
Organization: C'est celui qui dit qui est
Archive: no
Message-ID: <tu04kg$ps6$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: benoit@leraillez.com
Mime-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
Injection-Date: Sat, 4 Mar 2023 19:02:40 -0000 (UTC)
Injection-Info: shakotay.alphanet.ch; posting-account="bobduvallois";
	logging-data="26502"; mail-complaints-to="usenet@alphanet.ch"; posting-host="afae0d8def0cf5f14abbb823c144bac2.nnrp.alphanet.ch"
User-Agent: MacCafe/2.11(4D18)/caturra (macOS 13.2.1 (22D68) - MacBookPro14,2)
Cancel-Lock: sha1:c4fx5+eXcEjjM+rl4f46t4Xqf5w= sha256:yquOA1hcYn641mb9U33ml32+vJC0od/HMlh3dwvf5jw= sha256:uEoXAk/u+ZykMnyupeqRdti+J4rV6zlPYt/AL8npdEM=
In-Reply-To: <tu01tv$21rv$1@cabale.usenet-fr.net>
X-No-Archive: yes
Bytes: 3399
Lines: 39

Après mûre réflexion, le 4 mars 2023 à 19:16, Olivier Miakinen eu l'idée
d'écrire :


> Le 04/03/2023 à 16:12, M.V. a écrit :
>> 
>> [...]
>> 
>> 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
>
> Je crois que j'ai tout compris. C'est rigolo, l'AppleScript !
>
>> NB J'ai évité la commande « tr » pour rester en AppleScript "pur".
>
> Oui, joli. 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.
>
> Je parie pour quelque chose comme ça :
>  if (k as string) contains "," then set invalid_list to invalid_list & k
>  else
>    ...

Une remarque : la virgule est utilisée comme séparateur de milliers dans
le monde anglo-saxon. Il faut donc tester tous les chiffres pour savoir
si au moins un contient point et virgule, ou s’ils ont tous trois
chiffres après la virgule auquel cas le résultat à des chances d’être
bon sauf que le million n’aura pas la sienne.

-- 
Benoît
Seuls les idéaux ne changent jamais d'avis.