find a word in a field of a dbf file

[fouednoomen]

Hello everyone, can someone help me,
how can I look for a character string example "name of the road" in a field address of a dbf file.
how can i use a index recherche
many thanks

[serge_girard]

How many records in your DBF?
If less than 10.000 I would do something like this:

Code: Select all

 
aFOUND := {}
DO WHILE .NOT. EOF() 
   IF 'someting' $ dbffield1 .OR.   'someting' $ dbffield2 // ETC....
      AADD(aFOUND, RECNO()) 
    ENDIF
    SKIP
ENDDO      
CLOSE ALL

FOR A = 1 TO LEN(aFOUND)
   ? aFOUND [A]
NEXT
 

Serge

[gfilatov]

how can I look for a character string example "name of the road" in a field address of a dbf file.
how can i use a index recherche

Hello,

Please take a look for a discussion at
http://hmgforum.com/viewtopic.php?f=13& ... eek#p58881

HTH

[dragancesu]

Maybe finction AT() help you

*** we found string 'something'

SET FILTER TO AT( 'someting', dbffield ) > 0
dbgotop()

p.s. this solution is not optimal but is easy

[fouednoomen]

Many thanks for all

[franco]

I use
temp = "temp"
index on address to temp for "somestreet" $ address
browse ???
set index to
temp := alltrim(temp)+".ntx"
erase (temp)
Franco

[SALINETAS24]

Hola, muy buena idea.

Maybe finction AT() help you

*** we found string 'something'

SET FILTER TO AT( 'someting', dbffield ) > 0
dbgotop()

p.s. this solution is not optimal but is easy

Yo utilizo esta forma lo aplico sobre el BROWSE activo, y funciona muy bien.

Code: Select all

(_cArea)->( dbSetFilter( {|| AT(xCadena,_cArea->Campo)> 0 },"AT(xCadena,_cArea->Campo)> 0"   ) )

_cArea : Alias de la DBF
xCadena : lo que quiero buscar
_cArea->Campo : Es el Campo de la DBF donde quiero saber si exite la xCadena

y me selecciona aquellos registros que devuelvan un valor mayor que cero

Saludos a todos y vamos con una cervecita