home *** CD-ROM | disk | FTP | other *** search
/ PC User 2001 August / APC_Aug2001_CD2.iso / features / web_dev / files / mwjpp516.exe / %MAINDIR% / Tools / Misc / deleteBlankLines.script < prev    next >
Encoding:
Text File  |  2001-06-19  |  667 b   |  36 lines
  1. !!Script
  2. // Copyright ⌐ 1999-2000 - Modelworks Software
  3. // @Created build 273 cm19990304
  4. // @Modified build 382 cm20000729
  5.  
  6. /**
  7. @Tool: deleteBlankLines~deletes all blank lines in the 
  8. active editor. 
  9. @EndTool: 
  10. @Summary: deleteBlankLines~deletes all blank lines
  11. */
  12.  
  13. var gOutput = getOutput();
  14.  
  15. function DoCommand()
  16. {
  17.     var editor = getActiveEditor();
  18.     if (editor)
  19.     {
  20.         var count = editor.getLineCount();
  21.         for (var i = count-1; i >= 0; i--)
  22.         {
  23.             var data = editor.copy(i);
  24.             
  25.             if (!searchInString(data, "[^ \t]"))
  26.             {
  27.                 editor.replace("", i, 0, i+1, 0);
  28.             }
  29.         }
  30.         editor.setActive("Delete blank lines");
  31.     }
  32. }
  33.  
  34. !!/Script
  35.  
  36.