Code: Select all
BARCODER_GENERATE_CODE_128(Str){
data =
(ltrim
0 11011001100 212222
1 ! 11001101100 222122
2 " 11001100110 222221
3 # 10010011000 121223
4 $ 10010001100 121322
5 `% 10001001100 131222
6 & 10011001000 122213
7 ' 10011000100 122312
8 ( 10001100100 132212
9 ) 11001001000 221213
10 * 11001000100 221312
11 + 11000100100 231212
12 , 10110011100 112232
13 - 10011011100 122132
14 . 10011001110 122231
15 / 10111001100 113222
16 0 10011101100 123122
17 1 10011100110 123221
18 2 11001110010 223211
19 3 11001011100 221132
20 4 11001001110 221231
21 5 11011100100 213212
22 6 11001110100 223112
23 7 11101101110 312131
24 8 11101001100 311222
25 9 11100101100 321122
26 : 11100100110 321221
27 ; 11101100100 312212
28 < 11100110100 322112
29 = 11100110010 322211
30 > 11011011000 212123
31 ? 11011000110 212321
32 @ 11000110110 232121
33 A 10100011000 111323
34 B 10001011000 131123
35 C 10001000110 131321
36 D 10110001000 112313
37 E 10001101000 132113
38 F 10001100010 132311
39 G 11010001000 211313
40 H 11000101000 231113
41 I 11000100010 231311
42 J 10110111000 112133
43 K 10110001110 112331
44 L 10001101110 132131
45 M 10111011000 113123
46 N 10111000110 113321
47 O 10001110110 133121
48 P 11101110110 313121
49 Q 11010001110 211331
50 R 11000101110 231131
51 S 11011101000 213113
52 T 11011100010 213311
53 U 11011101110 213131
54 V 11101011000 311123
55 W 11101000110 311321
56 X 11100010110 331121
57 Y 11101101000 312113
58 Z 11101100010 312311
59 [ 11100011010 332111
60 \ 11101111010 314111
61 ] 11001000010 221411
62 ^ 11110001010 431111
63 _ 10100110000 111224
64 `` 10100001100 111422
65 a 10010110000 121124
66 b 10010000110 121421
67 c 10000101100 141122
68 d 10000100110 141221
69 e 10110010000 112214
70 f 10110000100 112412
71 g 10011010000 122114
72 h 10011000010 122411
73 i 10000110100 142112
74 j 10000110010 142211
75 k 11000010010 241211
76 l 11001010000 221114
77 m 11110111010 413111
78 n 11000010100 241112
79 o 10001111010 134111
80 p 10100111100 111242
81 q 10010111100 121142
82 r 10010011110 121241
83 s 10111100100 114212
84 t 10011110100 124112
85 u 10011110010 124211
86 v 11110100100 411212
87 w 11110010100 421112
88 x 11110010010 421211
89 y 11011011110 212141
90 z 11011110110 214121
91 { 11110110110 412121
92 | 10101111000 111143
93 } 10100011110 111341
94 ~ 10001011110 131141
95 Del 10111101000 114113
96 FC3 10111100010 114311
97 FC2 11110101000 411113
98 Sh 11110100010 411311
99 CdC 10111011110 113141
100 CdB 10111101110 114131
101 CdA 11101011110 311141
102 FC1 11110101110 411131
)
StartA := "11010000100" , CheckSumA := 103 , CodeA := "11101011110"
StartB := "11010010000" , CheckSumB := 104 , CodeB := "10111101110"
StartC := "11010011100" , CheckSumC := 105 , CodeC := "10111011110"
Stop := "1100011101011" , Quiet := "000000000000"
MATRIX_TO_PRINT := [], Pattern := []
;-------------------------------------------
loop, parse, data, `n, `r
f := StrSplit(A_LoopField, "`t")
, Pattern[f.1] := f.3
;-------------------------------------------
if (Str~="[a-z]") ; lower case
CheckSum := CheckSumB, Start := StartB
else ; not lower case
CheckSum := CheckSumA, Start := StartA
if (Str~="^(\d\d)+$") ; Even number of digits
CheckSum := CheckSumC, Start := StartC
;-------------------------------------------
STR_TO_PRINT := Quiet . Start
loop, parse, str
{
STR_TO_PRINT .= Pattern[value := (Start = StartC) ? SubStr(Str, 2*A_Index -1, 2) : Asc(A_LoopField) - 32]
CheckSum += value * A_Index
}
;-------------------------------------------
CheckCode := mod(CheckSum, 103)
STR_TO_PRINT .= Pattern[CheckCode] . Stop . Quiet
loop, parse, STR_TO_PRINT
MATRIX_TO_PRINT.Push(A_LoopField)
return MATRIX_TO_PRINT
}