让visual studio 也支持js代码折叠

《让visual studio 也支持js代码折叠》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、前言      VisualStudio的代码折叠功能非常好用，使用频率很高，但是他不支持js的代码折叠:(为了改善用户体验，脚本写的越来越多，维护非常不方便，意外搜到了下面的文章，已经用宏来实现了) 正文      1.     打开宏资源管理器:视图-> 其他窗口 -> 宏资源管理器 　　      2.     创建一个新模块　　　　3.　　编辑宏:　　选中模块->右键编辑Option Strict OffOption Explicit OffImports SystemImports EnvDTEImports E

2、nvDTE80Imports System.DiagnosticsImports System.CollectionsPublic Module JsMacros    Sub OutlineRegions()        Dim selection As EnvDTE.TextSelection = DTE.ActiveDocument.Selection        Const REGION_START As String = "//#region"        Const REGION_END As Strin

3、g = "//#endregion"        selection.SelectAll()        If selection.Text.EndsWith(REGION_END) Then            selection.EndOfLine()            selection.NewLine()            selection.SelectAll()        End If        Dim text As String = selection.Text        sele

4、ction.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)            endInd

5、ex = 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)               

6、 lastIndex = startIndex + 1            Else                ' Outline region                 selection.MoveToLineAndOffset(CalcLineNumber(text, CInt(startRegions.Pop())), 1)                selection.MoveToLineAndOffset(CalcLineNumber(text, endIndex) + 1, 1, True)  

7、              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 I

8、nteger = 1        Dim i As Integer = 0        While i < index            If text.Chars(i) = vbCr Then                lineNumber += 1                i +=