创建自定义检验数字

您可以使用现有检验数字算法或自定义算法,在 Visual Basic 脚本 (VBScript) 中创建自定义检验数字。

关闭使用现有算法来创建自定义检验数字

  1. 双击该条形码以打开“条形码属性”对话框。或者,右键单击条形码,然后单击“属性”。

  2. 在导航窗格中,选择包含要编码的数据的数据源。

  3. 单击数据源工具栏上的 图标,以启动“新建数据源向导”。

  4. 在“类型”列表中,选择“Visual Basic 脚本”,然后单击“完成”。

  5. 在“脚本类型”列表中,选择“单行表达式”,然后单击“在脚本编辑器中编辑”以打开脚本编辑器

  6. 编辑器窗格中,删除任何现有的表达式文本。

  7. 在“脚本助理”窗格中,展开函数节点,展开校验位节点,然后双击所需的校验位。

  8. 在“脚本助理”窗格中,找到要用于替换突出显示文本(“字符串”)的数据源,然后双击该数据源。

  9. 单击“确定”,以关闭“脚本编辑器”。

关闭使用自定义算法来创建自定义检验数字

  1. 双击该条形码以打开“条形码属性”对话框。或者,右键单击条形码,然后单击“属性”。

  2. 在导航窗格中,选择包含要编码的数据的数据源。

  3. 单击数据源工具栏上的 图标,以启动“新建数据源向导”。

  4. 在“类型”列表中,选择“Visual Basic 脚本”,然后单击“完成”。

  5. 在“脚本类型”列表中,选择“多行脚本”,然后单击“在脚本编辑器中编辑”以打开脚本编辑器

  6. 编辑器窗格中,删除任何现有的表达式文本。

  7. 输入自定义检验数字的计算算法,如下所示:

    '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)

  8. 单击“确定”,以关闭“脚本编辑器”。

相关主题