VS2003折叠代码的Micro

 

 

VS2003折叠代码的Micro

 

最近一直用VB.NET来做项目，不幸公司使用的是VS2003进行开发,VisualStudio 2003的编辑器和现在的Eclipse或VS2008真是不能比。

 

特别少了If，With，Try，For等代码块的折叠，代码一长根本就很难读。

 

于是，想出了一个宏(Micro)，对文档进行格式代，使If，With，Try，For等代码块也能折叠，觉得有趣味，拿来分享。希望能对一些人有帮助。

 

由于效率上没优化过，而且用的是堆栈，所以长代码的情况下，１万行代码大概得两三分钟吧。比较慢，可以喝杯咖啡或上个厕所先，呵呵。

 

执行方法，按Alt+F8调出Micro浏览器，打开要格式化的VB文档(C#改动一下应该也能很快做到吧)，然后双击要调用的方法。

Imports EnvDTE Imports System.Diagnostics Imports System.Collections Imports System.Math Imports System.Text.RegularExpressions Public Module FormatDocument '* '* 只折叠本代码块 '* Public Sub CollapseThis() Dim objSel As TextSelection Dim intPos_Cur As Integer Di