topic-2128

Board index FiveWin para Harbour/xHarbour Como recorrer mas rapido un arreglo

Posts: 225

Joined: Tue Feb 28, 2006 04:25 PM

Como recorrer mas rapido un arreglo
Posted: Fri Mar 10, 2006 06:37 PM

Estimados amigos uso xharbour

Tenemos un arreglo de 2 dimensiones adbf

Quiere solo recorrer la columna 3 y cambiarla a numerica

   For Fila=1 to len(aDbf)
     aDbf[Fila,3]:=val(aDbf[Fila,3] )
   Next Fila

Esto se puede hacer mas rapido con AEVAL y en todo
caso como serie el codigo

O es q para q sea mas rapido hay q usea FOR EACH y como
se haria en este caso

ME INTERESA FW Y XHB POR SER OPEN SOURCE

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Como recorrer mas rapido un arreglo
Posted: Fri Mar 10, 2006 06:41 PM

Vladimir,

El AEval() no tiene necesariamente que ser más rápido. De todas formas, podrías hacerlo así:

AEval( aDbf, { | a | a[ 3 ] := Val( a[ 3 ] ) } )

regards, saludos

Antonio Linares
www.fivetechsoft.com

MarioG

Posts: 1380

Joined: Fri Oct 14, 2005 01:28 PM

Como recorrer mas rapido un arreglo
Posted: Fri Mar 10, 2006 07:11 PM

Vladimir:
Walter Negro da una buena explicación de FOR EACH en su BLog
http://cosadenegro.blogspot.com/2005/03/optimizacin-v-for-each.html

Resistencia - "Ciudad de las Esculturas"

Chaco - Argentina

wmormar

Posts: 1076

Joined: Fri Oct 07, 2005 10:41 PM

Re: Como recorrer mas rapido un arreglo
Posted: Sat Mar 11, 2006 01:55 AM

Vladimir Zorrilla wrote:Estimados amigos uso xharbour

Tenemos un arreglo de 2 dimensiones adbf

Quiere solo recorrer la columna 3 y cambiarla a numerica

For Fila=1 to len(aDbf)
aDbf[Fila,3]:=val(aDbf[Fila,3] )
Next Fila

Esto se puede hacer mas rapido con AEVAL y en todo
caso como serie el codigo

O es q para q sea mas rapido hay q usea FOR EACH y como
se haria en este caso

He hecho pruebas con FOR EACH, va muy rápido la lectura de arreglos.

Comprobado.

William, Morales

Saludos

méxico.sureste

FiveTech Support Forums

Continue the discussion