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

    下一個

    Value = Mid(charSet, (total Mod 43 + 1), 1)

  10. 按一下「確定」，以關閉指令碼編輯器。

相關主題