zoukankan      html  css  js  c++  java
  • 用VS2003的宏统计项目中文件和程序行数

    先随便录制一个宏,然后录制的宏代码修改如下
    该程序可以统计项目中一共有多少个文件,一共有多少行程序,随便写的,有bug请指出。谢谢
    如果项目中文件很多,统计速度会很慢,如果需要中断,可以随时双击任务栏右边的宏运行的图标
    Option Strict Off
    Option Explicit Off
    Imports EnvDTE
    Imports System.Diagnostics
    Imports System.Data

    Public Module RecordingModule
        
    Private dt As New DataTable
        
    Sub GetProject(ByVal items As ProjectItems)
            
    For Each item As EnvDTE.ProjectItem In items
                
    If item.ProjectItems.Count > 0 Then
                    GetProject(item.ProjectItems)
                
    End If
                Count(item)
            
    Next
        
    End Sub

        
    Sub Count(ByVal item As EnvDTE.ProjectItem)
            
    Dim fileName As String = item.Name.ToLower()
            
    Dim extName As String
            
    If fileName.IndexOf("."< 0 Then
                extName 
    = "Folder"
            
    Else
                extName 
    = fileName.Substring(fileName.LastIndexOf("."))
            
    End If
            
    Dim ArrayDr As DataRow() = dt.Select("ExtName='" + extName + "'")
            
    Dim dr As DataRow
            
    If ArrayDr.Length = 0 Then
                dr 
    = dt.NewRow()
                dr(
    "ExtName"= extName
                dt.Rows.Add(dr)
            
    Else
                dr 
    = ArrayDr(0)
            
    End If
            
    If Not (dr("File"Is System.DBNull.Value) Then
                dr(
    "File"= CType(dr("File"), System.Int32) + 1
            
    Else
                dr(
    "File"= 1
            
    End If
            
    Try
                
    Dim objWindow As Window = item.Open(Constants.vsViewKindCode)
                
    Dim objDocument As Document = item.Document
                
    Dim objTextDocument As TextDocument = objDocument.Object("TextDocument")
                
    Dim strDocumentText As String = objTextDocument.StartPoint.CreateEditPoint().GetText(objTextDocument.EndPoint)
                
    If Not (dr("Line"Is System.DBNull.Value) Then
                    dr(
    "Line"= CType(dr("Line"), System.Int32) + strDocumentText.Split(vbCrLf).Length()
                
    Else
                    dr(
    "Line"= strDocumentText.Split(vbCrLf).Length()
                
    End If
                DTE.ExecuteCommand(
    "Window.CloseDocumentWindow")
                DTE.ActiveWindow.Close(vsSaveChanges.vsSaveChangesNo)
            
    Catch
            
    End Try
        
    End Sub


        
    Sub TemporaryMacro()
            dt 
    = New DataTable
            
    If Not dt.Columns.Contains("ExtName"Then
                dt.Columns.Add(
    "ExtName", System.Type.GetType("System.String")) '扩展名
                dt.Columns.Add("File", System.Type.GetType("System.Int32")) '行数
                dt.Columns.Add("Line", System.Type.GetType("System.Int32")) '行数
                dt.Columns.Add("Cha", System.Type.GetType("System.Int32")) '字符数量
            End If
            
    Dim proj As Project = DTE.ActiveSolutionProjects(0)
            GetProject(proj.ProjectItems())
            
    Dim outPutStr As String = "FileType".PadRight(10& "File".PadLeft(10& "Line".PadLeft(10& "    " & vbCrLf
            
    For Each dr As DataRow In dt.Rows
                outPutStr 
    += dr("ExtName").ToString().PadRight(10& dr("File").ToString().PadLeft(10& dr("Line").ToString().PadLeft(10& vbCrLf
            
    Next
            
    MsgBox(outPutStr)
        
    End Sub

    End Module
  • 相关阅读:
    Centos7下thinkphp5.0环境配置
    win10蓝牙鼠标无法连接,需pin码
    thinkphp5自带workerman应用
    php文件加密(screw方式)
    centos修改ssh默认端口号的方法
    修改CentOS ll命令显示时间格式
    在线编辑器的原理简单示例
    [转载]提升SQLite数据插入效率低、速度慢的方法
    linux 客户机挂载vitualbox共享文件夹
    virtualbox linux客户机中安装增强功能包缺少kernel头文件问题解决
  • 原文地址:https://www.cnblogs.com/wormday/p/431055.html
Copyright © 2011-2022 走看看