Matchtext for multiple words

[Mark Smith]

Here's my version:

put "dog" &  cr & "cat" & cr & "dinosaur" into tWords

get aMatch(tWords,tText)


function aMatch pWords,tText
     sort lines of pWords

     repeat for each word W in tText
         put empty into newWord
         repeat for each char C in W
             if charToNum(C) >= 65 then put C after newWord -- to get  
rid of punctuation - maybe not ideal!
          end repeat
          if newWord is among the lines of pWords then put 0 into  
foundWordArray[newWord]
      end repeat

      put the keys of foundWordArray into foundWords
      sort lines of foundWords

      return foundWords is pWords
end aMatch

Best,

Mark

On 29 Nov 2006, at 23:07, J. Landman Gay wrote:


>
> Basically I need the fastest possible way to scan a large number of  
> text blocks for an indefinite number of words which occur in any  
> portion of the text.
>
> I'll try Ken's thing too -- thanks Ken.
>
> (I'll send this once and cross my fingers.)
> -- 
> Jacqueline Landman Gay         |     jacque at hyperactivesw.com
> HyperActive Software           |     http://www.hyperactivesw.com
> _______________________________________________
> use-revolution mailing list
> use-revolution at lists.runrev.com
> Please visit this url to subscribe, unsubscribe and manage your  
> subscription preferences:
> http://lists.runrev.com/mailman/listinfo/use-revolution