FiveTech Software tech support forums

Code: Select all  Expand view

for each hItems in aHash
   // en realidad deberías investigar  que devuelve hItems, el nombre lo puse al hazar aunque no lo uso
   cMatricula:=HGetKeyAt( aHash,HB_EnumIndex() )
   ? aHash[cMatricula]:cMatricula
   ? aHash[cMatricula]:cMarca
   ? aHash[cMatricula]:nPrecio
   ? aHash[cMatricula]:cColor
next

Code: Select all  Expand view

********************************************************************************
#include "FiveWin.ch"

function main()
public aCoches:={},oCoche
public hCoches:={=>} // Crea array/tabla HASH vacia
public nIndice,cMatricula,nSegundos
*---
nSegundos:=seconds()
for nIndice=1 to 1000000 // Un millon de veces
   Buscar1(alltrim(str(int(HB_Random(1,1000))))) // Números aleatorios de 1 a 1000
next nIndice
nSegundos:=seconds()-nSegundos
? nSegundos // 266 seg. con arrays/tablas convencionales
aCoches:={}
*---
nSegundos:=seconds()
for nIndice=1 to 1000000 // Un millon de veces
   Buscar2(alltrim(str(int(HB_Random(1,1000))))) // Números aleatorios de 1 a 1000
next nIndice
nSegundos:=seconds()-nSegundos
? nSegundos // 4 seg. con arrays/tablas HASH
hCoches:={=>}
*---
return nil

********************************************************************************

function Buscar1(cMatricula) // Con arrays/tablas convencionales
local nIndice:=aScan(aCoches,{|oCoche|oCoche:cMatricula==cMatricula})
if nIndice>0 // Existe
   oCoche:=aCoches[nIndice]
   oCoche:nAccesos:=oCoche:nAccesos+1
else // No existe
   oCoche:=TCoche():New(cMatricula)
   cMatricula:=oCoche:cMatricula
   aadd(aCoches,oCoche)
endif

*-------------------------------------------------------------------------------

function Buscar2(cMatricula) // Con arrays/tablas HASH
if cMatricula IN hCoches // Existe
   hCoches[cMatricula]:nAccesos:=hCoches[cMatricula]:nAccesos+1
else // No existe
   hCoches[cMatricula]:=TCoche():New(cMatricula)
   cMatricula:=hCoches[cMatricula]:cMatricula
endif
return nil

********************************************************************************

CLASS TCoche
   DATA nAccesos AS NUMERIC INIT 0
   DATA cMatricula,nPeso,cColor
   CLASSDATA lRegistered AS LOGICAL
   METHOD New(cMatricula) CONSTRUCTOR
   METHOD End()
ENDCLASS

METHOD New(cMatricula) CLASS TCoche
DEFAULT cMatricula:="XX9999"
::nAccesos:=1
::cMatricula:=cMatricula
::nPeso:=1000
::cColor:="rojo"
return Self

METHOD End() CLASS TCoche
::nAccesos:=nil
::cMatricula:=nil
::nPeso:=nil
::cColor:=nil
return .T.

********************************************************************************

hb_HDel(<hHash>, <Key>) ➜ hHash
Deletes a key and it’s associated value from a hash table.

hb_HDelAt(<hHash>, <nPosition>) ➜ hHash
removes an entry from a hash table, based on its index position.

Code: Select all  Expand view

HDel(hEncabezado,"nombre")