DouKaku?

| numsOfLines |
numsOfLines := CompiledMethod allInstances collect: [:each | each getSource lineCount].
^{#調査メソッド総数-> numsOfLines size. #平均行数 -> numsOfLines average asFloat}

"=>{#調査メソッド総数->42237 . #平均行数->8.37561853351327} "

Imports System
Imports EnvDTE
Imports EnvDTE80
Imports EnvDTE90
Imports System.Diagnostics
Imports Microsoft.VisualStudio.VCCodeModel

Public Module CFunctionEnumeration
    Dim numberOfFiles As Integer
    Dim numberOfFunctions As Integer
    Dim totalLines As Integer

    ' 色々と処理が面倒なので例外にしてしまった。
    Private Class OutputPainNotExistException
        Inherits Exception

        Public Sub New(ByVal message As String)
            MyBase.New(message)
        End Sub
    End Class

    Private Function GetOutputPane() As OutputWindowPane
        ' 結果を表示するペインを作成して返す。
        Const titleOfPain As String = "関数調査の結果"
        Static Dim isPainCreated As Boolean = False
        Dim pains As OutputWindowPanes = DTE.ToolWindows.OutputWindow.OutputWindowPanes

        If isPainCreated = False Then
            For Each p As OutputWindowPane In pains
                If p.Name = titleOfPain Then
                    GoTo ALREADY_CREATED
                End If
            Next

            If pains.Add(titleOfPain) Is Nothing Then
                Throw New OutputPainNotExistException(titleOfPain & "ペインは存在しません。")
            End If

ALREADY_CREATED:
            isPainCreated = True
        End If

        GetOutputPane = pains.Item(titleOfPain)
    End Function

    Private Sub OutputString(ByRef s As String)
        GetOutputPane().OutputString(s)
    End Sub

    Private Sub OutputSourceFiles()
        ' ソースファイル名を出力する。
        Dim projectFolders As ProjectItems = DTE.Solution.Item(1).ProjectItems

        For Each i As ProjectItem In projectFolders
            If i.Name = "ソース ファイル" Then
                Dim sourceFileFolder As ProjectItems = i.ProjectItems

                For Each j As ProjectItem In sourceFileFolder
                    OutputString(j.Name & vbCrLf)
                    numberOfFiles = numberOfFiles + 1
                Next
            End If
        Next
    End Sub

    Private Sub OutputFunctions()
        ' 関数名とソースコードの行数を出力する。
        Dim codeModel As VCCodeModel = DTE.Solution.Item(1).CodeModel

        For Each f As VCCodeFunction In codeModel.Functions
            Dim lines As Integer = f.EndPoint.Line() - f.StartPoint.Line() + 1

            OutputString(f.Name & ": ")
            OutputString(lines & vbCrLf)
            numberOfFunctions = numberOfFunctions + 1
            totalLines = totalLines + lines
        Next
    End Sub

    Private Sub OutputResult()
        OutputString("調査ファイル総数: " & numberOfFiles & vbCrLf)
        OutputString("調査関数総数: " & numberOfFunctions & vbCrLf)
        OutputString("平均行数: " & (CDbl(totalLines) / numberOfFunctions) & vbCrLf)

    End Sub

    Private Sub Reset()
        numberOfFiles = 0
        numberOfFunctions = 0
        totalLines = 0
    End Sub

    Public Sub OutputFunctionLength()
        Try
            Dim p As OutputWindowPane = GetOutputPane()

            Reset()
            p.Clear()
            OutputString("＜調査対象のファイル＞" & vbCrLf)
            OutputSourceFiles()
            OutputString(vbCrLf)
            OutputString("＜調査対象の関数＞" & vbCrLf)
            OutputFunctions()
            OutputString(vbCrLf)
            OutputString("＜結果＞" & vbCrLf)
            OutputResult()
            p.Activate()
        Catch e As Exception
            MsgBox(e.Message, MsgBoxStyle.Critical)
        End Try
    End Sub
End Module