FoxPro/Visual FoxPro - Abrir,Guardar,Cerrar TXT

   
Vista:

Abrir,Guardar,Cerrar TXT

Publicado por Felicia (5 intervenciones) el 24/09/2010 00:29:20
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)
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Abrir,Guardar,Cerrar TXT

Publicado por Plinio (7771 intervenciones) el 24/09/2010 15:24:04
cCadena = FWRITE(cnControladorArch,'') debiera ser
= FWRITE(cnControladorArch,cCadena')
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Abrir,Guardar,Cerrar TXT

Publicado por Felicia (5 intervenciones) el 24/09/2010 17:58:09
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.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Abrir,Guardar,Cerrar TXT

Publicado por Felicia (5 intervenciones) el 24/09/2010 20:36:25
Ya lo resolví con una tabla con un campo MEMO ,
Saludos.
Gracias a todos, tabmien a los que solo leyeron.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Abrir,Guardar,Cerrar TXT

Publicado por Jose Maria Merchan (10 intervenciones) el 25/09/2010 13:16:11
Hola Felicia, te deje un post en tu mensaje anterior por si te puede ayudar en algo. Un saludo

Jose Maria
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Abrir,Guardar,Cerrar TXT

Publicado por xx (378 intervenciones) el 25/09/2010 15:33:12
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Abrir,Guardar,Cerrar TXT

Publicado por Felicia (5 intervenciones) el 27/09/2010 15:28:29
Gracias por tu ayuda , es justo lo que quería .Saludos. que esténs muy bien.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar