topic-39761

jbrita

Posts: 537

Joined: Mon Jan 16, 2006 03:42 PM

HB_ATokens con array
Posted: Fri Dec 18, 2020 12:35 AM

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

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: HB_ATokens con array
Posted: Fri Dec 18, 2020 08:02 AM

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

regards, saludos

Antonio Linares
www.fivetechsoft.com

FranciscoA

Posts: 2170

Joined: Fri Jul 18, 2008 01:24 AM

Re: HB_ATokens con array
Posted: Fri Dec 18, 2020 04:15 PM

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 (fw): Select all Collapse

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

Francisco J. Alegría P.

Chinandega, Nicaragua.

Fwxh-MySql-TMySql

FiveTech Support Forums

Continue the discussion