生成字符串校验码的方法
发布时间：2020-12-16 22:47:26 所属栏目：大数据 来源：网络整理
导读：以前的一个项目中遇到过要核对条码的校验码的需求，感觉有时候还是非常有用的，下面提供代码，代码版本为VB.net： //根据输入的的条码来计算该条码的校验位 Private Function GetCheckDigit(Byal strCode As String) As String Dim intCurVal As Int16 = 0 D
|
以前的一个项目中遇到过要核对条码的校验码的需求，感觉有时候还是非常有用的，下面提供代码，代码版本为VB.net： //根据输入的的条码来计算该条码的校验位
Private Function GetCheckDigit(Byal strCode As String) As String
Dim intCurVal As Int16 = 0 Dim intChksum As Int16 = 0 Dim chrCur As String Dim intPos As Int16
'Check for invalid characters and calculate check sum
For intPos = 1 To Len(strCode) chrCur = Mid(strCode,intPos,1) Select Case chrCur Case "0" To "9" intCurVal = Val(chrCur) Case "A" To "Z" intCurVal = Asc(chrCur) - 55 Case "-" intCurVal = 36 Case "." intCurVal = 37 Case " " intCurVal = 38 Case "$" intCurVal = 39 Case "/" intCurVal = 40 Case "+" intCurVal = 41 Case "%" intCurVal = 42 Case Else
End Select
intChksum = intChksum + intCurVal Next
intChksum = intChksum Mod 43
Select Case intChksum
Case 0 To 9 Return intChksum.ToString() Case 10 To 35 Return Chr(intChksum + 55) Case 36 Return "-" Case 37 Return "." Case 38 Return " " Case 39 Return "$" Case 40 Return "/" Case 41 Return "+" Case 42 Return "%" Case Else
End Select
Return "0" End Function
（编辑：李大同） 【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容! |