On Aug 8, 2015, at 4:51 PM, Richmond wrote:
> On 08/08/15 23:33, Peter M. Brigham wrote:
>
> <snip>
>> Missing an "of" in the two lines above:
>> put line textLine *of* $TEKST into line cookedLine of fld "COOKED" etc
>> Don't know if that's the problem.
>
> <snip>
>
>> Your script logic seems unnecessarily complex. Since it looks as if only the
>> last occurrence is ending up in the output field, instead of using a counter
>> to keep track of the next line in the field, you could just
>> put cr & line textLine of $TEKST after fld "COOKED"
>> But once again, loading a line into a field repeatedly will be much slower
>> than putting it into a variable in the repeat loop and then putting the
>> variable into the field just once when the repeat is done. Getting or
>> putting something from or into a field is much slower than doing the same in
>> a variable, so just do it once.
>>
>> Also, I can see no reason to be loading your data into system variables,
>> which is what "$WERBS" etc is defining. The only reason to put something
>> into a variable beginning with "$" is if you want some other system process
>> besides LC to be able to access the data.
>>
>> -- Peter
>>
>>
>
> Well, as per your suggestion I did this:
>
> on mouseUp
> put 1 into textLine
> put fld "WERBS" into WERBS
> put fld "TEKST" into TEKST
> repeat until line textLine of TEKST contains "finalSolution666"
> put textLine into fld "KOUNT"
> put 1 into verbLine
> repeat until line verbLine of WERBS is empty
> put line textLine of TEKST into fld "LYNE"
> put line verbLine of WERBS into WERB
> put "were" && WERB into FRAZE
> put FRAZE into fld "FRAZE"
> if line textLine of TEKST contains FRAZE then
> if fld "COOKED" is empty then
> put line textLine of TEKST after fld "COOKED"
> -- this is here so that line 1 of fld "COOKED" does not end up
> empty
> else
> put cr & line textLine of TEKST after fld "COOKED"
> end if
> end if
> add 1 to verbLine
> end repeat
> add 1 to textLine
> end repeat
> end mouseUp
>
> but still get only the last value.
Well, your logic still makes my head hurt, too many counters. Here's what I'd
do, using a variant of my original function since it appears that you want to
list the lines the relevant phrases occur in, not just the isolated phrases.
function findWere pText
-- returns a comma-delim list of all the line offsets matching "were *ed"
-- or "were" && <a word in your preterite list>.
put fld "WERBS" into pretList
put wordOffsets("were", pText, true) into offList
repeat for each item w in offList
put word w+1 of pText into testWord
if testWord ends with "ed" or testWord is among the words of pretList then
put (the number of lines of word 1 to w of pText) & comma after outList
end if
end repeat
return char 1 to -2 of outList
end if
then:
on mouseup
put fld "TEKXT" into tText
put findWere(tText) into linesList
repeat for each item i in linesList
put line i of tText & cr after relevantLines
end repeat
put char 1 to -2 of relevantLines into fld "COOKED"
end mouseup
Untested, but you get the idea.
-- Peter
Peter M. Brigham
pmb...@gmail.com
http://home.comcast.net/~pmbrig
_______________________________________________
use-livecode mailing list
use-livecode@lists.runrev.com
Please visit this url to subscribe, unsubscribe and manage your subscription
preferences:
http://lists.runrev.com/mailman/listinfo/use-livecode
