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


_______________________________________________
metacard mailing list
metacard@lists.runrev.com
http://lists.runrev.com/mailman/listinfo/metacard

Reply via email to