cerca2

--CERCA2 RICERCA testo e conta ritrovamenti tasto ATTIVA
--conta numero righe campo contenente record da analizzare
--uso di IF multipli
on mousedown
  put 0 into trovato
  set visible of msg to false
  put "" into cd fld 2
  put "" into cd fld 3
  ask scrivi_parola_da_cercare
  put it into parola
  put 1 into b
  put 0 into n
  put FINE into limite
  put 100 into massimo
  repeat with a=1 to massimo
    get line a of cd fld 1
    if it = limite then exit repeat
    add 1 to n
  end repeat
  put "record presenti= " & n
  REPEAT with a=1 to n
    get line a of cd fld 1
    put it into testo
    if testo=parola then 
      set textcolor of cd fld 1 to 30
      put testo into line a of cd fld 1 
      add 1 to b
      add 1 to trovato
      set textcolor of cd fld 2 to 22
      set textstyle of cd fld 3 to "bold"
      put testo into line b of cd fld 3
      put "linea=" & a into line b of cd fld 2      
    end if
    set textcolor of cd fld 1 to 14
  end repeat
  put "ritrovamenti testo = " & trovato  
end mousedown