vs2003最常用,最实用的宏——重构属性
2008-02-26 16:10
323 查看
提起VS2003的宏,可能有的人常用,有的人从来不用。
可是,对于我这种“能让机器干,就自己绝不动手”的人来说,肯定还是会用到的。
常常为了写宏没有写代码而挨批,
自己写的宏一般都比较专用,专门用在项目的某个地方,一旦有什么更改,可以立刻用宏来重新构造那些大量复杂重复的代码。但是,也有一些非常好的宏,比较通用,在这里大家一起讨论一番。例如这个用来将字段转化为属性的宏就很好用,并且,我个人觉得要比vs2005的[重构]要好,要实用,而且这个宏还可以一次转换多行字段,是2005没法达到的。
Imports EnvDTE
Imports System.Diagnostics
Imports System.Text.RegularExpressions
Public Module forCSharp
Sub ReCreate()
Dim line, originalCode As String
If DTE.ActiveDocument Is Nothing Then Return
Dim txt As TextSelection
txt = CType(DTE.ActiveDocument.Selection, TextSelection)
originalCode = txt.Text
Dim variableName As String
Dim publicName As String
Dim privateName As String
Dim dataType As String
Dim propertyProcedures As New System.Text.StringBuilder
Dim lines() As String
lines = Split(originalCode, vbLf)
Dim r As Regex
r = New Regex( _
"/s*(?<typename>/w*)" & _
"/s*(?<varname>/w*)/s*/;", _
RegexOptions.IgnoreCase Or _
RegexOptions.ExplicitCapture)
For Each line In lines
line = line.Trim
If Not line = String.Empty Then
Dim mtch As Match
mtch = r.Match(line)
If mtch.Success Then
variableName = _
mtch.Groups("varname").Value.Trim
dataType = _
mtch.Groups("typename").Value.Trim
variableName = IIf(variableName.StartsWith("_"), variableName.Substring(1), variableName)
variableName = IIf(variableName.StartsWith("m_"), variableName.Substring(2), variableName)
publicName = variableName.Substring(0, 1).ToUpper() & variableName.Substring(1)
privateName = "_" & variableName.Substring(0, 1).ToLower() & variableName.Substring(1)
propertyProcedures.AppendFormat(vbCrLf _
& " private {1} {2};" & vbCrLf _
& " public {1} {0}" & vbCrLf _
& " {{" & vbCrLf _
& " get" & vbCrLf _
& " {{" & vbCrLf _
& " return {2};" & vbCrLf _
& " }}" & vbCrLf _
& "" & vbCrLf _
& " set" & vbCrLf _
& " {{" & vbCrLf _
& " {2} = value;" & vbCrLf _
& " }}" & vbCrLf _
& " }}" & vbCrLf, _
publicName, _
dataType, privateName)
End If
End If
Next
DTE.UndoContext.Open("重构属性")
txt = CType(DTE.ActiveDocument.Selection, TextSelection)
txt.Delete()
txt.Insert(propertyProcedures.ToString, _
vsInsertFlags.vsInsertFlagsContainNewText Or vsInsertFlags.vsInsertFlagsInsertAtEnd)
'txt.Text = propertyProcedures.ToString()
txt.SmartFormat()
DTE.UndoContext.Close()
End Sub
End Module
可是,对于我这种“能让机器干,就自己绝不动手”的人来说,肯定还是会用到的。
常常为了写宏没有写代码而挨批,
自己写的宏一般都比较专用,专门用在项目的某个地方,一旦有什么更改,可以立刻用宏来重新构造那些大量复杂重复的代码。但是,也有一些非常好的宏,比较通用,在这里大家一起讨论一番。例如这个用来将字段转化为属性的宏就很好用,并且,我个人觉得要比vs2005的[重构]要好,要实用,而且这个宏还可以一次转换多行字段,是2005没法达到的。
Imports EnvDTE
Imports System.Diagnostics
Imports System.Text.RegularExpressions
Public Module forCSharp
Sub ReCreate()
Dim line, originalCode As String
If DTE.ActiveDocument Is Nothing Then Return
Dim txt As TextSelection
txt = CType(DTE.ActiveDocument.Selection, TextSelection)
originalCode = txt.Text
Dim variableName As String
Dim publicName As String
Dim privateName As String
Dim dataType As String
Dim propertyProcedures As New System.Text.StringBuilder
Dim lines() As String
lines = Split(originalCode, vbLf)
Dim r As Regex
r = New Regex( _
"/s*(?<typename>/w*)" & _
"/s*(?<varname>/w*)/s*/;", _
RegexOptions.IgnoreCase Or _
RegexOptions.ExplicitCapture)
For Each line In lines
line = line.Trim
If Not line = String.Empty Then
Dim mtch As Match
mtch = r.Match(line)
If mtch.Success Then
variableName = _
mtch.Groups("varname").Value.Trim
dataType = _
mtch.Groups("typename").Value.Trim
variableName = IIf(variableName.StartsWith("_"), variableName.Substring(1), variableName)
variableName = IIf(variableName.StartsWith("m_"), variableName.Substring(2), variableName)
publicName = variableName.Substring(0, 1).ToUpper() & variableName.Substring(1)
privateName = "_" & variableName.Substring(0, 1).ToLower() & variableName.Substring(1)
propertyProcedures.AppendFormat(vbCrLf _
& " private {1} {2};" & vbCrLf _
& " public {1} {0}" & vbCrLf _
& " {{" & vbCrLf _
& " get" & vbCrLf _
& " {{" & vbCrLf _
& " return {2};" & vbCrLf _
& " }}" & vbCrLf _
& "" & vbCrLf _
& " set" & vbCrLf _
& " {{" & vbCrLf _
& " {2} = value;" & vbCrLf _
& " }}" & vbCrLf _
& " }}" & vbCrLf, _
publicName, _
dataType, privateName)
End If
End If
Next
DTE.UndoContext.Open("重构属性")
txt = CType(DTE.ActiveDocument.Selection, TextSelection)
txt.Delete()
txt.Insert(propertyProcedures.ToString, _
vsInsertFlags.vsInsertFlagsContainNewText Or vsInsertFlags.vsInsertFlagsInsertAtEnd)
'txt.Text = propertyProcedures.ToString()
txt.SmartFormat()
DTE.UndoContext.Close()
End Sub
End Module
相关文章推荐
- vs2003最常用,最实用的宏——重构属性(源代码)
- ListView简单实用-部分常用属性设置
- [转载]DEV控件:gridControl常用属性设置
- Android——ListView使用过程中的常用属性(持续更新)
- javascript字符串对象的常用属性和方法
- 常用的属性标签
- XMLHttp常用属性,方法,成员
- 常用UIButton控件的属性列表
- ios关于layer的一些常用属性
- ajax对象的获取及其常用属性
- WPF DataGrid常用属性记录
- C#之图片框控件(PictureBox)常用属性
- css常用属性
- android ScrollView常用属性
- Delphi StringGrid常用属性和常用操作
- android常用控件属性(中文)
- android 控件ImageView的常用属性说明
- css常用属性整理
- NHibernate Step By Step(10)-常用的配置属性
- AppBarLayout,CoordinatorLayout常用属性