C#实现为类和函数代码自动添加版权注释信息的方法

/*---------------------------------------------------------------- 
// 版权所有。  
// 
// 文件名： 
// 文件功能描述： 
// 
//  
// 创建标识： 
// 
// 修改标识： 
// 修改描述： 
// 
// 修改标识： 
// 修改描述： 
//----------------------------------------------------------------*/  
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>  
/// $safeitemrootname$ 的摘要说明  
/// </summary>  
public class $safeitemrootname$  
{  
  public $safeitemrootname$()  
  {  
    //  
    // TODO: 在此处添加构造函数逻辑  
    //  
  }  
} 
/*---------------------------------------------------------------- 
// 版权所有。 
// 
// 文件名： 
// 文件功能描述： 
// 
// 
// 创建标识： 
// 
// 修改标识： 
// 修改描述： 
// 
// 修改标识： 
// 修改描述： 
//----------------------------------------------------------------*/  
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> 
/// $safeitemrootname$ 的摘要说明 
/// </summary> 
public class $safeitemrootname$ 
{ 
  public $safeitemrootname$() 
  { 
    // 
    // TODO: 在此处添加构造函数逻辑 
    // 
  } 
} 

Imports System  
Imports EnvDTE  
Imports EnvDTE80  
Imports EnvDTE90  
Imports System.Diagnostics  
 
Public Module Module1  
  Sub AddFunComment()  
    Dim DocSel As EnvDTE.TextSelection  
    DocSel = DTE.ActiveDocument.Selection  
    DocSel.NewLine()  
    DocSel.Text = "/*******************************************************************" 
    DocSel.NewLine()  
    DocSel.Text = "* 函数名称： " 
    DocSel.NewLine()  
    DocSel.Text = "* 功  能： " 
    DocSel.NewLine()  
    DocSel.Text = "* 参  数： " 
    DocSel.NewLine()  
    DocSel.Text = "* 返 回 值： " 
    DocSel.NewLine()  
    DocSel.Text = "* 作  者： Lonkil" 
    DocSel.NewLine()  
    DocSel.Text = "* 电子邮箱： lonkil{AT}gmail.com ( {AT} -> @ )" 
    DocSel.NewLine()  
    DocSel.Text = "* 创建日期： " + System.DateTime.Now.ToLongDateString()  
    DocSel.NewLine()  
    DocSel.Text = "*******************************************************************/" 
  End Sub  
End Module 
Imports System 
Imports EnvDTE 
Imports EnvDTE80 
Imports EnvDTE90 
Imports System.Diagnostics 
 
Public Module Module1 
  Sub AddFunComment() 
    Dim DocSel As EnvDTE.TextSelection 
    DocSel = DTE.ActiveDocument.Selection 
    DocSel.NewLine() 
    DocSel.Text = "/*******************************************************************" 
    DocSel.NewLine() 
    DocSel.Text = "* 函数名称： " 
    DocSel.NewLine() 
    DocSel.Text = "* 功  能： " 
    DocSel.NewLine() 
    DocSel.Text = "* 参  数： " 
    DocSel.NewLine() 
    DocSel.Text = "* 返 回 值： " 
    DocSel.NewLine() 
    DocSel.Text = "* 作  者： Lonkil" 
    DocSel.NewLine() 
    DocSel.Text = "* 电子邮箱： lonkil{AT}gmail.com ( {AT} -> @ )" 
    DocSel.NewLine() 
    DocSel.Text = "* 创建日期： " + System.DateTime.Now.ToLongDateString() 
    DocSel.NewLine() 
    DocSel.Text = "*******************************************************************/" 
  End Sub 
End Module