FoxPro/Visual FoxPro - Abrir,Guardar,Cerrar TXT

Saludos.

Les doy las gracias por su apoyo en este foro de verdad me ha sido de gran ayuda. Tengo un archivo de texto TXT, que lo abro, modifico, pero no se como guardar los cambios, y despues lo cierro. tengo esto.me pueden ayudar?

Local cnControladorArch,nTamaño,cCadena

*'Abro archivo
cnControladorArch = FOPEN("C:\informe.TXT",2)
*'Leo archivo
cCadena = FREAD(cnControladorArch,10000)
*'Creo que reemplazo las comillas dobles (") por blanco comillas simples
? STRTRAN(cCadena, '"', '')
*'Creo que guardo el archivo
cCadena = FWRITE(cnControladorArch,'')
*'Cierro archivo
= FCLOSE(cnControladorArch)

cCadena = FWRITE(cnControladorArch,'') debiera ser
= FWRITE(cnControladorArch,cCadena')

Hola.

= FWRITE(cnControladorArch,cCadena')
Esto solo me agrega "ccadena" al final del archivo.El archivo de texto TXT lo genero de una consulta que la guardo en un cursor y luego doy un
COPY TO C:\INFORME.TXT DELIMITED WITH |
Como tengo campos Caracter que me los manda con comillas y he visto que en VFP6 es imposible quitar las comillas (por lo que ví en este foro con dudas de otras personas)cuando lo mandas a un archivo plano por lo que estoy trantando de hacer esto una vez que genero el archivo. Lo abro , busco comillas dobles(")las reemplazo por "nada" guardo los cambios y lo cierro.En teoría ahi tendría mi archivos libres de las comillas. Tal vez lo estoy haciendo mal o que me sugiere que haga.
Saludos y gracias por contestar.

Ya lo resolví con una tabla con un campo MEMO ,
Saludos.
Gracias a todos, tabmien a los que solo leyeron.

Hola Felicia, te deje un post en tu mensaje anterior por si te puede ayudar en algo. Un saludo

Jose Maria

No se entiende muy bien lo que necesitas hacer pero te cuento esto:

*abris el fichero para lectura y escritura
cnControladorArch = FOPEN("C:\informe.TXT",2)
IF FERROR()!=0 or cnControladorArch==-1
MESSAGEBOX( [ERROR DE APERTURA DE FICHERO], 16, [ERROR] )
RETURN
ENDIF

*lees los primeros 10.000 bytes y el puntero se mueve al byte 10.000
cCadena = FREAD(cnControladorArch,10000)

*reemplazas las comillas dobles (") por blanco comillas simples
cCadena=STRTRAN(cCadena, '"', '')

*retornas el puntero al primer byte
fseek( cnControladorArch, 0, 0 )

*guardo el archivo
cCadena = FWRITE(cnControladorArch,cCadena)

*'Cierro archivo
FCLOSE(cnControladorArch)

*Obs: dependiendo del valor de cCadena si tiene caracteres de control dudo que
* funcione cCadena=STRTRAN(cCadena, '"', '') pero no lo descarto habria que
* probar, si quieres podrias brindar mayores datos sobre el contenido del
* archivo a fin de mejorar el codigo

Gracias por tu ayuda , es justo lo que quería .Saludos. que esténs muy bien.