Find a text in a list

[Yves COPPE]

Le 17 déc. 03, à 00:12, Jan Schenkel a écrit :

> Hi Yves,
>
> The following ought to work :
> --
> on mouseUp
>   put fld 1 into tSearchText
>   put "maj klau" into tSearchWords
>   put 0 into tLineCounter
>   repeat for each line tLine in tSearchText
>     add 1 to tLineCounter
>     put true into tWordPresent
>     repeat for each word tWord in tSearchWords
>       put tWordPresent and (tWord is in tLine) \
>           into tWordPresent
>     end repeat
>     if tWordPresent
>     then put tLineCounter & return after tLines
>   end repeat
>   delete char -1 of tLines
>   answer tLines
> end mouseUp
> --
>
> Hope this helped,
>
> Jan Schenkel.
>
>

Thank you Jan, it just do what I wished...

Greetings.

Yves COPPE
yvescoppe at skynet.be