Buenas tardes a todos los integrantes de estos foros
agradezco de antemano a toda la comunidad de estos foros
quiero saber si hay alguna funcion que permita hacer busquedas tipo Google en archivos .dbf
saludos cordiales
Tomas Hernandez
local hWords := Hash(), nField, nWord, cWord
USE yourDbf
while ! Eof()
for nField = 1 to FCount()
nWord = 1
while ! Empty( cWord := StrToken( FieldGet( nField ), nWord++ ) )
TRY
hWords[ cWord ] = nOr( hWords[ cWord ], 2 ^ ( RecNo() - 1 ) )
CATCH
hWords[ cWord ] = 2 ^ ( RecNo() - 1 )
END
end
next
SKIP
end
// MsgInfo( hWords[ cWord1 ] )
// MsgInfo( hWords[ cWord2 ] )
MsgInfo( nAnd( hWords[ cWord1 ], hWords[ cWord2 ] )
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: Google [Bot] and 75 guests