home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 5 Developer's Kit / vb5 dev kit.iso / dev / par / exampl07.pom < prev    next >
Encoding:
Text File  |  1996-05-12  |  335 b   |  19 lines
  1. ;
  2. ;   Replace every tab character with two spaces
  3. ;
  4. CHANGE   $FLINE  $TAB  "  "
  5. ;
  6. ;   Extract the columns
  7. ;
  8. SET      ProgName = $FLINE[ 1 20]
  9. SET      Descrip  = $FLINE[22 99]
  10. ;
  11. ;   Trim the spaces
  12. ;
  13. TRIM     ProgName  "B"  " "
  14. TRIM     Descrip   "B"  " "
  15. ;
  16. ;   Output the result
  17. ;
  18. OUTEND   |"{ProgName}","{Descrip}"
  19.