>i have one string
>
>lcString = "18,21,33,45,150,999"
>
>I want extract numbers
>
>18
>21
>33
>45
>150
>999
>
>"," is separator between numbers

See the following two functions:

* Return the number of parameters in a list
* expC1 Parameter list
* expC2 Delimiter (default is the comma)
FUNCTION ParmCnt
PARAMETER tcParms,tcDelimiter
LOCAL lcDelimiter
IF TYPE('tcDelimiter')<>'C'
   lcDelimiter=','
   ELSE
   lcDelimiter=tcDelimiter
ENDIF
RETURN IIF(EMPTY(tcParms),0,OCCURS(lcDelimiter,tcParms)+1)


* Return a parameter value from a list
* expC1 Parameter list
* expN1 Parameter number
* expC2 Delimiter (default is the comma)
FUNCTION GetParm
PARAMETERS tcParms,tnNo,tcDelimiter
LOCAL lcDelimiter,lnBPos,lnEPos
IF TYPE('tcDelimiter')<>'C'
   lcDelimiter=','
   ELSE
   lcDelimiter=tcDelimiter
ENDIF
lnBPos=AT(lcDelimiter,lcDelimiter+tcParms+lcDelimiter,tnNo)
lnEPos=AT(lcDelimiter,lcDelimiter+tcParms+lcDelimiter,tnNo+1)
RETURN SUBSTR(tcParms,lnBPos,lnEPos-lnBPos-1)

Call ParmCnt() to get the number of items, then just loop with FOR NEXT to get each of them by the use of GetParm().