REPLACE function 2

[badrion]

I'm still alittle new with FoxPro but I need to search a field NAME for a "#" sign or an "@" sign and replace it with nothing. I tried to do a SEEK FOR then a REPLACE/WITH but it didn't work. I'm guessing I put it in the wrong order or syntax. Any help would be appreciated.

 

[rajeevnandanmishra]

Hi badrion,

Do like following:
1. Create a function in your program
procedure convert
PARAME str
str=allt(str)
nLen=LEN(str)
newstr=''
FOR i=1 TO nLen
IF !INLIST(SUBSTR(str,i,1),'#','@')
newstr=newstr+SUBSTR(str,i,1)
ENDIF
ENDFOR
RETURN newstr

Now in your actual program write the following lines:
SELECT myTable
REPLACE ALL name with convert(name) ;
FOR ATC('@',name)<>0 OR ATC('#',name)<>0

Hope it works!

 

[rgbean]

I think you'll find that:
SELECT mytable
REPLACE ALL name with CHRTRAN(name, &quot;@#&quot;, &quot;&quot

will be quicker.

Rick

 

[Scott24x7]

Rick,
Nice work... that's a good one.
-Scott

 

[badrion]

Rick,

Thanks but it didn't work. It cleared out everything. Any other suggestions?

 

[badrion]

Rick,

I apologize, it did work. I had it in the wrong spot. That's the problem when working with someone else's code. Thank you SO much.!

Brandi