function to calculate string length...

[Chipp Walters]

Well, I cobbled this together from some of the archives...
Anyone see an obvious place to optimize?

on formatFld pFldName, pTxt
   lock screen
   put the width of fld pFldName into tW
   set the width of fld "formatCheck" to tW
   repeat for each line L in pTxt
     put L into fld "formatCheck"
     put false into tIsTooLong
     repeat while the formattedwidth of fld "formatCheck" > tW
       delete last char of fld "formatCheck"
       put true into tIsTooLong
     end repeat
     if tIsTooLong is true then
       put fld "formatCheck" after tList
       delete char -5 to -1 of tList
       put "..." & cr after tList
     else
       put L & cr after tList
     end if
   end repeat
   delete last char of tList
   put tList into fld pFldName
   unlock screen
end formatFld


Chipp Walters wrote:
> Looking for some help.
> 
> I have a list field and want to add an elipsis (...) at the end of lines 
> which are truncated and won't fit in the field. I was wondering if 
> anyone out there may have a function to do this quickly?


-- 
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.298 / Virus Database: 265.6.4 - Release Date: 12/22/2004