Visual Studio实现JS代码折叠功能

环境


Microsoft Visual Studio 2008


正文

1. 打开宏资源管理器:视图 -> 其他窗口 -> 宏资源管理器 

2.      创建一个新模块

3.编辑宏:选中模块 -> 右键编辑

Option Strict Off  Option Explicit Off  Imports System  Imports EnvDTE  Imports EnvDTE80  Imports System.Diagnostics  Imports System.Collections  Public Module JsMacros      Sub OutlineRegions()          Dim selection As EnvDTE.TextSelection = DTE.ActiveDocument.Selection          Const REGION_START As String = "//#region"         Const REGION_END As String = "//#endregion"         selection.SelectAll()          '农民伯伯 --- 自动为"//#endregion"结束的代码添加最后一行，不然出错          If selection.Text.EndsWith(REGION_END) Then              selection.EndOfLine()              selection.NewLine()              selection.SelectAll()          End If          Dim text As String = selection.Text          selection.StartOfDocument(True)          Dim startIndex As Integer          Dim endIndex As Integer          Dim lastIndex As Integer = 0         Dim startRegions As Stack = New Stack()          Do              startIndex = text.IndexOf(REGION_START, lastIndex)              endIndex = text.IndexOf(REGION_END, lastIndex)              If startIndex = -1 AndAlso endIndex = -1 Then                  Exit Do              End If              If startIndex <> -1 AndAlso startIndex < endIndex Then                  startRegions.Push(startIndex)                  lastIndex = startIndex + 1              Else                  ' Outline region                   selection.MoveToLineAndOffset(CalcLineNumber(text, CInt(startRegions.Pop())), 1)                  selection.MoveToLineAndOffset(CalcLineNumber(text, endIndex) + 1, 1, True)                  selection.OutlineSection()                  lastIndex = endIndex + 1              End If          Loop          selection.StartOfDocument()      End Sub      Private Function CalcLineNumber(ByVal text As String, ByVal index As Integer)          Dim lineNumber As Integer = 1         Dim i As Integer = 0         While i < index             If text.Chars(i) = vbCr Then                  lineNumber += 1                  i += 1              End If              i += 1          End While          Return lineNumber      End Function  End Module 

保存即可。这里可以省去新建宏的步骤，他会根据代码自动给你生成一个宏的。

注意我加的代码段，如果不加，并且你的JS最后一行为#endregion，宏将报错，显示“值不在预期的范围内”。

4.设置快捷键

4.1工具 -> 选项 - > 环境 -> 键盘

4.2在显示命令包含下面的文本框中输入宏名outli，不用输全，下面能显示你新建的宏

4.3点一下 按快捷键 下面的文本框， 然后自定义快捷键组合，我定义的是Ctrl+M,Ctrl+J，点分配(别忘了！)，点确定。

5.效果

5.1输入代码:

//aasdsadsad  //#region  //#endregion 

5.2快捷键Ctrl+M,Ctrl+J启动宏，能看到系统的右下角显示可爱的小方块在转动，js编辑框显示效果如下：

5.3之后就可以用快捷键Ctrl+M,Ctrl+L来[展开/折叠]代码了，注意关闭之后重新打开需要再启动一次宏，展开效果如下:

结束

想到不如做到，但做之前要是能先Google一下也许能事半功倍。