home *** CD-ROM | disk | FTP | other *** search
/ DTP Toolbox / DTPToolbox.iso / propage4.0 / arexx / unbal.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1995-08-04  |  355 b   |  16 lines
  1. /* Look for unmatched quotes in file */
  2. trace n
  3. parse arg infile
  4. call open("input",infile,'r')
  5. do i = 1 to 3456
  6.     aline =readln("input")
  7.     linelength = length(aline)
  8.     bline = compress(aline,'"')
  9.     cline = compress(bline,"'")
  10.     linelength2 = length(cline)
  11.     unbal = (linelength-linelength2)//2
  12.     if unbal = 1 then say aline
  13.     end
  14. exit
  15. end
  16.