使用瀏覽打開主題
您可以使用現有檢查碼演算法或建立自訂演算法,在 Visual Basic 指令碼 (VBScript) 中建立自訂檢查碼。
使用現有演算法建立自訂檢查碼
按兩下該條碼以開啟「條碼內容」對話方塊。或者,用滑鼠右鍵按一下條碼,然後按一下「屬性」。
在導覽窗格中,選取包含要編碼的資料的資料來源。
按一下資料來源工具列上的 圖示,以啟動「新增資料來源精靈」。
在「類型」清單中,選取「Visual Basic 指令碼」,然後按一下「完成」。
在「指令碼類型」清單中,選取「單行運算式」,然後按一下「在指令碼編輯器中編輯」以開啟指令碼編輯器
在編輯器窗格中,刪除任何現有運算式文字。
在指令碼助理窗格中,依序展開「函數」節點、「檢查碼」節點,然後按兩下所需的檢查碼類型。
在「指令碼助理」窗格中,找到並按兩下要用於取代反白文字 ("String") 的資料來源。
按一下「確定」,以關閉指令碼編輯器。
使用自訂演算法建立自訂檢查碼
在「指令碼類型」清單中,選取「多行指令碼」,然後按一下「在指令碼編輯器中編輯」以開啟指令碼編輯器.
輸入自訂檢查碼演算法,如下所示:
'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)
相關主題