home *** CD-ROM | disk | FTP | other *** search
/ PC Online 1999 April / PCO0499.ISO / filesbbs / os2 / enh_e110.arj / ENH_E110.ZIP / Length.plg < prev    next >
Encoding:
Text File  |  1999-01-15  |  281 b   |  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.