If you transform your negative list instead of the string you can do str: "Romeo loves Juliet very much" neg: [ to "cheese" | to "bread" | to "wine" | to "very" to end] if parse str neg [print "Kick out"]
AR Carl Read wrote: > On Tuesday, 21-April-2009 at 19:13:58 Kai Peters wrote, > > >> Hi All ~ >> >> I need to eliminate lines from a file that contain one or more words from a= >> "negative" list. >> Below is some simplified code showing how I am currently doing this. Is= >> there a faster/better way? >> >> TIA >> Kai >> >> >> str: "Romeo loves Juliet very much" >> neg: [ "cheese" "bread" "wine" "very" ] >> strbl: parse str none >> >> if (length? strbl) + (length? neg) > length? union strbl neg [ print "kick= >> out" ] >> > > if not empty? intersect strbl neg [print "Kick out"] > > -- Carl Read. > > -- To unsubscribe from the list, just send an email to lists at rebol.com with unsubscribe as the subject.
