Test et convertie des codes ISBN / EAN

  Information

La fonction isbn() accepte en entrée n'importe quelle forme de code : ISBN-10, ISBN-13, EAN, avec ou sans tiret, avec ou sans clé de contrôle, et peut le restituer à la sortie sous forme d'ISBN-10, d'ISBN-13 ou d'EAN.

Cette fonction peut également servir à calculer la clé de contrôle d'un ISBN (en l'entrant sans le dernier caractère) ou à calculer la validité d'un ISBN.

  code source classé dans  Fonctions

 
 01    
 02    
 03    
 04    
 05    
 06    
 07    
 08    
 09    
 10    
 11    
 12    
 13    
 14    
 15    
 16    
 17    
 18    
 19    
 20    
 21    
 22    
 23    
 24    
 25    
 26    
 27    
 28    
 29    
 30    
 31    
 32    
 33    
 34    
 35    
 36    
 37    
 38    
 39    
 40    
 41    
 42    
 43    
 44    
 45    
 46    
 47    
 48    
 49    
 50    
 51    
 52    
 53    
 54    
 55    
 56    
 57    
 58    
 59    
 60    
 61    
 62    
 63    
 64    
 65    
 66    
 67    
 68    
 69    
 70    
 71    
 72    
 73    
 74    
 75    
 76    
 77    
 78    
 79    
 80    
 81    
 82    
 83    
 84    
 85    
 86    
 87    
 88    
 89    
 90    
 91    
 92    
 93    
 94    
 95    
 96    
 97    
 98    
 99    
 100    
 101    
 102    
 103    
 104    
 105    
 106    
 107    
 108    
 109    
 110    
 111    
 112    
 113    
 114    
 115    
 116    
                               
<?php
/*---------------------------------------------------------------*/
/*
    Titre : Test et convertie des codes ISBN / EAN                                                                        
                                                                                                                          
    URL   : https://phpsources.net/code_s.php?id=619
    Auteur           : iwazaru                                                                                            
    Date édition     : 23 D&eacute;c 2010                                                                                 
    Date mise à jour : 01 Oct 2019                                                                                       
    Rapport de la maj:                                                                                                    
    - fonctionnement du code vérifié                                                                                
    Date mise à jour : 22 Jan 2020                                                                                       
    Rapport de la maj:                                                                                                    
    - correction du code                                                                                                  
*/
/*---------------------------------------------------------------*/

