Hi,
A bit sample (put it in one PRG and run it):
MESSAGEBOX(VAL(SUBSTR([abc152] , getNumberPosition([abc152]))))
MESSAGEBOX(VAL(SUBSTR([a152] , getNumberPosition([a152]))))
MESSAGEBOX(VAL(SUBSTR([152] , getNumberPosition([152]))))
MESSAGEBOX(VAL(SUBSTR([abcdefg152] , getNumberPosition([abcdefg152]))))
MESSAGEBOX(VAL(SUBSTR([ab] , getNumberPosition([ab]))))
RETURN
FUNCTION getNumberPosition(tsText as String) as Number
LOCAL lnPosition as Number
LOCAL lnFor as Number
lnPosition = 999
FOR lnFor = 1 TO LEN(tsText)
lnPosition = MIN(lnPosition, IIF(ISDIGIT(SUBSTR(tsText, lnFor, 1)), lnFor, 999))
ENDFOR
RETURN lnPosition
ENDFUNC
Good luck!
>hi,
>If your answer yes ?NO
>In other case you can to do A PARSE and look for a first number and substract it.? I HAVE NO IDEA
>
>THANKS.
>
>>Hi Mohammed,
>>Are your three first positions letter forever and the number begin in the fourth position?
>>If your answer yes so you can to do it:>>lnSticket = Val(SubStr(Sticket, 4))
>>lnEticket = Val(SubStr(Eticket, 4))
>>In other case you can to do a parse and look for a first number and substract it.
>>Good luck!
>>
>>>hi all,
>>>any idea, help>>>Sticket=ABC100 CHAR TYPE
>>>Eticket=abc40 CHAR TYPE
>>>NOOFTICKET NUMARIC TYPE
>>>NOOFTICKET= Sticket- Eticket=60
>>>THANKS
Erick
Força Sempre!
Strength Always!
