Exportar cursor de vfp a archivo . Csv

[Marcelo Lopez]

Buenas noches . Una cosa q creia simple se me complicó o m terminé enredando yo..

Quiero obtener a partir de un cursor q contiene campos de distinto tipo ( string puro y transformados con str(campo). Fechas transforrmadas con ctod() en formato AAAA-MM-DD y campos enteros transformados a 16 dig .dos decimales . Lo q necesito hacer es pasar este cursor a un archivo .csv. 

Intente hacer : 

Copy to archivo.csv type  delimitaded with ";" y ponga como lo ponga este comando me sale separado por comas y no por punto y coma . Probe de poner el separador en una variable y tampoco sale . Hay alguna manera mas segura de hacer esto? Cual seria ? Gracias desde ya 

[Mik]

Prueba asi:

copy to d:\datos.csv type delimited with character ";"

Saludos!

[Zarlu]

Buenos días Marcelo!

Así puedes crear archivos CSV válidos:

Copy to archivo1.csv type delimited
Copy to archivo2.csv type delimited with character ";" &&cambia delimitador predeterminado

Pero el resultado dependerá de la configuración del separador de listas de windows

Suerte

zarlu

Chetumal, Quintana Roo, México

[Marcelo Lopez]

gracias por la ayuda brindada !

Les paso como lo solucione al final por si le sirve a otra persona:

Fui generando el archivo recorriendo el cursor y ahi me quedó como lo requeria ARCA:

Lparameters tcCursor As String
Local lcArchivo, lcFecha, lcLinea, lcRutaDestinoArchivo As String
lcArchivo = ""
lcFecha = ""
lcLinea = ""
lcRutaDestinoArchivo = ""

If Empty(tcCursor)
tcCursor = ""
EndIf

Do  case
Case tcCursor == "CURARCAPERCEPCION"
lcArchivo = ALLTRIM(ADDBS(gcDirTemp)) + "PERCEPCIONES_ARCAPEERC.csv"
strtofile("", lcArchivo)
Select (tcCursor)
GO TOP
SCAN      
lcLinea = ALLTRIM(Jurisdiccion) + ";" + ALLTRIM(Cuitemp) + ";" + ALLTRIM(Cuitprov) + ";" + FechaPercepcion + ";" + ;      
 ALLTRIM(tipocom) + ";" + ALLTRIM(STR(Constancia)) + ";" + Strtran(Alltrim(importe), ",", ".")    

STRTOFILE(lcLinea + CHR(13)+CHR(10), lcArchivo, 1)
ENDSCAN

lcRutaDestinoArchivo  = Putfile('Nombre de Archivo a presentar',( lcArchivo ), 'csv')

COPY FILE (lcArchivo) TO (lcRutaDestinoArchivo)
Otherwise

EndCase

VentanaAceptar( "Exportación Finalizada.", "Exportación" )

saludos desde Argentina

--
Blog de la Comunidad Visual FoxPro en Español http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.
Para ver este debate, visita https://groups.google.com/d/msgid/publicesvfoxpro/cb2b89cf-43c2-450a-bb0c-ccc691a01cacn%40googlegroups.com.