Test de validité ean13
Soyez le premier à donner votre avis sur cette source.
Snippet vu 4 552 fois - Téléchargée 16 fois
Contenu du snippet
Bonjour,
Voici une petite fonction qui permet de calculer l'intégrité d'un code barre EAN13.
Remarque : Les MDDs (Marques De Distributeur) peuvent être reconnues comme invalide.
Pour réaliser cette fonction j'espère avoir bien compris la méthode provenant du site GS1 (voir en bas de page) :
http://www.gs1.org/barcodes/support/check_digit_calculator
Pour la suite, je dois effectuer des tests sur une fonction de décodage poids/prix à partir d'un code barre de supermarché...
Après divers essais ceci semble fonctionner, veuillez bien lire la remarque sur les MDDs...
Bon coding.
Voici une petite fonction qui permet de calculer l'intégrité d'un code barre EAN13.
Remarque : Les MDDs (Marques De Distributeur) peuvent être reconnues comme invalide.
Pour réaliser cette fonction j'espère avoir bien compris la méthode provenant du site GS1 (voir en bas de page) :
http://www.gs1.org/barcodes/support/check_digit_calculator
Pour la suite, je dois effectuer des tests sur une fonction de décodage poids/prix à partir d'un code barre de supermarché...
Source / Exemple :
Function EAN13_CheckDigit(input:string):Boolean;
Var
X,KeyCalc:integer;
int_extract: Array of integer;
begin
keycalc:=0;
setlength(int_extract,length(input));
For x:=0 to length(input)-1 do
int_Extract[x]:=strtoint(input[x+1]);
For x:=0 to length(input)-2 do
if odd(x) then keycalc:=keycalc+int_extract[x]*3 else
keycalc:=keycalc+int_extract[x];
keycalc:=10-(keycalc mod 10);
if int_extract[12]=keycalc then result:=true else
result:=false;
end;
Conclusion :
Après divers essais ceci semble fonctionner, veuillez bien lire la remarque sur les MDDs...
Bon coding.
A voir également
- Test ean
- Ean13 - Meilleures réponses
- Ean test - Meilleures réponses
- Test requête sql en ligne - Conseils pratiques - PHP
- Test technique c# - Conseils pratiques - C# / .NET
- Vba test cellule vide ✓ - Forum - Visual Basic
- Test mysql connection - Guide
- Tester si un nombre est entier en c - Forum - C / C++ / C++.NET
- Messages postés
-
4202
- Date d'inscription
- samedi 16 octobre 2004
- Statut
- Modérateur
- Dernière intervention
- 13 juin 2020
37voici une possible correction : qui renvois 3 status différent : Invalide (esInvalid), ok EAN13 (esLike), ok EAN13 clé valide (esStrict)
type
TEAN13STATUS = (
esInvalid,
esLike,
esStrict
);
Function EAN13Check(aInput:string): TEAN13STATUS;
Var
X, KeyCalc:integer;
int_extract: array[0..12] of integer;
begin
result := esInvalid;
// Test : longueur = 13 caractères
if length(aInput) <> 13 then
exit;
// Test : tout les caractères sont des chiffres
for X := 1 to 13 do
begin
if not tryStrToInt(aInput[X], int_extract[X-1]) then
exit;
end;
result := esLike;
// calcul de la clé
keycalc := 0;
for x := 0 to 11 do
begin
if (X and 1) = 1 then
keycalc := keycalc + int_extract[x]*3
else
keycalc := keycalc + int_extract[x];
end;
keycalc := 10 - (keycalc mod 10);
// Test : clé valide = EAN13 strict
if int_extract[12] = keycalc then
result := esStrict;
end;
Sans certitude de la marque MDD, il me semble que j'ai eu un invalide avec un produit U, ayant bien 13 caractères donc sous forme d'EAN.
Je n'ai pas eu de soucis avec les marques.
Bon coding
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.