39码 128B码解决方案

39码可以直接用字体代替，来字符前后都加下“*”，即可被条码枪识别。

128B码的话，用字体加算法的方法才行，要计算开始位、校验位、结束位。

VBA计算方法：

Function code128b(Tar As Range)   '128B码:ChrW(204).
 Dim s$, i%, ss$, j%, curR%, checkB%
 curR = Tar.Row
 s = Tar.Value
 checkB = 1  '开始位的码值为104 mod 103 =1
 For i = 1 To Len(s)
     ss = Mid(s, i, 1)
     j = Asc(ss) '不过滤无效字符,比如汉字.
     If j < 135 Then
         j = j - 32
     ElseIf j > 134 Then
         j = j - 100
     End If
     checkB = (checkB + i * j) Mod 103   '计算校验位
 Next
 If checkB < 95 And checkB > 0 Then  '有的资料直接求103的模,解说不充分,因为有的校验位超过127时,系统会"吃"掉它们(连带休止符).
     checkB = checkB + 32
 ElseIf checkB > 94 Then '字体设置时,字模被定义了2个值.观察字体文件时能发现.
     checkB = checkB + 100
 End If
 code128b = ChrW(204) & s & IIf(checkB, ChrW(checkB), Chr(32)) & ChrW(206)
 End Function

C#计算方法：

 

 private string Get128CodeString(string inputData)
        {
            string result;
            int checksum = 104;
            for (int ii = 0; ii < inputData.Length; ii++)
            {
                if (inputData[ii] >= 32)
                {
                    checksum += (inputData[ii] - 32) * (ii + 1);
                }
                else
                {
                    checksum += (inputData[ii] + 64) * (ii + 1);
                }
            }
            checksum = checksum % 103;
            if (checksum < 95)
            {
                checksum += 32;
            }
            else
            {
                checksum += 100;
            }
            result = Convert.ToChar(204) + inputData.ToString() + Convert.ToChar(checksum) + Convert.ToChar(206);
            return result;
        }