字符串生成条码(CODE128),并实现在水晶报表上的条码打印!

最近的项目有一个条码打印的要求, 鉴于很多条码软件/库 都是收费的, 一直在找免费的.

 

在Google上搜了很久, 资料是不少, 但不是免费的 就是 没有源码的.

 

于是, 决定自己写代码解决.

 

继续Google, 看了下CODE128的原理, 貌似挺复杂, 还分3个字符集, 比较下来 决定使用CODESET B.

 

先简述一下CODE128的原理吧,分别以一个unicode字符作为起始符(Ì)和终止符(Î),

然后需要根据你的字符串, 计算出当前字符集的校验码:

 

 

#region "本段为转载"

 

Code 128 Barcode Table

Value	Code Set A	Code Set B	Code Set C	Bar/Space Pattern B S B S B S
0	SP	SP	00	2 1 2 2 2 2
1	!	!	01	2 2 2 1 2 2
2	"	"	02	2 2 2 2 2 1
3	#	#	03	1 2 1 2 2 3
4	$	$	04	1 2 1 3 2 2
5	%	%	05	1 3 1 2 2 2
6	&	&	06	1 2 2 2 1 3
7	'	'	07	1 2 2 3 1 2
8	(	(	08	1 3 2 2 1 2
9	)	)	09	2 2 1 2 1 3
10	*	*	10	2 2 1 3 1 2
11	+	+	11	2 3 1 2 1 2
12	,	,	12	1 1 2 2 3 2
13	-	-	13	1 2 2 1 3 2
14	.	.	14	1 2 2 2 3 1
15	/	/	15	1 1 3 2 2 2
16	0	0	16	1 2 3 1 2 2
17	1	1	17	1 2 3 2 2 1
18	2	2	18	2 2 3 2 1 1
19	3	3	19	2 2 1 1 3 2
20	4	4	20	2 2 1 2 3 1
21	5	5	21	2 1 3 2 1 2
22	6	6	22	2 2 3 1 1 2
23	7	7	23	3 1 2 1 3 1
24	8	8	24	3 1 1 2 2 2
25	9	9	25	3 2 1 1 2 2
26	:	:	26	3 2 1 2 2 1
27	;	;	27	3 1 2 2 1 2
28	<	<	28	3 2 2 1 1 2
29	=	=	29	3 2 2 2 1 1
30	>	>	30	2 1 2 1 2 3
31	?	?	31	2 1 2 3 2 1
32	@	@	32	2 3 2 1 2 1
33	A	A	33	1 1 1 3 2 3
34	B	B	34	1 3 1 1 2 3
35	C	C	35	1 3 1 3 2 1
36	D	D	36	1 1 2 3 1 3
37	E	E	37	1 3 2 1 1 3
38	F	F	38	1 3 2 3 1 1
39	G	G	39	2 1 1 3 1 3
40	H	H	40	2 3 1 1 1 3
41	I	I	41	2 3 1 3 1 1
42	J	J	42	1 1 2 1 3 3
43	K	K	43	1 1 2 3 3 1
44	L	L	44	1 3 2 1 3 1
45	M	M	45	1 1 3 1 2 3
46	N	N	46	1 1 3 3 2 1
47	O	O	47	1 3 3 1 2 1
48	P	P	48	3 1 3 1 2 1
49	Q	Q	49	2 1 1 3 3 1
50	R	R	50	2 3 1 1 3 1
51	S	S	51	2 1 3 1 1 3
52	T	T	52	2 1 3 3 1 1
53	U	U	53	2 1 3 1 3 1
54	V	V	54	3 1 1 1 2 3
55	W	W	55	3 1 1 3 2 1
56	X	X	56	3 3 1 1 2 1
57	Y	Y	57	3 1 2 1 1 3
58	Z	Z	58	3 1 2 3 1 1
59	[	[	59	3 3 2 1 1 1
60	\	\	60	3 1 4 1 1 1
61	]	]	61	2 2 1 4 1 1
62	^	^	62	4 3 1 1 1 1
63	_	_	63	1 1 1 2 2 4
64	NUL	`	64	1 1 1 4 2 2
65	SOH	a	65	1 2 1 1 2 4
66	STX	b	66	1 2 1 4 2 1
67	ETX	c	67	1 4 1 1 2 2
68	EOT	d	68	1 4 1 2 2 1
69	ENQ	e	69	1 1 2 2 1 4
70	ACK	f	70	1 1 2 4 1 2
71	BEL	g	71	1 2 2 1 1 4
72	BS	h	72	1 2 2 4 1 1
73	HT	i	73	1 4 2 1 1 2
74	LF	j	74	1 4 2 2 1 1
75	VT	k	75	2 4 1 2 1 1
76	FF	I	76	2 2 1 1 1 4
77	CR	m	77	4 1 3 1 1 1
78	SO	n	78	2 4 1 1 1 2
79	SI	o	79	1 3 4 1 1 1
80	DLE	p	80	1 1 1 2 4 2
81	DC1	q	81	1 2 1 1 4 2
82	DC2	r	82	1 2 1 2 4 1
83	DC3	s	83	1 1 4 2 1 2
84	DC4	t	84	1 2 4 1 1 2
85	NAK	u	85	1 2 4 2 1 1
86	SYN	v	86	4 1 1 2 1 2
87	ETB	w	87	4 2 1 1 1 2
88	CAN	x	88	4 2 1 2 1 1
89	EM	y	89	2 1 2 1 4 1
90	SUB	z	90	2 1 4 1 2 1
91	ESC	{	91	4 1 2 1 2 1
92	FS	|	92	1 1 1 1 4 3
93	GS	}	93	1 1 1 3 4 1
94	RS	~	94	1 3 1 1 4 1
95	US	DEL	95	1 1 4 1 1 3
96	FNC 3	FNC 3	96	1 1 4 3 1 1
97	FNC 2	FNC 2	97	4 1 1 1 1 3
98	SHIFT	SHIFT	98	4 1 1 3 1 1
99	CODE C	CODE C	99	1 1 3 1 4 1
100	CODE B	FNC 4	CODE B	1 1 4 1 3 1
101	FNC 4	CODE A	CODE A	3 1 1 1 4 1
102	FNC 1	FNC 1	FNC 1	4 1 1 1 3 1
103	Start A	Start A	Start A	2 1 1 4 1 2
104	Start B	Start B	Start B	2 1 1 2 1 4
105	Start C	Start C	Start C	2 1 1 2 3 2
106	Stop	Stop	Stop	2 3 3 1 1 1 2

 

 

 

Example... To calculate the check digit for the barcode data string 'Code 128'

                              Value		     Total
			      =====                  =====
             Start Code B      104                    104
Position 1              C       35         1 x 35 =    35
Position 2              o       79         2 x 79 =   158
Position 3              d       68         3 x 68 =   204
Position 4              e       69         4 x 69 =   276
Position 5                       0         5 x  0 =     0
Position 6              1       17         6 x 17 =   102
Position 7              2       18         7 x 18 =   126
Position 8              8       24         8 x 24 =   192
                                                     =====
                                                     1197
                                                     =====
             1197/103 = 11 remainder 64

#endregion

即根据上表, 把没个字符的value值 乘上 字符在字符串中的位置(从1开始算)

把没个乘积加起来

因为CODESET B 为104(这是规定, 不要问我为什么)

所以, 还要加上 104 

最后, 除以103, 所得的余数就是 校验码 的value值, 然后在表中找到对应的字符

就可以了.

有心人应该注意到了, value>=95的时候, 是没有字符的(事实上还是有的, 

只不过是unicode字符)

好了, 原理就阐述到这里, 还有什么不懂的话, 大家看看代码好了.

至于用在水晶报表上的问题, 我这里是配合条码字体的, 我会上传一个我正在用的字体.

代码如下:

Public Function StringToCode128(ByVal input As String) As String
        Try
            Dim endchar As Char

            Dim total As Int64 = 104
            Dim tmp As Integer

            For i As Int16 = 1 To input.Length
                tmp = Asc(input.Substring(i - 1, 1))

                If tmp >= 32 Then
                    total += (tmp - 32) * i
                Else
                    total += (tmp + 64) * i
                End If
            Next

            Dim endAsc = total Mod 103

            If endAsc >= 95 Then
                Select Case endAsc
                    Case 95
                        endchar = "Ã"
                    Case 96
                        endchar = "Ä"
                    Case 97
                        endchar = "Å"
                    Case 98
                        endchar = "Æ"
                    Case 99
                        endchar = "Ç"
                    Case 100
                        endchar = "È"
                    Case 101
                        endchar = "É"
                    Case 102
                        endchar = "Ê"
                End Select
            Else
                endAsc += 32
                endchar = Chr(endAsc)
            End If

            Return "Ì" & input & endchar.ToString() & "Î"

        Catch ex As Exception
            WriteLog(ex.Message, ex.StackTrace)
            Return String.Empty
        Finally

        End Try
    End Function

我放大一下上面用到的特殊字符,大家看看清楚:

起始符:Ì

终止符:Î

value95:Ã
 
value96:Ä
 
value97:Å
 
value98:Æ
 
value99:Ç
 
value100:È
 
value101:É
 
value102:Ê

附件： http://down.51cto.com/data/2348243

©著作权归作者所有：来自51CTO博客作者kaliking的原创作品，如需转载，请注明出处，否则将追究法律责任

职场 休闲 报表 字符串-条码

0

分享

微博 QQ 微信

收藏

上一篇：知道"向导无法创建报表... 下一篇：MS SQL Server中的C...

kaliking

34篇文章，31W+人气，1粉丝

关注