home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / TextEditors&Viewers / Texteditors / FFRED10.LHA / fpl / DeleteSpaceEOL.FPL < prev    next >
Encoding:
Text File  |  1994-09-22  |  548 b   |  29 lines
  1. {
  2.   string strline;
  3.   int max = ReadInfo("lines");
  4.   int line;
  5.   int dels;
  6.   int len;
  7.   int prev = Visible(0);
  8.   for(line=1; line<=max; line++) {
  9.     dels=0;
  10.     strline = GetLine(line);
  11.     len = strlen(strline);
  12.     if(len-->1) {
  13.       if(line!=max)
  14.         len--; /* move away from the newline! */
  15.       while(Isspace(strline[len])) {
  16.         dels++;
  17.     if(--len<0)
  18.       break;
  19.       }
  20.       if(dels) {
  21.     GotoLine(line, len+1);
  22.     Status(0, Sprintf("%ld%%", line*100/max));
  23.         DeleteEol(); /* Delete(dels); */
  24.       }
  25.     }
  26.   }
  27.   Visible(prev);
  28. }
  29.