PascalThum

@UEZ Input Excel cell would be "=MOD43CheckChar("Test")" and the Output TestQ where Q the check character is. @spudw2k Yes, that's correct. The number 2 is your check character . Each of the HIBC LIC Standard data structures employs a Modulus 43 Check Digit for additional data security. The Check Digit is the Modulus 43 sum of all the character values in a given message, and is printed as the last character in a given message.

i think i found the solution by myself: $temp = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ-. $/+%" For $i = 1 To StringLen($HIBC) $subtotal = StringInStr ($temp, StringMid ($HIBC, $i, 1)) - 1 + $subtotal Next $MOD43CheckChar = StringMid($temp, (Mod($subtotal,43)+1),1)

Hi there I need help creating a script to calculate a check character with mod 43 for a barcode. I found this VBA script but can't adapt it for autoit. ' calc modulo 43 ‘ returns the input string plus the check character ' demo for www.activebarcode.com Public Function MOD43CheckChar(sValue As String) As String Const charSet As String = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ-. $/+%" Dim i As Integer Dim T As Long For i = 1 To Len(Trim(UCase(sValue))) T = InStr(charSet, Mid(sValue, i, 1)) - 1 + T Next i MOD43CheckChar = sValue & Mid$(charSet, (T Mod 43 + 1), 1) End Function Can somebody give me a hint? Thanks ,Pascal