lineoffset

[DunbarX at aol.com]

Rick.

Sometimes certain chars seem to go missing (no parentheses). Not sure why. 
This is a function call, and should have read:

on mouseUp
   get the clicktext
   put revFullFind(fld "storage",it,"lineNum","true")
end mouseUp



function revFullFind tText,tFind,form,exactly
   switch
      case exactly = "true" and form = "lineNum"
         repeat for each line tline in tText
            add 1 to counter
            if tFind = tline then
               put counter & return after temp22
            end if
         end repeat
         break
      case exactly = "true" and form = "txt"
         repeat for each line tline in tText
            add 1 to counter
            if tFind = tline then
               put theLine & return after temp22
            end if
         end repeat
         break
      case exactly = "false" and form = "lineNum"
         repeat for each line tline in tText
            add 1 to counter
            if tFind is in tline then
               put counter & return after temp22
            end if
         end repeat
         break
      case  exactly = "false" and form = "txt"
         repeat for each line tline in tText
            add 1 to counter
            if tFind is in tline then
               put theLine & return after temp22
            end if
         end repeat
         break
   end switch
   return temp22
end revFullFind

Craig Newman




In a message dated 11/6/09 6:56:29 PM, rick-rice at shaw.ca writes:


> 
> Craig:
> I tried the fullfind routine and this returned "revFullFind"
>