Visual Studio实现JS代码折叠功能

川长思鸟来 2022-07-13 10:26 328阅读 0赞

环境  
  
  
Microsoft Visual Studio 2008  
  
  
正文

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

2.      创建一个新模块

![Center 1][]

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.设置快捷键

![Center 2][]

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

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

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

5.效果

5.1输入代码:

//aasdsadsad  
    //#region  
    //#endregion

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

![Center 3][]

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

![Center 4][]

结束

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

[Center]: /images/20220713/05d7ad41d0a64a168c986d529631db86.png
[Center 1]: /images/20220713/4a3cde0633d5494e85887f13e7b3f255.png
[Center 2]: /images/20220713/d0a0d177646343439fbc8e9fd3214f15.png
[Center 3]: /images/20220713/d471eaa97de643b8b0404553e91580ab.png
[Center 4]: /images/20220713/af18774cc4ac48c4a321831e63034589.png