LiveCode Forums.

Code: Select all

on dragMove
   select the mouseText
end dragMove

on mouseUp
   answer the selectedText
end mouseUp

Code: Select all

on mouseUp
   put word 2 of the selectedChunk into tStartChar
   put word 4 of the selectedChunk into tEndChar
   put "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ'-" into tTestString
   
   // Move backward through the field to find the whole word start
   put false into tFoundStart
   repeat until tFoundStart = true
      put char tStartChar of field fText into tChar
      if tChar is not in tTestString then
         put true into tFoundStart
      else
         subtract 1 from tStartChar
      end if
   end repeat
   
   // Move forward through the field to find the whole word end
   put false into tFoundEnd
   repeat until tFoundEnd = true
      put char tEndChar of field fText into tChar
      if tChar is not in tTestString then
         put true into tFoundEnd
      else
         add 1 to tEndChar
      end if
   end repeat
   
   answer char tStartChar to tEndChar of field fText
end mouseUp

Code: Select all

on mouseUp
    put field "ftext" into tText
    put the selectedchunk into tChunk
    put word 2 of tChunk into tCharNumberStart
    put word 4 of tChunk into tCharNumberEnd
    
    -- if the user includes a trailing ,.?! in the selection then Rev counts that as word
    if char tCharNumberStart of tText is in ".,?!" then add 1 to tCharNumberStart
    
    put the number of words of (char 1 to tCharNumberStart-1 of tText) into tNoWUntilSelection
    put the number of words of char tCharNumberStart to tCharNumberEnd of tText into tNoWSelection
    put the number of words of char 1 to tCharNumberEnd of tText into tNoWStartTextUntilEndSelection
     
    if tNoWSelection > 0  then 
        put word (tNoWStartTextUntilEndSelection - (tNoWSelection -1))  to tNoWStartTextUntilEndSelection of tText into ttheWords
    else 
        put empty into tTheWords
    end if
     
    -- somehow rev takes a trailing .?! , as part of the word
    if last char of tTheWords is in ".,?!" then delete last char of ttheWords
     
    put "tNoWUntilSelection" && tNoWUntilSelection & return & \
            "tNoWStartTextUntilEndSelection" && tNoWStartTextUntilEndSelection & return & \
            "tNoWSelection" && tNoWSelection & return & return & \
            "Words selected = " & return &   tTheWords into tDisplay
     
    answer tDisplay
end mouseUp

Code: Select all

   // Move backward through the field to find the whole word start
   repeat until char tStartChar of field fText is not in tTestString
         subtract 1 from tStartChar
   end repeat
   
   // Move forward through the field to find the whole word end
   repeat until char tEndChar of field fText is not in tTestString
         add 1 to tEndChar
   end repeat

Code: Select all

put "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ'-" into tTestString

Code: Select all

on mouseUp
     put the selectedChunk into myChunk
     put (number of words of char 1 to (word 2 of myChunk) of me) into myFirstWord
     put (number of words of char 1 to (word 4 of myChunk) of me) into myLastWord
     put myFirstWord && myLastWord
     select word myFirstWord to myLastWord of me
     -- now you can do with the selectedText whatever you like
end mouseUp

Code: Select all

-- replace myVar with your own var
put the selectedText into myVar
replace cr with space in myVar
-- your script follows here

Code: Select all

local hiliteCounter, hilitedList
on mouseUp 
   -- this is for debugging to reset the counter and the list and the hilites
   -- you can take this out
   if the optionkey is down then
      set the backgroundcolor of char 1 to -1 of me to ""
      put 0 into hiliteCounter
      put "" into hilitedList
      put "" into field "output"
      exit mouseUp
   end if
   put hiliteCounter+1 into hiliteCounter 
   put word 2 of the selectedChunk into tStartChar 
   put word 4of the selectedChunk into tEndChar 
   put tStartChar && tEndChar
   
   -- if the user clicks before the first word it selects the whole text
   if  tEndChar = 0 then exit mouseUp
   
   put "1234567890.,¿!abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ'-" into tTestString 
   put field "text2" into tTest
   
   put false into tFoundStart 
   repeat until tFoundStart = true 
      put char tStartChar of tTest into tChar 
      if tChar is not in tTestString then 
         put true into tFoundStart 
      else 
         subtract 1 from tStartChar 
      end if 
   end repeat 
   
   put false into tFoundEnd 
   repeat until tFoundEnd = true 
      put char tEndChar of tTest into tChar 
      if tChar is not in tTestString then 
         put true into tFoundEnd 
      else 
         add 1 to tEndChar 
      end if 
   end repeat 
   
   set backgroundColor of char tStartChar+1 to tEndChar-1 of field "Text2" to yellow 
   put char tStartChar+1 to tEndChar-1 of tTest into tReplaceReturns
   replace return with space in tReplaceReturns
   replace space & space with space in tReplaceReturns
   
   put tStartChar+1 & " " & tReplaceReturns into line hiliteCounter of hilitedList
   sort hilitedList numeric
   -- we leave the hilitedList alone and work on a copy of it
   put hilitedList into tListToClean
   repeat with i = 1 to the number of lines of tListToClean
      delete word 1 of line i of tListToClean
   end repeat
   filter tListToClean without empty
   put tListToClean into field "output"
end mouseUp 

Code: Select all

set backgroundColor of char tStartChar+1 to tEndChar-1 of field "Text2" to yellow 
   
   put char tStartChar+1 to tEndChar-1 of tTest into tReplaceReturns
   
   -- take returns out so it won't break the lines of the hilitedList
   replace return with "|" in tReplaceReturns
   
   put tStartChar+1 & " " & tReplaceReturns into line hiliteCounter of hilitedList
   sort hilitedList numeric
   put hilitedList into field 3
   -- we leave the hilitedList alone and work on a copy of it
   put hilitedList into tListToClean
   repeat with i = 1 to the number of lines of tListToClean
      delete word 1 of line i of tListToClean
   end repeat
   -- remove empty lines
   filter tListToClean without empty
   -- put the returns back in
   replace "|" with return in tListToClean
   
   put tListToClean into field "output"
end mouseUp 

Code: Select all

put tStartChar && tEndChar