LiveCode Forums.

Code: Select all

   repeat with x = 1 to the number of words in fld "text"
   put wordoffset("title",field "text", tTitle)  into title1
   set the textstyle of word title1+ tTitle  of field "text" to "italic"
   put title1  + tTitle into tTitle
   end repeat

Code: Select all

on mouseUp
   put 0 into tWordOffset
   put 0 into tLastWordFound
   set the caseSensitive to true
   lock screen
   repeat
      put wordOffset("TITLE",field "text",tLastWordFound) into tWordOffset
      if tWordOffset = 0 then -- no more found, exit but change last word found.
         set the textStyle of word tLastWordFound of field "text" to "italic"
         exit repeat
      end if
      set the textStyle of word tLastWordFound of field "text" to "italic"
      add tWordOffset  to tLastWordFound
   end repeat
   unlock screen
end mouseUp

Code: Select all

on mouseUp
   put "TITLE1,TITLE2" into tTitleList
   
   set the caseSensitive to true
   lock screen
   repeat for each item aTitle in tTitleLIst
      put 0 into tLineOffset
      put 0 into tLastLIneFound
      repeat
         put lineOffset(aTitle,field "text",tLastLIneFound) into tLineOffset
         if tLineOffset = 0 then -- no more found, exit but change last line found.
            set the textStyle of line tLastLIneFound of field "text" to "italic"
            exit repeat
         end if
         set the textStyle of line tLastLIneFound of field "text" to "italic"
         add tLineOffset  to tLastLIneFound
      end repeat
   end repeat
   unlock screen
end mouseUp

Code: Select all

function FullOffset pWord pText
   local tList
   local tOffset
   repeat while tOffset <the number of words in pText
      get wordOffset(pWord, pText, tOffset)
      if it <> 0 then
         add it to tOffset
         put tOffset & cr after tList
      else
         exit repeat
      end if
   end repeat
   return tList
end FullOffset