Remove Carriage Returns from DBF

[jwkolker]

We are trying to remove (replace) hard carriage returns from a field in a dbf. Does anyone have the code handy that will do that?

JK

John Kolker
Programmer
jwkolker@comcast.net

 

[ormsk]

Hi

Try
cSearch = chr(10)
cReplace = ""

nPos = 0

do while .not. eof()
if cSearch $ surname
nPos = AT(cSearch,MyField)
REPLACE MyField WITH STUFF(MyField,nPos,2,cReplace)
endif
skip
enddo

HTH