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

//======================================================================
//        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

VS 自动添加注释的更多相关文章

  1. PowerDesigner 如何添加每个表中共用的字段及自动添加注释

    PowerDesigner 如何添加每个表中共用的字段: 有时候在创建表的时候会有一些共用的字段,但是每一张表都要去创建,这样做很麻烦,特别是这样重复的工作,稍不留意就会出现问题,实际上在PD中有这样 ...

  2. vs 文件头自动添加注释

    原文:vs 文件头自动添加注释 vs2010 C:\Program Files (x86)\Microsoft Visual Studio 10.0\Common7\IDE\ItemTemplates ...

  3. (转)Eclipse中自动添加注释(作者,时间)

    方法一:Eclipse中设置在创建新类时自动生成注释  windows-->preference  Java-->Code Style-->Code Templates  code- ...

  4. Unity脚本自动添加注释脚本及排版格式

    Unity脚本自动添加注释脚本及头部注释排版格式 公司开发项目,需要声明版权所有,,,,标注公司名,作者,时间,项目名称及描述等等. 自己总结实现的现成脚本及头部注释排版文本,添加到模版即可. 文件不 ...

  5. eclipse自动添加注释

    自动添加注释 快捷键:alt shift jwindows-->preference Java-->Code Style-->Code Templates code-->new ...

  6. 【Eclipse】如何在Eclipse中如何自动添加注释和自定义注释风格

    背景简介 丰富的注释和良好的代码规范,对于代码的阅读性和可维护性起着至关重要的作用.几乎每个公司对这的要求还是比较严格的,往往会形成自己的一套编码规范.但是再实施过程中,如果全靠手动完成,不仅效率低下 ...

  7. python基础===monkeytype可以自动添加注释的模块!

    monkeytype 一个可以自动添加注释的模块! 先要下载: pip install monkeytype 以官网的sample code为例 #moudle.py def add(a, b): r ...

  8. 如何在Eclipse中如何自动添加注释和自定义注释风格

    1. 如何自动添加注释 可通过如下三种方法自动添加注释: (1)输入“/**”并回车. (2)用快捷键 Alt+Shift+J(先选中某个方法.类名或变量名). (3)在右键菜单中选择“Source ...

  9. Idea_学习_05_Intellij Idea自动添加注释的方法

    二.参考资料 1. Intellij Idea自动添加注释的方法

  10. [转]Intellij Idea自动添加注释的方法

    Intellij Idea自动添加注释的方法 阿历Ali 关注 2017.08.20 21:22* 字数 914 阅读 2741评论 0喜欢 6 程序媛阿历终于要写第一篇关于开发的文章了!!! 阿历用 ...

随机推荐

  1. dsp28377控制DM9000收发数据——第三版程序,通过外部引脚触发来实现中断接受数据,优化掉帧现象

    //-------------------------------------------------------------------------------------------- - //D ...

  2. latex给表格添加注释

    给表格加注释的确是很多TeX用户不好用的地方,这里提供一个样式和代码,或许对于你的学习使用有所帮助,样式如下: 代码如下: \documentclass[11pt,a4paper,english]{a ...

  3. 安装centos时候自动安装vm tool,导致无法继续安装centos的解决办法

    我原先安装centos 的时候装的是CD版的,也是到这一步就卡住了,然后我在"虚拟机->取消安装vmare tool" 点击“取消安装vmare tool”,然后他就可以进行 ...

  4. .NET开源项目

      综合类 微软企业库 微软官方出品,是为了协助开发商解决企业级应用开发过程中所面临的一系列共性的问题, 如安全(Security).日志(Logging).数据访问(Data Access).配置管 ...

  5. C#文件创建、修改、访问时间修改

    using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; usin ...

  6. Redis教程(三) list类型

     一.概述: redis的list类型其实就是一个每个子元素都是string类型的双向链表.所以[lr]push和[lr]pop命令的算法时间复杂度都是O(1) 另外list会记录链表的长度.所以ll ...

  7. Redis教程(二):String数据类型

    一.概述: 字符串类型是Redis中最为基础的数据存储类型,它在Redis中是二进制安全的,这便意味着该类型可以接受任何格式的数据,如JPEG图像数据或Json对象描述信息等.在Redis中字符串类型 ...

  8. Tomcat7.0安装配置

    很久没有通过博客对学习所得进行记录了. 现在将使用Tomcat的一些经验和心得写到这里,作为记录和备忘.如果有朋友看到,也请不吝赐教. 首先,我个人使用的是apache-tomcat-7.0.27你可 ...

  9. linux建立一个快捷方式,连接到另一个目录

    sudo ln -s 源目录 目标快捷方式比如你要在/etc下面建立一个叫LXBC553的快捷方式,指向/home/LXBC,那就是sudo ln -s /home/LXBC /etc/LXBC553

  10. String or binary data would be truncated 解决办法

    原因: 一般出现这个问题是因为数据库中的某个字段的长度小,而插入数据大 解决: 找到相应字段,修改表结构,使表字段大小相同或大于要插入的数据