ISBN号校检程序（C#与SQL版）

 1 
 2  /*
 3    Author:EF 
 4    Email:escms@qq.com
 5    Date:08-10-14
 6    Desc:计算正确ISBN号,错误则返回为空
 7    DEMO:select dbo.isbn('7504536093')
 8  */
 9 
10  CREATE   FUNCTION  ISBN( @isbn   varchar ( 50 ))
11  -- ALTER FUNCTION ISBN(@isbn varchar(50))
12  RETURNS   nvarchar ( 50 )
13  AS
14  BEGIN
15       DECLARE   @i   int
16       DECLARE   @sn   int
17       DECLARE   @endisbn   nvarchar ( 50 )
18       SET   @endisbn   =   ''
19      
20       IF  ( len ( @isbn )  >= 12   and   left ( @isbn , 3 )  =   ' 978 ' )
21           BEGIN
22               SET   @isbn   =   rtrim ( ltrim ( replace ( @isbn , ' - ' , '' )))
23               SET   @isbn   =   replace ( replace ( @isbn , ' x ' , '' ), ' . ' , '' )
24               IF  ( ISNUMERIC ( @isbn ) = 1   and   len ( @isbn )  >=   9 )
25               BEGIN
26               SET   @sn   =   cast ( left ( @isbn , 1 )  as   int )  +  
27                        cast ( right ( left ( @isbn , 2 ), 1 )  as   int )  *   3   +  
28                        cast ( right ( left ( @isbn , 3 ), 1 )  as   int )  +  
29                        cast ( right ( left ( @isbn , 4 ), 1 )  as   int )  *   3   +  
30                        cast ( right ( left ( @isbn , 5 ), 1 )  as   int )  +  
31                        cast ( right ( left ( @isbn , 6 ), 1 )  as   int )  *   3   +  
32                        cast ( right ( left ( @isbn , 7 ), 1 )  as   int )  +  
33                        cast ( right ( left ( @isbn , 8 ), 1 )  as   int )  *   3   +  
34                        cast ( right ( left ( @isbn , 9 ), 1 )  as   int )  +  
35                        cast ( right ( left ( @isbn , 10 ), 1 )  as   int )  *   3   +  
36                        cast ( right ( left ( @isbn , 11 ), 1 )  as   int )  +  
37                        cast ( right ( left ( @isbn , 12 ), 1 )  as   int )  *   3
38                   SET   @sn   =   10 - ( @sn   %   10 )
39                   IF   @sn   =   10
40                      SET   @sn   =   0
41                   SET   @endisbn   =   left ( @isbn , 12 )  +   cast ( @sn   as   varchar )
42               END
43               ELSE
44                   SET   @endisbn   =   ' Error '
45 
46           END
47       IF  ( len ( @isbn )  >= 9   and   len ( @isbn )  <=   10   and   left ( @isbn , 1 )  =   ' 7 ' )
48           BEGIN
49               SET   @isbn   =   rtrim ( ltrim ( replace ( @isbn , ' - ' , '' )))
50               SET   @isbn   =   replace ( replace ( @isbn , ' x ' , '' ), ' . ' , '' )
51               IF  ( ISNUMERIC ( @isbn ) = 1   and   len ( @isbn )  >=   9 )
52               BEGIN
53               SET   @sn   =   cast ( right ( left ( @isbn , 1 ), 1 )  as   int )  *   10   +  
54                        cast ( right ( left ( @isbn , 2 ), 1 )  as   int )  *   9   +   
55                        cast ( right ( left ( @isbn , 3 ), 1 )  as   int )  *   8   +  
56                        cast ( right ( left ( @isbn , 4 ), 1 )  as   int )  *   7   +  
57                        cast ( right ( left ( @isbn , 5 ), 1 )  as   int )  *   6   +  
58                        cast ( right ( left ( @isbn , 6 ), 1 )  as   int )  *   5   +  
59                        cast ( right ( left ( @isbn , 7 ), 1 )  as   int )  *   4   +  
60                        cast ( right ( left ( @isbn , 8 ), 1 )  as   int )  *   3   +  
61                        cast ( right ( left ( @isbn , 9 ), 1 )  as   int )  *   2
62 
63                   SET   @sn   =   11 - ( @sn   %   11 )
64                   IF   @sn   =   10
65                       SET   @endisbn   =   left ( @isbn , 9 )  +   ' X '
66                   ELSE
67                       BEGIN
68                       IF   @sn   =   11
69                           SET   @endisbn   =   left ( @isbn , 9 )  +   ' 0 '
70                       ELSE
71                           SET   @endisbn   =   left ( @isbn , 9 )  +   cast ( @sn   as   varchar )
72                       END
73               END
74               ELSE
75                   SET   @endisbn   =   ' Error '
76 
77           END
78       IF   @endisbn   =   ''
79           SET   @endisbn   =   @isbn
80 
81  RETURN   @endisbn
82  END

 

