Page 1 of 1
HB_ATokens con array
Posted: Fri Dec 18, 2020 12:35 am
by 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
Re: HB_ATokens con array
Posted: Fri Dec 18, 2020 8:02 am
by Antonio Linares
Puedes proporcionar el fichero c:\systema\farmacia\traslado\EnvioCosto-3-12-2020.TXT ?
Re: HB_ATokens con array
Posted: Fri Dec 18, 2020 4:15 pm
by FranciscoA
jbrita.
Este codigo funciona. ( El tuyo modificado )
Los siguientes datos para el fichero.txt los tomé de aquí:
https://forums.fivetechsupport.com/view ... ER#p226453
Code: Select all
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