home *** CD-ROM | disk | FTP | other *** search
/ PC User 2001 August / APC_Aug2001_CD2.iso / features / web_dev / files / mwjpp516.exe / %MAINDIR% / Tools / Misc / countLines.script < prev    next >
Encoding:
Text File  |  2001-06-19  |  1.1 KB  |  53 lines
  1. !!script
  2. // Copyright ⌐ 1997-1998 - Modelworks Software
  3.  
  4. /**
  5. @Tool: countLines~counts lines in a directory and subdirectories 
  6. for all file types. 
  7. @EndTool: 
  8. @Summary: countLines~counts lines in a directory
  9. */
  10.  
  11. var output = getOutput();
  12.  
  13. function DoCommand()
  14. {
  15.     output.clear();
  16.     output.writeLine("Line Count:");
  17.     var lineCount = 0;
  18.     var fileCount = 0;
  19.     var directory = chooseDirectory("Choose directory");
  20.     
  21.     if (directory)
  22.     {
  23.         var files = getDirectoryFiles(directory, "*.*", true);
  24.         if (files)
  25.         {
  26.             var position = files.getHeadPosition();
  27.             while (position.valid)
  28.             {
  29.                 var file = files.getNext(position);
  30.                 if (file)
  31.                 {
  32.                     fileCount += 1;
  33.                     var editor = file.open(false);
  34.                     if (editor)
  35.                     {
  36.                         var fileLineCount = editor.getLineCount();
  37.                         lineCount += fileLineCount;
  38.                         
  39.                         output.writeLine(file.path + ": " + fileLineCount);
  40.                         
  41.                         editor.close();
  42.                     }
  43.                 }
  44.             }
  45.         }
  46.         
  47.         output.writeLine("Total line count: " + lineCount);
  48.         output.writeLine("Total file count: " + fileCount);
  49.     }
  50. }
  51. !!/script
  52.  
  53.