Bartender EAN-128算法VB脚本实现

原创于 2019-08-08 17:14:51 发布 · 2.1k 阅读

1 ·

CC 4.0 BY-SA版权

其他同时被 2 个专栏收录

8 篇文章

订阅专栏

公司相关

6 篇文章

订阅专栏

本文详细解析了EAN-128编码算法的实现过程，通过VB脚本展示如何计算校验位，适用于Bartender模板中SSCC条形码的自动生成。了解算法逻辑，掌握条形码编码技巧。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Bartender模板（EAN-128 算法可以通过设置自动实现，该算法对应的VB脚本实现如下代码所示）

规则如下：

脚本逻辑如下：

Dim i 
dim z
str = StrReverse(Format.NamedSubStrings("SSCC").Value)
For i = 1 To Len(str) Step 2
  j = CInt(j) + CInt(Mid(str, i, 1))
Next

For i = 2 To Len(str) Step 2
  q = CInt(q) + CInt(Mid(str, i, 1))
Next
s=j*3+q
if s Mod 10 <>0 then
z =10- s Mod 10
else 
z=0
end if
value=Format.NamedSubStrings("SSCC").Value&z