利用VS.NET 宏,根据私有变量生成属性定义，以加快开发速度
在编写代码时，往往需要根据定义的私有变量，生成属性定义；这一操作可以利用VS.NET宏实现，代码如下：
Sub TemporaryMacro()
Dim TS As TextSelection = DTE.ActiveDocument.Selection
Dim Insertion As String, Line As String
Dim Lines() As String = TS.Text.Split(vbNewLine) ' 针对选中部分的每一行，返回相应的属性过程
Insertion = vbNewLine
For Each Line In Lines
Insertion &= GetInsertion(Line)
Next
If (Insertion.Length > 1) Then
TS.EndOfLine()
TS.NewLine()
TS.Insert(Insertion)
End If
End Sub
Private Function GetInsertion(ByVal text As String) As String
Dim Words() As String = text.Trim.Split()
If Words.Length < 3 Then ' 该行内容不是一个合法的变量声明
Return ""
Else
Dim Insertion As String
Insertion &= vbTab & vbTab & "/// <summary>"
Insertion &= vbNewLine
Insertion &= vbTab & vbTab & "///"
Insertion &= vbNewLine
Insertion &= vbTab & vbTab & "/// </summary>" ' 如果不想要XML注释，那前面这几行可以不要
Insertion &= vbNewLine
Insertion &= vbTab & vbTab & "public " & Words(1) & " " & Words(2).TrimStart("m").TrimStart("_")..TrimEnd(";") '我的私有变量是以“m_”开始的
Insertion &= vbNewLine
Insertion &= vbTab & vbTab & "{ "
Insertion &= vbNewLine
Insertion &= vbTab & vbTab & vbTab & "get { return " & Words(2) & " }"
Insertion &= vbNewLine
Insertion &= vbTab & vbTab & vbTab & "set { " & Words(2).TrimEnd(";") & " = value;}"
Insertion &= vbNewLine
Insertion &= vbTab & vbTab & "}"
Insertion &= vbNewLine
Return Insertion
End If
End Function
将上面的代码放到VS.NET宏中，然后选中定义的私有变量，再Ctrl+Shift+P即可以根据自定义的私有变量生成属性定义。
Sub TemporaryMacro()
Dim TS As TextSelection = DTE.ActiveDocument.Selection Dim Insertion As String, Line As String Dim Lines() As String = TS.Text.Split(vbNewLine) ' 针对选中部分的每一行，返回相应的属性过程 Insertion = vbNewLine For Each Line In Lines Insertion &= GetInsertion(Line) Next If (Insertion.Length > 1) Then TS.EndOfLine() TS.NewLine() TS.Insert(Insertion) End If End Sub Private Function GetInsertion(ByVal text As String) As String Dim Words() As String = text.Trim.Split() If Words.Length < 3 Then ' 该行内容不是一个合法的变量声明 Return "" Else Dim Insertion As String Insertion &= vbTab & vbTab & "/// <summary>" Insertion &= vbNewLine Insertion &= vbTab & vbTab & "///" Insertion &= vbNewLine Insertion &= vbTab & vbTab & "/// </summary>" ' 如果不想要XML注释，那前面这几行可以不要 Insertion &= vbNewLine Insertion &= vbTab & vbTab & "public " & Words(1) & " " & Words(2).TrimStart("m").TrimStart("_")..TrimEnd(";") '我的私有变量是以“m_”开始的 Insertion &= vbNewLine Insertion &= vbTab & vbTab & "{ " Insertion &= vbNewLine Insertion &= vbTab & vbTab & vbTab & "get { return " & Words(2) & " }" Insertion &= vbNewLine Insertion &= vbTab & vbTab & vbTab & "set { " & Words(2).TrimEnd(";") & " = value;}" Insertion &= vbNewLine Insertion &= vbTab & vbTab & "}" Insertion &= vbNewLine Return Insertion End If End Function将上面的代码放到VS.NET宏中，然后选中定义的私有变量，再Ctrl+Shift+P即可以根据自定义的私有变量生成属性定义。
