FoxPro/Visual FoxPro - Fichero SCV

   
Vista:

Fichero SCV

Publicado por Irene (32 intervenciones) el 18/09/2014 14:58:00
Hola a todos,
tengo que generar un fichero csv desde una aplicacion foxpro.
Lo que hago es crearme un cursor y despues poner la siguiente instruccion :

COPY TO C:\carpeta\fichero.csv TYPE delimited with character ","

El problema que tengo es que no me copia las cabeceras del cursor. Alguien sabe como hacerlo????

Muchas gracias
Irene
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

Fichero SCV

Publicado por Ernesto Hernandez (4632 intervenciones) el 18/09/2014 19:27:49
Prueba esta rutina que el compañero Javier ya hace un tiempo


USE MiTabla
COPY TO Texto1.TXT TYPE CSV
CREATE TABLE AUXILIAR( CampoMemo M(10) )
APPEND BLANK
APPEND MEMO CampoMemo FROM Texto1.TXT OVERWRITE
cTemp = STRTRAN( CampoMemo , '"', '' )
REPLACE CampoMemo WITH CTemp
COPY MEMO CampoMemo TO Texto2.TXT



Suerte
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

Fichero SCV

Publicado por Irene (32 intervenciones) el 22/09/2014 14:32:33
Hola,
ahora necesito introducir la primera linea en blanco en el fichero.
Sabeis como hacerlo?

Muchas gracias
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

Fichero SCV

Publicado por Irene (32 intervenciones) el 19/09/2014 10:52:01
Muchas gracias, lo probare
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

Fichero SCV

Publicado por luis horacio horacio.isaza@gmail.com (9 intervenciones) el 19/09/2014 16:00:42
Buenos días, yo lo hago de esta forma:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Larchivo='archivo.csv'
 
Lregistro=LOWER(fields(1))
      FOR i=2 TO FCOUNT()
            Lregistro=Lregistro+';'+LOWER(fields(i))
      endfor
 
      STRTOFILE(Lregistro+CHR(10),Larchivo,.t.)
 
      SELECT archivo1
      SCAN
            Lregistro=ALLTRIM(STR(consec))+';'+DTOC(fechanac)+';'+ALLTRIM(sexo)+';'+DTOC(fechacita)+';'+ALLTRIM(padr(peso,6,' '))+';'+ALLTRIM(STR(estatura))+CHR(10)
            STRTOFILE(Lregistro,Larchivo,.t.)
 
            SELECT archivo1
      endscan

Saludos
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

Fichero SCV

Publicado por Irene (32 intervenciones) el 22/09/2014 12:23:25
Muchas gracias. Me ha funcionado ya como me dijo el anterior compañero. Pero mirare tambien lo tuyo.
Un saludo
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