> *-- myapp.checker
> LOCAL laFinal[1], lcString
> DIMENSION laFinal[1]
> laFinal[1] = ""
> lcString = "ABBBACCCADDD"
>
> laFinal = newobj.convert(lcString)
>
>
>
>
> *-- myapp.convert
> LPARAMETER lcData
> LOCAL laNewArray, lnCount, lnItemLine
> DIMENSION laNewArray[1]
> STORE 0 TO lnItemLine, lnCount
> lnCount = OCCURS("A", lcData)
> *-- Checked this, lnCount = 3
> *-- now, here is some code to take out extra stuff, like line feeds, etc..
>
> *-- Okay, all that will be left in lcData is letters....
> FOR lnWork = 1 TO lnCount
> *-- put the data into an array, take out each "A", etc...
> lnItemLine = lnItemLine + 1
>
> NEXT
>
> *-- Now, at this point I have and can see laNewA--sb--