如何统计程序的行数

维生素 
2001年 30期

　　我们知道，一个软件的大小通常是用软件有多少行源代码来衡量的。我们经常听到这样的软件宣传广告：XXX程序员用X年时间开发完成，共有XXX行代码。那么，你想不想知道自己辛辛苦苦写的程序到底有多少行代码呢？
　　　　不过好像VB、Delphi、VC等这些语言中都没有提供让我们统计程序行数的功能。怎么办呢？不用急，身为程序员，当然用编程来实现了。现在，就跟我来用VB实现统计程序行数的功能（用其他语言实现的原理是一样的）。
　　　　大家都知道吧，VB的源代码（窗体代码、模块代码等）都是以文本形式保存的。窗体代码放在扩展名为“．frm”的文件里，模块代码放在扩展名为“．bas”的文件里，类模块代码放在扩展名为“．cls”的文件里。既然是文本文件，统计行数就是很容易的事了。很多朋友肯定想到了用判断文件中有多少回车符的方法来实现。我一开始也是马上就想到这里，不过，实际上有更好的方法啦——用Line Input语句！下面就来具体讲一讲在VB中实现此功能的算法思想及源代码。
　　#1　　算法思想：
　　　　查找软件设计目录下的所有扩展名为frm、bas、cls的文件，一旦找到就打开它并获得其行数。
　　#1　　源程序：
　　　　新建一个窗体（可以不放任何控件），在窗体的Mouse＿Click事件中放入下列代码（为什么要放在Mouse＿Click事件里而不放在Load事件里，看完下面的源程序后你就明白了）：
　　　　Option Explicit
　　　　Public Sub Form＿Click（）　
　　　　Dim strAppPath As String ＇程序运行时的路径
　　　　Dim lngFileLines As Long ＇文件行数
　　　　Dim lngTotalLines As Long ＇总行数
　　　　Dim blnBeginCount As Boolean ＇是否开始统计行数
　　　　Dim strTemp As String ＇临时变量
　　　　Me．Cls ＇清除上一次运行时窗体生成的图形和文本
　　　　＇获取程序运行时的路径
　　　　strAppPath = App．path
　　　　If Right（strAppPath，1） ＜＞ “＼” Then strAppPath = strAppPath & “＼”
　　　　Dim fs，fd，f ＇文件系统变量，具体说明请查阅MSDN相关章节
　　　　＇关于CreateObject函数和FileSystemObject对象的具体说明请查阅MSDN相关章节
　　　　Set fs = CreateObject（“Scripting．FileSystemObject”）　
　　　　Set fd = fs．GetFolder（strAppPath）　
　　　　For Each f In fd．Files
　　　　strTemp = Right（UCase（f．Name）， 3）＇比较文件名时，必须将f．Name的内容转换成大写，否则会被视为不相同文件
　　　　If strTemp = “FRM” Or strTemp = “BAS” Or strTemp = “CLS” Then
　　　　＇这里只统计了三种文件的行数
　　　　Open strAppPath & f．Name For Input As #1 ＇打开文件
　　　　blnBeginCount = False ＇一定要设初值
　　　　lngFileLines = 0 ＇同上
　　　　Do While Not EOF（1）　
　　　　Line Input #1，strTemp ＇使用Line Input语句的目的就是为了一行行的读数据
　　　　If Left（strTemp，15） = “Option Explicit” Then blnBeginCount = True
　　　　If blnBeginCount = True Then lngFileLines = lngFileLines + 1
　　　　＇这里做这两个判断的原因是文件中有很多代码是VB自动完成的（用记事本打开就知道了），我们自己写的代码一般是从“Option Explicit”开始
　　　　Loop
　　　　Close #1
　　　　lngTotalLines = lngTotalLines + lngFileLines
　　　　Print f．Name & “的代码行数：” & lngFileLines
　　　　＇因为使用的是Print语句，所以这些代码不能放在窗体的Load事件中
　　　　End If
　　　　Next
　　　　Print “总代码行数：” & lngTotalLines
　　　　＇因为使用的是Print语句，所以这些代码不能放在窗体的Load事件中
　　　　End Sub
　　　　以上程序在Windows Me+VB6调试通过，所附^30020501a^片为我用本程序统计时的截图。 
 