输入9~10位ISBN号可计算出10位正确的ISBN号。

输入11~14位ISBN号可计算出13位正确的ISBN号。

 

用于校检和规范ISBN号。

 

 C#版：

 1 
 2           private   void  button1_Click( object  sender, EventArgs e)
 3          {
 4               if  (textBox1.Text  ==   ""   ||  textBox1.Text.Length  >   15 )
 5              {
 6                  MessageBox.Show( " 书号输入不正确! " , " 错误 " );
 7                   return ;
 8              }
 9               try
10              {
11                   string  isbnstr;
12                   int  isbns;
13                  isbnstr  =  textBox1.Text.Trim();
14                  isbnstr  =  isbnstr.Replace( " - " ,  "" ).Replace( " X " ,  "" ).Replace( " . " ,  "" );
15                   if  (isbnstr.Length  >=   11   &&  isbnstr.Length  <=   14 )
16                  {
17                      isbns = 0 ;
18                      isbns  +=  Convert.ToInt32(isbnstr.Substring( 0 ,  1 ))  *   1 ;
19                      isbns  +=  Convert.ToInt32(isbnstr.Substring( 1 ,  1 ))  *   3 ;
20                      isbns  +=  Convert.ToInt32(isbnstr.Substring( 2 ,  1 ))  *   1 ;
21                      isbns  +=  Convert.ToInt32(isbnstr.Substring( 3 ,  1 ))  *   3 ; 
22                      isbns  +=  Convert.ToInt32(isbnstr.Substring( 4 ,  1 ))  *   1 ;
23                      isbns  +=  Convert.ToInt32(isbnstr.Substring( 5 ,  1 ))  *   3 ; 
24                      isbns  +=  Convert.ToInt32(isbnstr.Substring( 6 ,  1 ))  *   1 ;
25                      isbns  +=  Convert.ToInt32(isbnstr.Substring( 7 ,  1 ))  *   3 ; 
26                      isbns  +=  Convert.ToInt32(isbnstr.Substring( 8 ,  1 ))  *   1 ;
27                      isbns  +=  Convert.ToInt32(isbnstr.Substring( 9 ,  1 ))  *   3 ; 
28                      isbns  +=  Convert.ToInt32(isbnstr.Substring( 10 ,  1 ))  *   1 ;
29                      isbns  +=  Convert.ToInt32(isbnstr.Substring( 11 ,  1 ))  *   3 ;
30                      isbns  =   10   -  (isbns  %   10 );
31                       if  (isbns  ==   10 ) { isbns  =   0 ; }
32                      textBox2.Text  =  isbnstr.Substring( 0 ,  12 )  +  isbns.ToString();
33                  }
34                   else   if  (isbnstr.Length  >=   9   &&  isbnstr.Length  <=   10 )
35                  {
36                      isbns  =   0 ;
37                      isbns  +=  Convert.ToInt32(isbnstr.Substring( 0 ,  1 ))  *   10 ;
38                      isbns  +=  Convert.ToInt32(isbnstr.Substring( 1 ,  1 ))  *   9 ;
39                      isbns  +=  Convert.ToInt32(isbnstr.Substring( 2 ,  1 ))  *   8 ;
40                      isbns  +=  Convert.ToInt32(isbnstr.Substring( 3 ,  1 ))  *   7 ;
41                      isbns  +=  Convert.ToInt32(isbnstr.Substring( 4 ,  1 ))  *   6 ;
42                      isbns  +=  Convert.ToInt32(isbnstr.Substring( 5 ,  1 ))  *   5 ;
43                      isbns  +=  Convert.ToInt32(isbnstr.Substring( 6 ,  1 ))  *   4 ;
44                      isbns  +=  Convert.ToInt32(isbnstr.Substring( 7 ,  1 ))  *   3 ;
45                      isbns  +=  Convert.ToInt32(isbnstr.Substring( 8 ,  1 ))  *   2 ;
46                      isbns  =   11   -  (isbns  %   11 );
47                       if  (isbns  ==   10 ) {
48                          textBox2.Text  =  isbnstr.Substring( 0 ,  9 )  +   " X " ;
49                      }
50                       else   if  (isbns  ==   11 )
51                      { textBox2.Text  =  isbnstr.Substring( 0 ,  9 )  +   " 0 " ; }
52                       else
53                      {
54                          textBox2.Text  =  isbnstr.Substring( 0 ,  9 )  +  isbns.ToString();
55                      }
56                  }
57                   else  {
58                      MessageBox.Show( " 不可识别的ISBN号 " ,  " 错误 " );
59                       return ;
60                  }
61              }
62               catch
63              {
64                  MessageBox.Show( " 不可识别的ISBN号 " ,  " 错误 " );
65                   return ;
66              }
67 
68 
69          }
70 

 

 

转载于:https://www.cnblogs.com/gsyifan/archive/2010/02/01/1660996.html