Newbie: find, search command

[Frank D. Engel, Jr.]

Except that you need to delete the last "cr" before putting it into the 
list, or you will have a blank line at the bottom; just add one line to 
the code:

> function FindData pStringToFind, pDataToSearch
>   repeat for each line tLine in pDataToSearch
>      if pStringToFind is in tLine then put tLine &cr after tFoundData
>   end repeat
   delete the last char of tFoundData
>   return tFoundData
> end FindData

On Dec 16, 2004, at 6:32 PM, Richard Gaskin wrote:

> D.Rothe wrote:
>> Hi,
>> I have a tab delimited list I want to be able to search, say I have a 
>> list of names for example;
>> Father Xmas    Is Drunk
>> New Years    Is after Xmas
>> Rudolph    The Reindeer
>> Merry Xmas    To all
>> I want to search for ALL instances of Xmas and display the whole 
>> matching line of each found in a list field.
>> So far I can get it to display the first line only ( Father Xmas    
>> Is Drunk) ! Any help would appreciated!!! I have checked the 
>> tutorials for help but couldn't find what I was looking for,
>> is there an example stack or notes anyone may know of?
>
> For short lists (<50,000 lines) you may be pleasantly surprised by the 
> speed of what might look like clunkly Transcript:
>
>
> function FindData pStringToFind, pDataToSearch
>   repeat for each line tLine in pDataToSearch
>      if pStringToFind is in tLine then put tLine &cr after tFoundData
>   end repeat
>   return tFoundData
> end FindData
>
>
> You can call it simply enough:
>
> on mouseUp
>   put FindData("Xmas", fld "stuff")
> end mouseUp
>
>
> --
>  Richard Gaskin
>  Fourth World Media Corporation
>  __________________________________________________
>  Rev tools and more: http://www.fourthworld.com/rev
> _______________________________________________
> use-revolution mailing list
> use-revolution at lists.runrev.com
> http://lists.runrev.com/mailman/listinfo/use-revolution
>
>
-----------------------------------------------------------
Frank D. Engel, Jr.  <fde101 at fjrhome.net>

$ ln -s /usr/share/kjvbible /usr/manual
$ true | cat /usr/manual | grep "John 3:16"
John 3:16 For God so loved the world, that he gave his only begotten 
Son, that whosoever believeth in him should not perish, but have 
everlasting life.
$



___________________________________________________________
$0 Web Hosting with up to 120MB web space, 1000 MB Transfer
10 Personalized POP and Web E-mail Accounts, and much more.
Signup at www.doteasy.com