*AppleScriptsVanilla*
ascii_to_HTML
Average
Calculator
Calendar
Count_item
cut_text
days_week
EAN13
Encrypt-Decrypt
FactPremier
French_Vanilla_Dotted_Date
French_Vanilla_Dotted_Date2
Hexa_to_Bin
Last_month
list_erase
list_insert
list_replace
ListeDiviseurs
ListePremiers
Minuscule
NombreLong
NombreLong2
NomExtension
num_item
num_month
num_month2
num_week
number_format
number_format2
Paques
PGCD
PGCD2
reverse_string
Roman_to_Arab
round_decimal
search_email
search_replace
search_URL
SepNbre
SepNbre2
snip_text
stat
TauxPermut
TauxTransform
the_left
the_right
TriBulle
TriLineaire
week_and_year
XOR
ZeroDouble

EAN13

Syntaxe

EAN13(x)
Calcule la clé des codes à barres. Le paramètre est au format texte, le résultat est au format nombre.
EAN = European Article Numbering. En commençant par la droite les chiffres sont additionnés; ceux de rang pair sont multipliés par 3, ceux de rang impair ne sont pas modifiés. La clé est le plus petit chiffre à ajouter au résultat obtenu pour obtenir un multiple de 10.

Exemple

EAN13("336293225207")
---> 8

Script

on EAN13(the_text)
	set total to 0
	set fact to 3
	repeat with i from (length of the_text) to 1 by -1
		set total to total + ((character i of the_text) * fact)
		set fact to 4 - fact
	end repeat
	return last character of (10 - (total mod 10) as string) as number
end EAN13

Remarque

Un exemple de boucle "repeat" qui permet de traiter différemment un élément selon son rang pair ou impair à l'aide d'une variable : Sans La variable "fact" qui passe alternativement de 3 à 1 et de 1 à 3, il aurait fallu utiliser 2 boucles repeat pour traiter les chiffres de rang pair et impair.