VS 自动添加注释

现在大多数公司都规定程序员在程序文件的头部加上版权信息,这样每个人写的文件都可以区分开来,如果某个文件出现问题就可以快速的找到文件的创建人,用最短的时间来解决问题，常常是以下格式:

//======================================================================
//        All rights reserved
//
//        description :
//
//        created by User

//======================================================================

有些人使用Copy和Paste的方式,这样即浪费时间,效果又不是很好,就说上面的时间你就无法去Paste,哈哈,下面我就教大家怎样去添加这些信息,使我们的代码更有个性.
1.在visual studio 2010的安装路径下
        如:[盘符]:\Program files\Microsoft Visual Studio 8\Common7\IDE\ItemTemplatesCache
2.找到文件夹如图所示:

里面可以为各种语言进行修改.如果对WinForm中的类进行修改可以打开CSharp2052Class.zip.其中CSharp2052包括了所有WinForm文件类型的模板.
打开Class.zip里面有一个Class.cs文件,我们对其进行修改,当我们在WinForm中添加类文件的时候,类文件就会自动添加上我们的信息.
如下:

//======================================================================
//
//        All rights reserved
//
//        filename :$safeitemrootname$
//        description :
//
//        created by User at  $time$
//
//======================================================================
using System;
using System.Collections.Generic;
using System.Text;
namespace $rootnamespace$
{
    class $safeitemrootname$
    {
    }
}

$rootnamespace$为生成类的命名空间的名字,$safeitemrootname$为生成类的类名.
可以看到我们在版权信息中加入了$time$,它就可以直接给我们加入创建的时间.我们可以对CSharp2052中所有的模板进行修改,切忌不要轻易修改系统那些代码,以免影响我们的正常的使用.
对于做Web开发的人员来说可以在ItemTemplatesCacheWebCSharp2052里进行修改.
新建一个类文件就可以实现了插入我们自定义的版权信息.

//======================================================================
//
//        All rights reserved
//
//        filename :NewClass
//        description :
//
//        created by User at
//
//======================================================================
using System;
using System.Data;
using System.Configuration;
using System.Web;
using System.Web.Security;
using System.Web.UI;
using System.Web.UI.WebControls;
using System.Web.UI.WebControls.WebParts;
using System.Web.UI.HtmlControls;
/// <summary>
/// NewClass 的摘要说明
/// </summary>
public class NewClass
{
    public NewClass()
    {
        //
        // TODO: 在此处添加构造函数逻辑
        //
    }
}

哈哈,是不是很酷呀!赶快个性一下你的代码吧!

这个是扩展参数

上面提供了部分的参数(希望有人继续补充),已经经本人在VS2010下测试,可以通过

模板

程序注释的重要性毋庸置疑，一个大型的项目通常情况下都是几个软件工程师合作出来的成果，假如该项目中的代码注释不全，那会给将来的维护者带来无穷无尽的隐患。

通用的办法是给自己工程里面的函数添加注释——使用宏。

1.打开Visual Studio 2008(2005一样适用)开发工具，单击“工具→宏→新建宏项目”，然后按照步骤建立注释宏，添加如下代码并保存。

2.打开 菜单 –> 工具–>选项 –> 键盘 ，在列表框中选择刚才添加的Macro，然后在 按快捷键中输入快捷键，点击”分配” 。

注释宏的代码如下：

Sub AddFunComment()
    Dim DocSel As EnvDTE.TextSelection
    DocSel = DTE.ActiveDocument.Selection
    DocSel.NewLine()
    DocSel.Text = ""
End Sub

宏代码示例2：

Option Explicit Off
Option Strict Off
Imports System
Imports EnvDTE
Imports EnvDTE80
Imports EnvDTE90
Imports EnvDTE90a
Imports EnvDTE100
Imports System.Diagnostics
Imports VSLangProj
Imports System.IO
Imports System.Text
Imports System.Collections.Generic
Imports System.Runtime.InteropServices
Imports System.Windows.Forms
 
