>Found it!
>
>FOR nCnt = 1 TO 10
> cCharacter = SUBSTR(cTest, nCnt, 1)
> IF ISDIGIT(cCharacter)
> cNumOnly = cNumOnly + cCharacter
> ELSE
> IF ISALPHA(cCharacter)
> cNumOnly = cNumOnly + cCharacter
> ENDIF
> ENDIF
>ENDFOR
Hi Roelaux (from a former Alabamian):
You can do better than this.
To remove embedded spaces:
chrtran(cTest," ","")
To remove all but alphanumeric (upper) characters:
chrtran(cTest,chrtran(cTest,"ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890",""),"")
Should be much faster (not to mention slicker :).
Peter Robinson
(My son and I will be rolling down to Birmingham to spend Thanksgiving with my bro and his family.)
Peter Robinson ** Rodes Design ** Virginia