FoxPro/Visual FoxPro - Fichero SCV

Pos: 103

Val: 11

Fichero SCV

Publicado por Irene (38 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 clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

Fichero SCV

Publicado por Ernesto Hernandez (4623 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 clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar

Pos: 103

Val: 11

Fichero SCV

Publicado por Irene (38 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

Comentar

Pos: 103

Val: 11

Fichero SCV

Publicado por Irene (38 intervenciones) el 19/09/2014 10:52:01

Muchas gracias, lo probare

Valora esta respuesta

Comentar

Pos: 39

Val: 24

Fichero SCV

Publicado por luis horacio (19 intervenciones) el 19/09/2014 16:00:42

Buenos días, yo lo hago de esta forma:

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

Comentar

Pos: 103

Val: 11

Fichero SCV

Publicado por Irene (38 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

Comentar

Como saber de que tipo de base de datos?

Conexión automática de Vfp9 a MySql