topic-42749

Posts: 163

Joined: Thu Mar 16, 2017 04:08 PM

Función FW_ArrayToCSV
Posted: Sun Feb 05, 2023 02:45 PM

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] ) --&gt; 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

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: Función FW_ArrayToCSV
Posted: Mon Feb 06, 2023 04:00 PM

Mira se ayda:

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

Regards, saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

nanoespinoza

Posts: 163

Joined: Thu Mar 16, 2017 04:08 PM

Re: Función FW_ArrayToCSV
Posted: Mon Feb 06, 2023 05:04 PM

Estimados:

Lo resolví de esta manera:

Code (fw): Select all Collapse

* 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.

FiveTech Support Forums

Continue the discussion