LiveCode Forums.

Code: Select all

on keyup pKey
   put allFirstLetters(myField) into tallFirstLetters
   put pKey & "," into tSearch
   put lineoffset(tSearch,tallFirstLetters) into tNumLine
   get fDeNumToScroll(myField,tNumLine)
  set the hilitedlines of fld "myField" to item 2 of line  tNumLine of tallFirstLetters
   set the scroll of fld "myField" to fDeNumToScroll(myField,tNumLine)
end keyup

--•• return a list of each first letter with the number of the foundline
function allFirstLetters pNameField
   put empty into rallFirstLetters
   put fld pNameField into tContentFld
   put 0 into tCount
   repeat for each line tLine in tContentFld
      add 1 to tCount
      if char 1 of tLine is in rallFirstLetters then next repeat
      put char 1 of tLine & "," & tCount & cr after rallFirstLetters
   end repeat
   delete char -1 of rallFirstLetters
   return rallFirstLetters
end allFirstLetters

--•• return the destination scrollV of the fld
 function fDeNumToScroll pNameField,pNum
  put the  effective textHeight of fld pNameField into tSec
   put (pNum-1)* tSec into tScroll
   return tScroll
end fDeNumToScroll

Code: Select all

-- Cd script
--Search  all word contain a string in field "myField" 
on debSearchString
   ask "Search"
   if it = empty then exit debSearchString
   put it into pString
   get getLinesWithString(pString, "myField")
   put  it into fld "fResult"
   setStyleFoundLine it,"myField"
end debSearchString

on setStyleFoundLine pFoundLine,pNameField
   set the textstyle of line 1 to -1 of fld pNameField to plain
   repeat for each line tLine in pFoundLine
      set the textstyle of line (item 2 of tLine) of fld pNameField to box
   end repeat
end setStyleFoundLine

function getLinesWithString pString,pNameField -- return a list  FoundWord,FoundLine
   put empty into rgetLinesWithString
   put fld pNameField into stringToSearch
   put 0 into tCount
   repeat for each word tWord in stringToSearch
      add 1 to tCount
      if pString is in tWord then
         put tWord & ","  & tCount & cr after rgetLinesWithString
      end if
   end repeat
   delete char -1 of rgetLinesWithString
   return rgetLinesWithString
end getLinesWithString

Code: Select all

on keyUp tKey
  put lineOffset(return & tKey, the text of me) into tLineOffset
  set the scroll of me to tLineOffset * the effective textHeight of me
end keyUp