Visual Basic

Copy Code

 Public Function Bar25Ics(ByVal BarTextIn As String) As String
 
    ' Initialize input and output strings
    BarTextOut = ""
    BarTextIn = RTrim(LTrim(BarTextIn))
 
    ' Throw away non-numeric data
    TempString = ""
    For II = 1 To Len(BarTextIn)
        If IsNumeric(Mid(BarTextIn, II, 1)) Then
            TempString = TempString & Mid(BarTextIn, II, 1)
        End If
    Next II
 
    ' If not an odd number of digits, add a leading 0
    If (Len(TempString) Mod 2) = 0 Then
        TempString = "0" & TempString
    End If
 
    ' Figure out the checksum digit
    Sum = 0
    For II = 1 To Len(TempString)
        CharValue = Mid(TempString, II, 1)
        If (II Mod 2) = 1 Then
            Sum = Sum + (3 * CharValue)
        Else
            Sum = Sum + CharValue
        End If
    Next II
 
    ' Figure checksum, add it as last digit
    CheckSum = 10 - (Sum Mod 10)
    If CheckSum = 10 Then CheckSum = 0
    TempString = TempString & Chr(48 + CheckSum)
 
    ' Break digit pairs up and convert to characters- build output string
    For II = 1 To Len(TempString) Step 2
        'Break string into pairs of digits and get value
        CharValue = Mid(TempString, II, 2)
        'translate value to ASCII and save in BarTextOut
        If CharValue < 90 Then
            BarTextOut = BarTextOut & Chr(CharValue + 33)
        Else
            BarTextOut = BarTextOut & Chr(CharValue + 71)
        End If
    Next II
 
    'Build ouput string, trailing space for Windows rasterization bug
    barcodeout = "{" & BarTextOut & "} "
 
    'Return the string
    Bar25Ics = barcodeout
 
 End Function