home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / enh_e130.zip / Length.plg < prev    next >
Text File  |  1999-12-09  |  281b  |  9 lines
  1. /* Length of document sample */
  2.  
  3. crlf='0d0a'x
  4. Document = VpGetItemValue(window,Target)
  5. NumWords=words(Document)
  6. msg1="Length of Document is "||length(Document)||' chars'||crlf
  7. msg2='With '||NumWords||' words'
  8. response=VpMessageBox(window,"Bob's length finder", msg1||msg2)
  9.