如何统计程序的行数
我们知道，一个软件的大小通常是用软件有多少行源代码来衡量的。我们经常听到这样的软件宣传广告：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调试通过，所附（图1）片为我用本程序统计时的截图。
