Look up the SubStr( ) command

StartAt = 2
NumofChars = 2
lcPartOfString =  SubStr(lnTermData , StartAt , NumOfChar)

or

lcPartOfString =  SubStr(lnTermData , 4, 25)
for a substring starting at char 4 for a lenght of 25

David W. Grewe
Dave@internationalbid.com

Thanks Dave for your reply..

Unfortunatly I can't use substr as it isn't a string..

sorry if I was vague..

I just get 0 then three squares obviusly ascii codes..

Hi Mike,

  Can you post exactly what you're trying to parse?  Is it just a 'string' of numbers or are characters mixed in?  (maybe you're getting squares back because the font set you're using doesn't define those upper-ascii characters)?  Do the ascii codes have a definite length or do they vary (ie- 100='d', does 99='c' or 099='c')?  A couple functions to look at are
  STR(); CHR(); VAL(); SUBSTR(); and maybe PADL().

I hope that helps, otherwise, come back for more!
-- michael~

IF you are able to use:
RFTerminalID = Left(lnTermData,1) then lnTermData must be a character string and you should be able to use all functions that manipulate character strings.

What error message do you get when you are using SUBSTR(), on your data ?

HTH,

Weedz (Wietze Veld)
My private project:www.crowncap.demon.nl\info\crwnbase
Download the CrownBase source code !!

*** ActiveX Control Event ***
Local lnAsco, action, lnTermData, lnbitn ;

If This.inBufferCount > 0
        lnTermData = This.input
    IF ASC(RIGHT(lntermData,1)) = 13
        lnasco = ASC(SUBSTR(lntermdata,2,1))
        RFTerminalID = Left(lnTermData,1)
        lnbitn = ASC(Substr(lnTermData,3,1))

        thisform.text2.value = lntermdata
    

        Use .\Data\dbfcomm
        Select * From dbfcomm ;
            WHERE rascii = lnAsco ;
            INTO Cursor myquery
    
        Select myquery
        Thisform.text1.Value =  Thisform.text1.Value + " " + myquery.Descriptio
        action = myquery.Command

        &action
        
        Select dbfcomm
            Use
        Select myquery
            USE
    ENDIF
ENDIF



Seemz to work now....


Apart from the fact, I don't always recieve the full string. See it's a barcode reader. From Worthdata.com

Comes with some really good example VB apps. But boss wants it doing in stinky ol' foxpro

If it can be done in VB, it can probably be done easier in VFP!  Of course, that's only my opinion.  :)

Dave S.