建立自訂檢驗數字

您可以使用現有檢查碼演算法或建立自訂演算法,在 Visual Basic 指令碼 (VBScript) 中建立自訂檢查碼。

關閉使用現有演算法建立自訂檢查碼

  1. 按兩下該條碼以開啟「條碼內容」對話方塊。或者,用滑鼠右鍵按一下條碼,然後按一下「屬性」。

  2. 在導覽窗格中,選取包含要編碼的資料的資料來源。

  3. 按一下資料來源工具列上的 圖示,以啟動「新增資料來源精靈」。

  4. 在「類型」清單中,選取「Visual Basic 指令碼」,然後按一下「完成」。

  5. 在「指令碼類型」清單中,選取「單行運算式」,然後按一下「在指令碼編輯器中編輯」以開啟指令碼編輯器

  6. 編輯器窗格中,刪除任何現有運算式文字。

  7. 指令碼助理窗格中,依序展開「函數」節點、「檢查碼」節點,然後按兩下所需的檢查碼類型。

  8. 在「指令碼助理」窗格中,找到並按兩下要用於取代反白文字 ("String") 的資料來源。

  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

    下一個

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

  8. 按一下「確定」,以關閉指令碼編輯器

相關主題