Este ejemplo que encontre esta para chuparse los dedos...
cFile = FILETOSTR("file.csv") && check VFP system capacity
nLines = ALINES(aFile,cFile) && each row is an element
For i = 2 to nLines
cLine = aFile(i)
cName = substr(cLine,1,AT(",",cLine)-1)
cLine = substr(cLine,AT(",",cLine)+1)
cAdd = substr(cLine,1,AT(",",cLine)-1)
cDesc = substr(cLine,AT(",",cLine)+1)
insert into table values (cName,cAdd,cDesc)
Next
Saludos,
Pancho
Cordoba
El 24 de mayo de 2011 09:43, francisco prieto <[email protected]>escribió:
> Si no llegaras a tener la estructura del csv, podes hacer dos pasos...
>
> 1) con el ejemplo que di hace un rato de excel, abris el csv y lo guardas
> como xls
> 2) usas el comando import de vfp para importar el xls.
>
>
> La otra posibilidad es que abras el archivo con excel y lo proceses desde
> ahi mismo.
>
> Saludos,
>
> Pancho
> Cordoba
>
> El 24 de mayo de 2011 09:20, César Pistiner (GMail) <[email protected]
> > escribió:
>
>> Hola Dany, si conoces la estructura del archivo CSV creo que con esto
>> alcanza...
>>
>> 1. Creas un cursor con la estructura del archivo origen: Create Cursor
>> [cursorConEstructuraCSV]...
>>
>> 2. Le haces un append de esta forma: Append From [archivoCSV]
>> Delimited With Character ';'
>> Espero que te sirva
>> Saludos.
>> César Pistiner
>> ----- Original Message -----
>>
>> *From:* Dany yahoo <[email protected]>
>> *To:* GUFA List Member <[email protected]>
>> *Sent:* Monday, May 23, 2011 1:31 PM
>> *Subject:* [GUFA] Consulta cvs a dbf
>>
>>
>>
>> Hola amigos tengo aca una duda, hay un sistema el cual no es mio, y te
>> exporta una serie de datos a archivo .cvs, separados por punto y coma.
>> Yo lo que quiero hacer es exportar los datos de este archivo a una dbf,
>> ahora estoy haciendo una pantallitas para que me salga en un report, me
>> encuentro en este momento trabajando en eso. Lo que hice hasta ahora es
>> hacerlo con la opcion de hacerlo automático desde el menu de vfp.
>> En resumen lo que quiero es pasar esto que hice en forma automatica de que
>> me pase los datos del archivo cvs a dbf, pero no logro darle como hacerlo
>> desde un formulario.-
>> Muchas gracias por la ayudas desde ya
>> Saludos
>> Dany
>>
>>
>> __________ Información de ESET NOD32 Antivirus, versión de la base de
>> firmas de virus 6145 (20110523) __________
>>
>> ESET NOD32 Antivirus ha comprobado este mensaje.
>>
>> http://www.eset.com
>>
>>
>