function isbn($x,$m "check") {
        // ISBN Version 1.1 
        $x str_replace(" ","",$x); // On retire les éventuels espaces
        $x str_replace("-","",$x); 
// On retire les eventuels tirets (dans le cas d'un ISBN)
        if(strlen($x) == 10$x substr($x,0,9);
        elseif(strlen($x) == 13$x substr($x,0,12); 
// Si c'est un code à  10 ou 13 chiffres, on retire le dernier (cle de
// controle)
        if(strlen($x) == 12) { // Si c'est un code à  13 chiffres
            $A substr($x,0,3); 
// On extrait le code produit (3 premiers chiffres)
            $x substr($x,3,13); //  Et on le retire du code
            if($A != 978return 
"Erreur : Le code produit ne correspond pas a un livre : ".$A;
        }
        if(empty($A)) $A "978"
// Si le code produit n'est pas precise (ISBN10), on le crée
        if(is_numeric($x) and strlen($x) == 9) { 
// Si tout va bien, le code fait maintenant 9 chiffres
            
            $B substr($x,0,1); // On extrait le code langue
            if($B == 2) { 
// Si le code langue est bien égal à  2 (francais)
                $CD substr($x,1); 
// On extrait le code editeur (C) et le code livre (D)
                // Pour distinguer C et D, on récupère des extraits de C
                $CD1 substr($CD,0,1);
                $CD3 substr($CD,0,3);
                $CD4 substr($CD,0,4);
                $CD5 substr($CD,0,5);
                $CD6 substr($CD,0,6);
                $CD7 substr($CD,0,7);
                
// Et on compare ces plages de valeurs a ceux indiques dans
// http://isbn-international.org/agency?rmpdf=1&sort=agency
                // pour connaitre la taille de C
                if($CD1 == "0" or $CD1 == "1"$l "2";
                elseif($CD3 >= "200" and $CD3 <= "349"$l "3";
                elseif($CD5 >= "35000" and $CD5 <= "39999"$l "5";
                elseif($CD3 >= "400" and $CD3 <= "699"$l "3";
                elseif($CD4 >= "7000" and $CD4 <= "8399"$l "4";
                elseif($CD5 >= "84000" and $CD5 <= "89999"$l "5";
                elseif($CD6 >= "900000" and $CD6 <= "949999"$l "6";
                elseif($CD7 >= "9500000" and $CD7 <= "9999999"$l "7";
                // Enfin, on en deduit C et D
                $C substr($CD,0,$l);
                $D substr($CD,$l,8-$l);
            
                // Pour les ISBN-13 et EAN
                if($m == "EAN" or $m == "EAN13" or $m == "ISBN" or $m == 
"ISBN13") {
                    // Calcul de la cle (E) pour un ISBN-13
                    $k $A.$B.$C.$D;
                    $k str_split($k);
                    $i 0$i2 0$r 0
                    while($i2 <= 11)
                    {
                        if($i2%== 0$p "1";
                        else $p "3";
                        if(!empty($k[$i])) {
                            $r += $k[$i] * $p;
                            if($k[$i] != "-"$i2++;
                        } else $i2++;
                        $i++;
                    }
                    $q floor($r/10);
                    $E 10 - ($r $q 10);
                    if($E == "10"$E "0";
                    if($m == "EAN" or $m == "EAN13"return $A.$B.$C.$D.$E;
                    elseif($m == "ISBN" or $m == "ISBN13"return $A."-".$B."-".
$C."-".$D."-".$E;
                }
                
                // Pour les ISBN-10
                elseif($m == "ISBN10") {
                    $k $B.$C.$D;
                    $k str_split($k);
                    $m 10$t 0;
                    foreach($k as $K) {
                        $K $K*$m;
                        $t += $K;
                        $m--;
                    }
                    $E 11 - ($t 11);
                    if(strlen($E) > 1$E "X";
                    return $B."-".$C."-".$D."-".$E;
                }
                
                else return True;
            } else return "Erreur : Le code langue (".$B.
") n'est pas franà§ais";
        } else return 
"Erreur : Le code n'a pas le bon nombre de chiffres ou autre chose que des" .
" chiffres";
    }
?>

Exemple :

 
 01    
 02    
 03    
 04    
 05    
 06    
 07    
 08    
 09    
 10    
 11    
 12    
 13    
                                
<?php

    echo isbn("1-2345-6789-X");
    // retourne : Le code langue (1) n'est pas francais

    echo isbn("2-2345-6789-X");
    // retourne : 1

    echo isbn("2-2345-6789-X","EAN");
    // retourne : 9782234567894
?>

          Fonctions du code - Doc officielle PHP

   php.net   Description Versions PHP OUTIL
   echo Affiche une chaîne de caractères PHP 4, PHP 5, PHP 7, PHP 8
   empty Détermine si une variable contient une valeur non nulle PHP 4, PHP 5, PHP 7, PHP 8
   floor Arrondit à l'entier inférieur PHP 4, PHP 5, PHP 7, PHP 8
   is_numeric Détermine si une variable est un type numérique PHP 4, PHP 5, PHP 7, PHP 8
   return Retourne le controle du programme au module appelant. PHP 4, PHP 5, PHP 7, PHP 8
   strlen Calcule la taille d'une chaîne PHP 4, PHP 5, PHP 7, PHP 8
   str_replace Remplace toutes les occurrences dans une chaîne PHP 4, PHP 5, PHP 7, PHP 8
   str_split Convertit une chaîne de caractères en tableau - (PHP 5) PHP 5, PHP 7, PHP 8
   substr Retourne un segment de chaîne PHP 4, PHP 5, PHP 7, PHP 8

   Dites merci aux auteurs pour leurs travail, ça ne coûte rien et ça fait toujours plaisir wink

[2]

  • avatar

    Administrateur

    22 Jan 2020 à 17:03

    Merci à vous de l'avoir signalé, c'est corrigé.

  • avatar

    Invité

    22 Jan 2020 à 11:40

    Bonjour,
    Petit message pour signaler une erreur en ligne 100
    C'est if(strlen($E) > 1) et non pas if(strlen($K) > 1)
    Merci


 Autres snippets qui pourraient vous intéressez

Affiche les codes ASCII d'une chaine

Compatibilité : PHP 5, PHP 7

Affichage des codes ASCII Windows d'une chaine avec la fonction ord(). Code compatible php 5 et php7

Convertir binaire en décimal et vice versa

Compatibilité : PHP 5, PHP 7

Pour faire cette conversion, PHP a 2 fonctions qui sont les fonctions bindec () et decbin ().

Convertie 1 chaine de type hexadécimal en 1 entier

Compatibilité : PHP 5, PHP 7

La fonction filter_var() peut aussi convertir une chaine de type hexadécimal en un entier et vérifier si 1 chaine de caractères contient un nombre hexadécimal.

Tester l'existence d'une constante

Compatibilité : PHP 5, PHP 7

Tester tout simplement avec la condition IF l'existence d'une constante.

Test si un site web est en ligne

Compatibilité : PHP 5, PHP 7

Vérifier la validité d'une URL en ligne. Test si votre site est online. Renvoie tous les types : 200, 301, 302, 400, 404...

Présentation de PHP

PHP débutant et initié 50 Tutoriel

Présentation de MySQL

avatar

Iwazaru

  23 Déc 2010

  SOURCE   Télécharger

Information sur les mises à jour

Dernière mise à jour :

    01 Oct 2019
    fonctionnement du code vérifié

    22 Jan 2020
    correction du code

7 264 Vues
Compatibilité
PHP 5, 7 et 8+