代码统计程序

今天要让我把所有代码都放到一个text文件 中，并统计代码行数。于是用AIR写了个，很简单。

1. <?xml version="1.0" encoding="utf-8"?>   
2. <mx:WindowedApplication xmlns:mx="http://www.adobe.com/2006/mxml" layout="absolute">   
3.     <mx:Button x="209" y="166" label="Button" click="clickHandler()"/>   
4.     <mx:Script>   
5.         <![CDATA[   
6.             private var codeTextFile:File;   
7.             private var codeTextFileStream:FileStream;   
8.                
9.             private var lineCount:uint = 0;   
10.             private function clickHandler():void {   
11.                 codeTextFile = new File("file:///d:/mycode.text")   
12.                    
13.                 codeTextFileStream = new FileStream();   
14.                 codeTextFileStream.open(codeTextFile, FileMode.WRITE);   
15.   
16.                 var codeFile:File = new File("file:///d:/work/web_client/flex/apps");   
17.                 writeCodeTectFile(codeFile);   
18.                    
19.                 codeTextFileStream.writeUTFBytes("================================\n");   
20.                 codeTextFileStream.writeUTFBytes("code line count : "+lineCount+"\n");   
21.                 codeTextFileStream.writeUTFBytes("================================\n");   
22.                 codeTextFileStream.close();   
23.             }   
24.                
25.             private function writeCodeTectFile(file:File):void {   
26.                 if(file.isDirectory) {   
27.                     var arr:Array = file.getDirectoryListing();   
28.                     for each(var f:File in arr) {   
29.                         writeCodeTectFile(f);   
30.                     }   
31.                 }   
32.                 else {   
33.                     var r:RegExp = /.+\.(as|mxml)/;   
34.                     if(r.test(file.name)) {   
35.                         var fs:FileStream = new FileStream();   
36.                         fs.open(file,FileMode.READ);   
37.                         var s:String = fs.readUTFBytes(fs.bytesAvailable);   
38.                            
39.                         var r2:RegExp = /\n/g;   
40.                         lineCount += s.match(r2).length;   
41.                            
42.                         codeTextFileStream.writeUTFBytes(s);   
43.                         fs.close();   
44.                            
45.                         codeTextFileStream.writeUTFBytes("\n\n");   
46.                     }   
47.                 }   
48.             }   
49.         ]]>   
50.     </mx:Script>   
51. </mx:WindowedApplication>