WinBatch Tech Support Home

Database Search

If you can't find the information using the categories below, post a question over in our WinBatch Tech Support Forum.

TechHome

Samples from Users
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus

Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.

CueCat Bar Code Reading Script

Keywords: 	 CueCat Bar Code Reader

;.C3nZC3nZC3nYE3rXENz6CNnY.cGf2.ENr7C3n0ENjXC3D7ENPZC3nZ.
;   978 007 912 048 990 000
STRA = "C3,CN,Cx,Ch,D3,DN,Dx,Dh,E3,EN"
STRB = "n,j,f,b,D,z,v,r,T,P"
STRC = "Z,Y,X,W,3,2,1,0,7,6"
STRTYPE = "fHmc,cGf2,CGen,fGjX,bNb2,aabl"         





strScanCode = AskLine("Scan a Line","Please scan a line.","")
intID =   StrIndex(strScanCode,".",2,@FWDSCAN)
strCatID = StrSub(strScanCode,2,24)
strBarcodeType = StrSub(strScanCode,27,4)
strCodeType = ItemLocate(strBarCodeType,STRTYPE,",")
Select strCodeType
    Case 1
        strType = "UPC"
        Break
    Case 2
        strType = "ISBN"
        Break
    Case 3
        strType = "ISBN"
        Break
    Case 4
        strType = "Magazine"
        Break
    Case 5
        strType = "Merchant"
        Break
    Case 6
        strType = "CueCat"
        Break
    Case 0
    Case strCodeType
        strType = "unknown"
        break
EndSelect


strCatBarCode = StrSub(strScanCode,32,(StrLen(strScanCode)-32)) 
;.C3nZC3nZC3nYE3rXENz6CNnY.fHmc.C3r1C3PXC3nZC3r2.
GoSub subGetCode
Message("Bar Code","Type: %strType%%@CRLF%Code: %strBarCode%%strBarCodeExtra%")


:subGetCode  ; returns barcode in variable strBarCode
strBarCode = "" ;initializes variable to null
intTotalLength = StrLen(strCatBarCode)
intCodeUnits = intTotalLength/4
strExtraCodeUnit = StrSub(strCatBarCode,(4*intCodeUnits),(intTotalLength mod 4))
If strExtraCodeUnit >0 Then GoSub subBarCodeExtra

for intUnitCount = 1 to intCodeUnits

    strUnit = StrSub(strCatBarCode,((4*intUnitCount)-3),4)
    strXX = StrSub(strUnit,1,2)
    intNumber = ItemLocate(strXX,STRA,",")
    If intNumber == 0
        Message("Code Error", "Error: This code was not recognized! Perhaps unknown?")
        Exit
    EndIf
    strBarCode = StrCat(strBarCode,(intNumber-1))
    strY = StrSub(strUnit,3,1)
    intNumber = ItemLocate(strY,STRB,",")
    If intNumber == 0
        Message("Code Error", "Error: This code was not recognized! Perhaps unknown? Try again.")
        Exit
    EndIf
    strBarCode = StrCat(strBarCode,(intNumber-1))
    strZ = StrSub(strUnit,4,1)
    intNumber = ItemLocate(StrZ,STRC,",")
    If intNumber == 0
        Message("Code Error", "Error: This code was not recognized! Perhaps unknown? Try again.")
        Exit
    EndIf
    strBarCode = StrCat(strBarCode,(intNumber-1))
Next
Return
;;;;;;;;
:subBarCodeExtra

    strBarCodeExtra = ""
    
    strFirst = StrSub(strExtraCodeUnit,2,2)
    intNumber = ItemLocate(StrFirst,STRA,",")
    If intNumber == 0
        Message("Code Error", "Error: This code was not recognized! Perhaps unknown? Try again.")
        Exit
    EndIf
    strBarCodeExtra = StrCat(strBarCodeExtra,(intNumber-1))
    strLast = StrSub(strExtraCodeUnit,1,1)
    intNumber = ItemLocate(strLast,STRC,",")
    If intNumber == 0
        Message("Code Error", "Error: This code was not recognized! Perhaps unknown? Try again.")
        Exit
    EndIf
    strBarCodeExtra = StrCat("-",strBarCodeExtra,(intNumber-1))
    Return



Article ID:   W14718
Filename:   CueCat bar code reading script.txt
File Created: 2000:11:14:12:43:46
Last Updated: 2000:11:14:12:43:46