Función FW_ArrayToCSV

[nanoespinoza]

Estimados todos

En la versión Enero-2021 se informa sobre esta nueva función:

* New function FW_ArrayToCSV( aData, [aHead], [cDelimCol=','], [cDelimRow=CRLF], ;
[cTrue], [cFalse] ) --> cCsvData (valtostr.prg)

La probe en mi aplicativo, no me genera errores, pero quiero visualizar el resultado que devuelve, es decir abrir el excel de inmediato o que al menos me cree un archivo con la extensión .CSV, estoy atrancado en ese tema.

Por favor, 1) como puedo abrir directo el excel a partir del resultado que devuelve la función FW_ArrayToCSV y 2) Como grabo el resultaod idrecto a un archivo .CSV.

Saludos

Fernando Espinoza A.

[karinha]

Mira se ayda:

https://forums.fivetechsoft.com/viewtopic.php?t=39951

Regards, saludos.

[nanoespinoza]

Estimados:

Lo resolví de esta manera:

Code: Select all  Expand view  RUN

* Convierte matriz a archivo con formato .CSV y abre Excel
cCSVDatos:=FW_ArrayToCSV(aPlantel,aCabeceras,";",CRLF,.T.,.T.)
cFile=RUTTMP+RTrim(cEquipo)+"_"+Str(nADA,4)+".csv"
IF(nHandle := FCreate( cFile, 0 )) == -1
    MsgInfo("Error al crear el archivo .CSV, revise que no preexista otro con el mismo nombre o que este abierto.", "Atención")
    RETU .F.
Endif
FWrite( nHandle, cCSVDatos )
FClose( nHandle )
IF MsgYesNo("El proceso terminó correctamente, si desea revisar el resultado seleccione Si, en caso contrario, encontrará el archivo generado en la carpeta ...\Temp"+CRLF+CRLF+"Nombre del archivo: "+cFile, "Aviso importante")
    ShellExecute( WndMain():hWnd, "open", cFile )
ENDIF
 

Saludos

Fernando Espinoza A.