Visual Studio 2005為C++ .h頭添加檔案說明的巨集

這些巨集腳本基本出自網上，本人只是略加修改，出處已無從考證，見諒！

1. Imports System
2. Imports EnvDTE
3. Imports EnvDTE80
4. Imports System.Diagnostics
5. Public Module GenerateComment
6.     '插入文件头的说明（简体中文）
7.     Sub ClassHeaderCN()
8.         Dim doc As Document = DTE.ActiveDocument
9.         Dim docText As TextDocument = doc.Object
10.         Dim curText As TextSelection = docText.Selection
12.         'Go to the header of the text
13.         curText.GotoLine(1)
15.         Dim strText As String
16.         strText = "/" + vbCrLf
17.         strText += "// 文 件 名：" + vbTab + doc.Name + vbCrLf
18.         strText += "// 功能描述：" + vbTab + vbCrLf
19.         strText += "// 编 写 人：" + vbTab + vbCrLf
20.         strText += "// 编写日期：" + vbTab + System.DateTime.Now.ToString("yyyy-MM-dd HH:00:00") + vbCrLf
21.         strText += "// 修    改：" + vbTab + vbCrLf
22.         strText += "// 修 改 人：" + vbTab + System.DateTime.Now.ToString("yyyy-MM-dd HH:00:00") + vbTab + "<建立>" + vbCrLf
23.         strText += "// 备    注：" + vbTab + vbCrLf
24.         strText += "/" + vbCrLf
26.         curText.Insert(strText)
27.     End Sub
28.     '插入文件头的说明（English）
29.     Sub ClassHeaderEN()
30.         Dim doc As Document = DTE.ActiveDocument
31.         Dim docText As TextDocument = doc.Object
32.         Dim curText As TextSelection = docText.Selection
34.         'Go to the header of the text
35.         curText.GotoLine(1)
37.         Dim strText As String
38.         strText = "/" + vbCrLf
39.         strText += "//FileName:" + vbTab + doc.Name + vbCrLf
40.         strText += "//Function: " + vbTab + vbCrLf
41.         strText += "//Author: " + vbTab + vbCrLf
42.         strText += "//Date: " + vbTab + System.DateTime.Now.ToString("yyyy-MM-dd HH:00:00") + vbCrLf
43.         strText += "//Modify: " + vbTab + vbCrLf
44.         strText += "//Editor: " + vbTab + System.DateTime.Now.ToString("yyyy-MM-dd HH:00:00") + vbTab + "<Create>" + vbCrLf
45.         strText += "//Memo: " + vbTab + vbCrLf
46.         strText += "/" + vbCrLf
48.         curText.Insert(strText)
49.     End Sub
50.     '编辑文件时修改文件头（简体中文）
51.     Sub AddModificationCN()
52.         Dim doc As Document = DTE.ActiveDocument
53.         Dim docText As TextDocument = doc.Object
54.         Dim curText As TextSelection = docText.Selection
56.         curText.GotoLine(7)
58.         Dim strText As String
59.         strText = "// 修 改 人：" + vbTab + System.DateTime.Now.ToString("yyyy-MM-dd HH:00:00") + vbTab + "<编辑>" + vbCrLf
61.         curText.Insert(strText)
62.     End Sub
63.     '编辑文件时修改文件头（English）
64.     Sub AddModificationEN()
65.         Dim doc As Document = DTE.ActiveDocument
66.         Dim docText As TextDocument = doc.Object
67.         Dim curText As TextSelection = docText.Selection
69.         curText.GotoLine(7)
71.         Dim strText As String
72.         strText = "//Editor: " + vbTab + System.DateTime.Now.ToString("yyyy-MM-dd HH:00:00") + vbTab + "<Edit>" + vbCrLf
74.         curText.Insert(strText)
75.     End Sub
76.     '在函数前添加注释（简体中文）
77.     Sub FunctionCommentCN()
78.         Dim doc As Document = DTE.ActiveDocument
79.         Dim docText As TextDocument = doc.Object
80.         Dim curText As TextSelection = docText.Selection()
82.         Dim strText As String
83.         strText = "/" + vbCrLf
84.         strText += "//功能：" + vbCrLf
85.         strText += "//作者：" + vbCrLf
86.         strText += "//日期：" + System.DateTime.Now.ToString("yyyy-MM-dd HH:00:00") + vbCrLf
87.         strText += "//参数：" + vbCrLf
88.         strText += "//返回：" + vbCrLf
89.         strText += "/"
91.         curText.Insert(strText)
92.     End Sub
93.     '在函数前添加注释（English）
94.     Sub FunctionCommentEN()
95.         Dim doc As Document = DTE.ActiveDocument
96.         Dim docText As TextDocument = doc.Object
97.         Dim curText As TextSelection = docText.Selection()
99.         Dim strText As String
100.         strText = "/" + vbCrLf
101.         strText += "//Function: " + vbTab + vbCrLf
102.         strText += "//Author: " + vbTab + vbCrLf
103.         strText += "//Date: " + vbTab + System.DateTime.Now.ToString("yyyy-MM-dd HH:00:00") + vbCrLf
104.         strText += "//Params: " + vbTab + vbCrLf
105.         strText += "//Return: " + vbTab + vbCrLf
106.         strText += "/"
108.         curText.Insert(strText)
109.     End Sub
110. End Module