Public Module ModuleName
    'You can just define the variable
    Dim document As Document = DTE.ActiveDocument
    Dim selection As TextSelection = DTE.ActiveDocument.Selection
    Dim headerText As String
    Dim filename As String = document.Name
    Dim pathname As String = document.Path.ToString()
    Dim projectname As String = document.ProjectItem.ContainingProject.Name
    Public Sub AddFileHeader()
        Try
        'Must set value again because there is singleton module instance
            document = DTE.ActiveDocument
            selection = DTE.ActiveDocument.Selection
            filename = document.Name
            pathname = document.Path.ToString()
            projectname = document.ProjectItem.ContainingProject.Name
            selection.StartOfDocument()
            'deleteExistComment()
            insertComment()
        Finally
            Application.DoEvents()
        End Try
    End Sub
    Private Sub deleteExistComment()
        selection.StartOfDocument()
        DTE.ExecuteCommand("Edit.Find")
        DTE.Windows.Item(filename).Activate()
        DTE.Find.FindWhat = "using system"
        DTE.Find.Target = vsFindTarget.vsFindTargetCurrentDocument
        DTE.Find.MatchCase = False
        DTE.Find.MatchWholeWord = False
        DTE.Find.Backwards = False
        DTE.Find.MatchInHiddenText = True
        DTE.Find.PatternSyntax = vsFindPatternSyntax.vsFindPatternSyntaxLiteral
        DTE.Find.Action = vsFindAction.vsFindActionFind
        If (DTE.Find.Execute() = vsFindResult.vsFindResultNotFound) Then
            Return
        End If
        DTE.Windows.Item(filename).Activate()
        DTE.ActiveDocument.Selection.StartOfLine(vsStartOfLineOptions.vsStartOfLineOptionsFirstColumn)
        DTE.ActiveDocument.Selection.LineUp(True, )
        DTE.ActiveDocument.Selection.Delete()
        DTE.Windows.Item("{CF2DDC32-8CAD-11D2-9302-005345000000}").Close()
    End Sub
    Private Sub insertComment()
        'selection.StartOfDocument()
        selection.Insert("#region (C) Header Region @ " + Date.Today.Year.ToString())
        selection.NewLine()
        selection.Insert("//==============================================================")
        selection.NewLine()
        selection.Insert("//")
        selection.NewLine()
        selection.Insert("// The Herder Region@ " + Date.Today.Year.ToString())
        selection.NewLine()
        selection.Insert("// Copyright (C) 2010 - " + Date.Today.Year.ToString() + ". All rights reserved.")
        selection.NewLine()
        selection.Insert("//")
        selection.NewLine()
        selection.Insert("//")
        selection.NewLine()
        selection.Insert("// File:")
        selection.NewLine()
        selection.Insert("//      " + filename)
        selection.NewLine()
        selection.Insert("//")
        selection.NewLine()
        selection.Insert("// Description: Why do you create this file ")
        selection.NewLine()
        selection.Insert("//")
        selection.NewLine()
        selection.Insert("//==============================================================")
        selection.NewLine()
        selection.Insert("//")
        selection.NewLine()
        selection.Insert("// $History: " + document.FullName.Substring(document.FullName.IndexOf(":") + ) + " $")
        selection.NewLine()
        selection.Insert("//")
        selection.NewLine()
        selection.Insert("// ****************** Version 1 ******************")
        selection.NewLine()
        selection.Insert("// User: Who      Time : " + Date.Now.ToLocalTime().ToString())
        selection.NewLine()
        selection.Insert("// Updated in: " + projectname + " Project ")
        selection.NewLine()
        selection.Insert("// Comments: What do you want to do ")
        selection.NewLine()
        selection.Insert("// ")
        selection.NewLine()
        selection.NewLine()
        selection.Insert("#endregion")
        selection.NewLine()
        selection.NewLine()
    End Sub
End Module
 
================================================================

创建过程：

1. 新建Macro工程

打开 菜单 -->工具--> 宏 --> 新建宏项目...，根据向导提示建立工程。

2. 编辑Macro工程

