[vb]使用vb统计.java的行数

 工作需要，针对java文件，作了一个行数统计的工具。统计的主要代码如下：
    Set srcIn = fso.OpenTextFile(fileNm, ForReading)
    
    Do While Not srcIn.AtEndOfStream
        buf = srcIn.ReadLine
       
        'java总行数
        allLinex = allLinex + 1
        'java空白行
        If Not flg And Trim(Replace(buf, vbTab, "")) = "" Then
            'Debug.Print fileNm & ":" & allLinex
            blankLinex = blankLinex + 1
        End If
        'java注释行
        If flg Then
            If InStr(buf, "*/") > 0 Then
                flg = False
            End If
            commentLinex = commentLinex + 1
        ElseIf InStr(Trim(Replace(buf, vbTab, "")), "//") = 1 Then
            commentLinex = commentLinex + 1
        End If
        If InStr(Trim(Replace(buf, vbTab, "")), "/*") = 1 Then
            flg = True
            commentLinex = commentLinex + 1
        End If
        If flg An