>>Dear Sirs,
>>
>>Regards & Hello
>>
>>I want a small prog or solution to clean a string which will remove all things execpt numbers and Alphbets.
>>
>>e.g:
>>
>>Original string is "abcd ## 55 JJJ )))345 )) +++++"
>>Result I should get: "ABCD55JJJ345"
>>RESULT IS IN UPPERCASE:
>>
>>
>>EARLY REPLY IS APPRICIATED.
>>
>>RAHUL
>
>
>One of possible solutions:
>

>#define SYMBOLS ':;,./\<>+=-{}[]()#*!?'
>for i=1 to len(SYMBOLS)
>	lcSymbol=substr(SYMBOLS,i,1)
>	cWordString=strtran(cWordString,lcSymbol,'')
>next
>cWordString=upper(cWordString)

Another simpler idea:

#define SYMBOLS ':;,./\<>+=-{}[]()#!?' && Note, I drop *
lcWordString=chrtran(lcWordString,SYMBOLS,replicate('*',len(SYMBOLS)))
lcWordString=strtran(lcWordString,'*','')