创建自定义检验位 |
通过使用现有的检验位算法或创建自定义算法,采用 VBScript 创建自定义检验位。
双击所需的条形码,以打开“条形码属性”对话框。 或者,从对象的上下文菜单中选择“属性”。
在导航栏中,选择包含要编码的数据的数据源。
选择位于数据源工具栏上的 图标,以启动新建数据源向导。
针对“类型”,选择“Visual Basic 脚本”。
单击“完成”以关闭新建数据源向导。
将“脚本类型”保留为“单行表达式”,选择“使用脚本编辑器编辑”。
从“
在“
双击所需的检验位类型。
在“编辑器”窗格中,将突出显示的文本 («String») 替换成在上面步骤 4 中命名的数据源的共享名称。
单击“确定”,以关闭“脚本编辑器”。
双击所需的条形码,以打开“条形码属性”对话框。 或者,从对象的上下文菜单中选择“属性”。
在导航栏中,选择包含要编码的数据的数据源。
选择位于数据源工具栏上的 图标,以启动新建数据源向导。
针对“类型”,选择“Visual Basic 脚本”。
单击“完成”以关闭新建数据源向导。
将“脚本类型”更改为“多行脚本”。
选择“使用脚本编辑器编辑器”,以打开“
从“编辑器”窗格中删除任何现有的脚本文本。
输入与以下类似的自定义检验位算法:
'Create a Mod43 check digit
charSet = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ-.$/+%"
For i + 1 To Len(C39)
total = InStr(charSet, Mid(C39,i,1)) - 1 + total
Next
Value = Mid(charSet, (total Mod 43 + 1), 1)
单击“确定”,以关闭“脚本编辑器”。
相关主题