whole(string) is in a fld

[Dave Cragg]

Please ignore my first attempt. It fails horribly. (-:

Here's another. Any better?

function whole s,t
   put length(s) into tNumChars
   put ",.;:?!" & space & tab & cr & numToChar(13) into tWB
   put offset(s,t) into tOff
   if tOff = 0 then return false
   return length(t) = (tOff + tNumChars - 1) OR char (tOff +  
tNumChars) of t is in tWB

end whole

Dave