HB_ATokens con array

[jbrita]

Amigos necesito pasar un texto separados con ; a un array :

Local aArray:= HB_ATokens( memoread("c:\systema\farmacia\traslado\EnvioCosto-3-12-2020.TXT"), ";" )

*? aArray[1] //---> ESTE LO MUESTRA TODO PERO EL XBROWSE NADA

define window ownd

@ 0,0 XBROWSE oBrw OF oWnd array aArray LINES CELL cols{ 1,2,3,4 } ;
Header "A","B","C","D" colsizes 50,50,50,50

activate window oWnd

saludos

[Antonio Linares]

Puedes proporcionar el fichero c:\systema\farmacia\traslado\EnvioCosto-3-12-2020.TXT ?

[FranciscoA]

jbrita.
Este codigo funciona. ( El tuyo modificado )
Los siguientes datos para el fichero.txt los tomé de aquí: viewtopic.php?f=6&t=37893&hilit=BANCO+SANTANDER#p226453

Code: Select all  Expand view

FOPERACIO;FPRESENTA;FECHAPAGO;NUMCUPON;NCOMERCIO;NTARJETA;MONEDA;TOTBRUTO;TOTDESCTO;TOTALNETO;ENTIDPAGA;CUENTABCO;LIQUIDAC;TIPLIQUID;ESTCUOTAS;NAUTORIZ;TARJETA;
09/10/2019;09/10/2019;11/10/2019;52;23643331;5016;ARS;1770.00;17.7;1752.30;BANCO SANTANDER;3691926;133011;Liquidado;0;740370;VISA DEBIT;
08/10/2019;08/10/2019;10/10/2019;16;23643331;9009;ARS;1800.00;18;1782.00;BANCO SANTANDER;3691926;132917;Liquidado;0;593656;VISA DEBIT;
08/10/2019;08/10/2019;10/10/2019;15;23643331;9009;ARS;2260.00;22.6;2237.40;BANCO SANTANDER;3691926;132917;Liquidado;0;593088;VISA DEBIT;
07/10/2019;08/10/2019;10/10/2019;14;23643331;0029;ARS;3000.00;30;2970.00;BANCO SANTANDER;3691926;132917;Liquidado;0;164768;VISA DEBIT;
07/10/2019;08/10/2019;10/10/2019;51;23643331;4020;ARS;3750.00;37.5;3712.50;BANCO SANTANDER;3691926;132917;Liquidado;0;528856;VISA DEBIT;
07/10/2019;08/10/2019;10/10/2019;50;23643331;4020;ARS;1080.00;10.8;1069.20;BANCO SANTANDER;3691926;132917;Liquidado;0;528587;VISA DEBIT;

Function Txt2Array()
Local aArray:= HB_ATokens( MemoRead(".\hola2.txt"), ";" )

XBROWSER aArray TITLE "De Texto a Array"

Return nil