zovxiaolin
技术员
帖子
43
精华
1
无忧币 265
积分 235
阅读权限 30
|
发表于:2007-8-24 11:45
标题：vs2003最常用，最实用的宏——重构属性（源代码）
＜上一帖 |
下一帖＞
提起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*(?\w*)" & _
"\s*(?\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
|
论坛活动：测测你对IT技术大会的了解指数(赠微软礼品、无忧币) |
|
| 诚征版主 | 版主堂 | 意见建议 | 大史记 | 论坛地图