home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / parsomat.zip / exampl07.pom < prev    next >
Text File  |  2001-07-15  |  335b  |  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.