Open topic with navigation

创建自定义检验数字

通过使用现有的检验数字算法或创建自定义算法，采用 Visual Basic 脚本 (VBScript) 创建自定义检验数字。

Closed使用现有的算法通过 VBScript 创建自定义检验数字

  1. 双击所需的条形码，以打开“条形码属性”对话框。也可以从对象的上下文菜单中选择“属性”。

  2. 在导航栏中，选择包含要编码的数据的数据源。

  3. 选择位于数据源工具栏上的 图标，以启动“新建数据源向导”。

  4. 针对“类型”，选择“Visual Basic 脚本”。

  5. 单击“完成”以关闭“新建数据源向导”。

  6. 将“脚本类型”保留为“单行表达式”，选择“使用脚本编辑器编辑”。

  7. 从“编辑器”窗格中删除任何现有的表达式文本。

  8. 在“脚本助理”窗格中，展开“函数”节点，然后展开“检验位”节点。

  9. 双击所需的检验数字类型。

  10. 在“编辑器”窗格中，将突出显示的文本 («String») 替换为在上面步骤 4 中命名的数据源的共享名称。

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

Closed使用自定义算法通过 VBScript 创建自定义检验数字

  1. 双击所需的条形码，以打开“条形码属性”对话框。也可以从对象的上下文菜单中选择“属性”。

  2. 在导航栏中，选择包含要编码的数据的数据源。

  3. 选择位于数据源工具栏上的 图标，以启动“新建数据源向导”。

  4. 针对“类型”，选择“Visual Basic 脚本”。

  5. 单击“完成”以关闭“新建数据源向导”。

  6. 将“脚本类型”更改为“多行脚本”。

  7. 选择“使用脚本编辑器编辑器”，以打开“器脚本编辑器”。

  8. 从“编辑器”窗格中移除任何现有的脚本文本。

  9. 输入与以下内容类似的自定义检验数字计算算法：

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

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

相关主题