打开 菜单 -->工具--> 宏 -->宏资源管理器 ，在红资源管理器中选择新建的工程，修改Module名(右键)，在Module名上双击，在打开的Macro IDE中进行编辑。

3. 在Module下，添加要实现的Macro，并实现(内容为下面的代码)。

4. 保存

5.在VS2008中，双击添加的Macro，将执行对应的Macro代码。

6. 建立快捷键

打开 菜单 --> 工具-->选项 --> 键盘 ，在列表框中选择刚才添加的Macro，然后在 按快捷键中输入快捷键，点击"分配" 。

7. 这时候，就可以直接使用快捷键来执行Macro 。

代码实现如下：

Imports System
Imports EnvDTE
Imports EnvDTE80
Imports EnvDTE90
Imports System.Diagnostics
'
Public Module CMonitor
    Private Function Copyright()
        Copyright = CStr(Date.Today.Year) + "科技 All right reserved"
    End Function
    Private Function EMailAddress()
        EMailAddress = "tangxingqt@163.com"
    End Function
    Private Function AuthorName()
        AuthorName = "兴---"
    End Function
    Function ProductName()
        ProductName = ""
    End Function
    Private Function GenGUIDString() As String
        Dim sGUID As String
        sGUID = System.Guid.NewGuid.ToString()
        sGUID = UCase(sGUID.Replace("-", "_"))
        GenGUIDString = sGUID
    End Function
    Private Function FileString(ByVal filename As String) As String
        FileString = UCase(filename.Replace(".", "_"))
        UCase(Left(ActiveDocument.Name, Len(ActiveDocument.Name) - ))
    End Function
    Sub HeaderFileTemplate()
        If ActiveDocument.Language = EnvDTE.Constants.dsCPP Then ' C++
            If UCase(Right(ActiveDocument.Name, )) = ".H" Then  '头文件
                Dim sGUID = GenGUIDString()
                Dim sFile = FileString(ActiveDocument.Name)
                Dim lens =
                Dim strDesc = "" + vbLf + _
                              "" + vbLf + _
                              "" + vbLf + _
                              "" + vbLf + _
                             "" + vbLf + _
                              "" + vbLf + _
                              "" + vbLf + _
                              "" + vbLf + _
                              "" + vbLf + _
                              "" + vbLf + _
                              "" + vbLf + _
                              "" + vbLf + _
                ActiveDocument.Selection.StartOfDocument()
                ActiveDocument.Selection.text() = strDesc
            End If
        End If
    End Sub
    Sub ImplFileTemplate()
        If ActiveDocument.Language = EnvDTE.Constants.dsCPP Then ' C++
            Dim format1 = UCase(Right(ActiveDocument.Name, ))
            Dim format2 = UCase(Right(ActiveDocument.Name, ))
            If format1 = ".C" Or format2 = ".CPP" Or format2 = ".CXX" Then  '实现文件
                Dim Descr = "" + vbLf + _
                            "" + vbLf + _
                            "" + vbLf + _
                            "" + vbLf + _
                            "" + vbLf + _
                            "" + vbLf + _
                            "" + vbLf + _
                            "" + vbLf + _
                            "" + vbLf + _
                            "" + vbLf + _
                            "" + vbLf + _
                            "" + vbLf + _
                            "" + vbLf
                ActiveDocument.Selection.StartOfDocument()
                ActiveDocument.Selection.text = Descr
            End If
        End If
    End Sub
    Dim ParamArr()
    Function StripTabs(ByVal MyStr)
        Do While InStr(MyStr, vbTab) <>
            MyStr = Right(MyStr, Len(MyStr) - InStr(MyStr, vbTab))
        Loop
        StripTabs = Trim(MyStr)
    End Function
    Sub FunctionDesc()
        Dim retTp
        Dim Reti
        If ActiveDocument.Language = EnvDTE.Constants.dsCPP Then ' C++
            Dim Header = Trim(ActiveDocument.Selection.text)
            'Get the function return type.
            If Header <> "" Then
                Reti = InStr(Header, " ")
                Dim Loc = InStr(Header, "(")
                If Reti < Loc Then
                    retTp = StripTabs(Left(Header, Reti))
                    Header = Right(Header, Len(Header) - Reti)
                End If
                'Get the function name.
                Loc = InStr(Header, "(") -
                Dim Loc2 = InStr(Header, ")")
                If Loc >  And Loc2 >  Then 'make sure there is a '(' and a ')'
                    Dim fcName = Left(Header, Loc)
                    Header = Right(Header, Len(Header) - Len(fcName))
                    'Do we have storage type on the return type?
                    Trim(fcName)
                    If InStr(fcName, " ") <>  Then
                        retTp = retTp + Left(fcName, InStr(fcName, " "))
                        fcName = Right(fcName, Len(fcName) - InStr(fcName, " "))
                    End If
                    'Get the function parameters.
                    Dim iPrm =
                    Dim iPrmA =
                    Dim prms = Header
                    'Count the number of parameters.
                    Do While InStr(prms, ",") <>
                        iPrm = iPrm +
                        prms = Right(prms, Len(prms) - InStr(prms, ","))
                    Loop
                    'Store the parameter list in the array.
                    If iPrm >  Then  ' If multiple params.
                        iPrm = iPrm +
                        iPrmA = iPrm
                        ReDim ParamArr(iPrm)
                        Do While InStr(Header, ",") <>
                            ParamArr(iPrm) = Left(Header, InStr(Header, ",") - )
                            'Remove brace from first parameter.
                            If InStr(ParamArr(iPrm), " (") <>  Then
                                ParamArr(iPrm) = Right(ParamArr(iPrm), _
                                  Len(ParamArr(iPrm)) - InStr(ParamArr(iPrm), " ("))
                                Trim(ParamArr(iPrm))
                            End If
                            Header = Right(Header, Len(Header) - InStr(Header, ","))
                            iPrm = iPrm -
                        Loop
                        ParamArr(iPrm) = Header
                        'Remove trailing brace from last parameter.
                        If InStr(ParamArr(iPrm), ")") <>  Then
                            ParamArr(iPrm) = Left(ParamArr(iPrm), _
                              InStr(ParamArr(iPrm), ")") - )
                            Trim(ParamArr(iPrm))
                        End If
                    Else 'Possibly one param.
                        ReDim ParamArr()
                        Header = Right(Header, Len(Header) - ) ' Strip the first brace.
                        Trim(Header)
                        ParamArr() = StripTabs(Header)
                        If InStr(ParamArr(), ")") <>  Then
                            ParamArr() = Left(ParamArr(), InStr(ParamArr(), ")") - )
                            Trim(ParamArr())
                            iPrmA =
                        End If
                    End If
                    'Position the cursor one line above the selected text.
                    ActiveDocument.Selection.LineUp()
                    ActiveDocument.Selection.LineDown()
                    ActiveDocument.Selection.StartOfLine()
                    'ActiveDocument.Selection = vbLf
                    Dim Descr = "" + vbLf
                    ActiveDocument.Selection.text = Descr
                End If
            End If
        End If
    End Sub
 
 End Module 

参数	描述
clrversion	当前系统CLR版本号
GUID [1-10]	生成全局唯一标识符,可以生成10个 (例如:guid1)
itemname	打开添加新建项时输入的文件名称
machinename	当前机器的名称(如:pc1)
registeredorganization	注册的组织名
rootnamespace	命名空间名
safeitemname	保存的文件名
time	当前系统时间,格式:DD/MM/YYYY 00:00:00.
userdomain	用户所在的域
username	当前系统用户名
year	当前系统时间 YYYY

参数	描述
clrversion	当前系统CLR版本号
GUID [1-10]	生成全局唯一标识符,可以生成10个 (例如:guid1)
itemname	打开添加新建项时输入的文件名称
machinename	当前机器的名称(如:pc1)
registeredorganization	注册的组织名
rootnamespace	命名空间名
safeitemname	保存的文件名
time	当前系统时间,格式:DD/MM/YYYY 00:00:00.
userdomain	用户所在的域
username	当前系统用户名
year	当前系统时间 YYYY