vs2003最常用,最实用的宏——重构属性(源代码)

原创 2006年06月13日 11:17:00

提起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

vs2003最常用,最实用的宏——重构属性

提起VS2003的宏,可能有的人常用,有的人从来不用。可是,对于我这种“能让机器干,就自己绝不动手”的人来说,肯定还是会用到的。常常为了写宏没有写代码而挨批,自己写的宏一般都比较专用,专门用在项目的某...
  • paulin
  • paulin
  • 2008年02月26日 16:10
  • 341

现在比较常用的数据库介绍

数据库的种类:DB2,SQl server,mySQL,ORACLE,ACCESS
  • HOT_and_COOl
  • HOT_and_COOl
  • 2017年04月12日 18:30
  • 453

GridView使用常用属性设置

GridView xmlns:android="http://schemas.android.com/apk/res/android" android:id="@+id/gridView" ...
  • mlz_2
  • mlz_2
  • 2016年04月27日 11:09
  • 169

Android快速开发,十个最常用的框架

对于Android初学者以及对于我们菜鸟,这些大神们开发的轻量级框架非常有用(更别说开源的了)。 下面转载这10个框架的介绍:(按顺序来吧没有什么排名)。 一、 Afinal官方介绍:Afina...
  • zhang_hongli_li
  • zhang_hongli_li
  • 2015年08月22日 14:48
  • 11443

常用的一些Vim命令

1. 关于Vim vim是我最喜欢的编辑器,也是linux下第二强大的编辑器。 虽然emacs是公认的世界第一,我认为使用emacs并没有使用vi进行编辑来得高效。 如果是初学vi,运行一下vimt...
  • qq_34060722
  • qq_34060722
  • 2016年11月25日 15:55
  • 454

EXCEL宏使用上的一点经验总结

我们在日常工作中,总是不可避免的
  • u013560667
  • u013560667
  • 2014年05月16日 13:36
  • 881

常用的一些脚本语言

说起脚本语言,搞过游戏开发的,基本都不陌生,平时接触到的脚本也比较多。   比如: Python: 我参加工作之后研究的第一个脚本语言。这个脚本的功能很多模块很全,技术非常成熟...
  • amandalm
  • amandalm
  • 2014年09月26日 20:02
  • 5061

Navigator 对象属性 详细介绍

详解如下:
  • ios0213
  • ios0213
  • 2016年05月15日 20:57
  • 120

Jquery前端常用插件整理记录.(个人用)

发现自己的浏览器标签夹各种乱,各种曾经工作时需要的资料全集中一时,有的可能用一次就没在用过,躺在某个角落,此时资料的想法应该是 为了改变自己一下习惯做做整理记录。 前端实用插件 ...
  • dcb_ripple
  • dcb_ripple
  • 2017年03月28日 17:27
  • 1294

当今最残忍的杀人手段【心脏病勿入】

有些明显不合常理,看过就算了1、一位母亲,因为他的丈夫不再爱她了,有了婚外情,这位母亲迁怒于他们的独子,因她是学化学的,一个夜晚,这位母亲在她的小儿的被子下撒满了白磷,不久她儿子自燃至死,最后这位母亲...
  • baggio785
  • baggio785
  • 2006年02月22日 15:21
  • 1718
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:vs2003最常用,最实用的宏——重构属性(源代码)
举报原因:
原因补充:

(最多只允许输入30个字)