让Visual Studio 也支持JS代码折叠

 1 Option Strict Off
 2 Option Explicit Off
 3 
 4 Imports System
 5 Imports EnvDTE
 6 Imports EnvDTE80
 7 Imports System.Diagnostics
 8 Imports System.Collections
 9 
10 Public Module JsMacros
11 
12     Sub OutlineRegions()
13         Dim selection As EnvDTE.TextSelection = DTE.ActiveDocument.Selection
14 
15         Const REGION_START As String = "//#region"
16         Const REGION_END As String = "//#endregion"
17 
18         selection.SelectAll()
19         '农民伯伯 --- 自动为"//#endregion"结束的代码添加最后一行，不然出错
20         If selection.Text.EndsWith(REGION_END) Then
21             selection.EndOfLine()
22             selection.NewLine()
23             selection.SelectAll()
24         End If
25 
26 
27         Dim text As String = selection.Text
28         selection.StartOfDocument(True)
29 
30         Dim startIndex As Integer
31         Dim endIndex As Integer
32         Dim lastIndex As Integer = 0
33         Dim startRegions As Stack = New Stack()
34 
35         Do
36             startIndex = text.IndexOf(REGION_START, lastIndex)
37             endIndex = text.IndexOf(REGION_END, lastIndex)
38 
39             If startIndex = -1 AndAlso endIndex = -1 Then
40                 Exit Do
41             End If
42 
43             If startIndex <> -1 AndAlso startIndex < endIndex Then
44                 startRegions.Push(startIndex)
45                 lastIndex = startIndex + 1
46             Else
47                 ' Outline region 
48                 selection.MoveToLineAndOffset(CalcLineNumber(text, CInt(startRegions.Pop())), 1)
49                 selection.MoveToLineAndOffset(CalcLineNumber(text, endIndex) + 1, 1, True)
50                 selection.OutlineSection()
51 
52                 lastIndex = endIndex + 1
53             End If
54         Loop
55 
56         selection.StartOfDocument()
57     End Sub
58 
59     Private Function CalcLineNumber(ByVal text As String, ByVal index As Integer)
60         Dim lineNumber As Integer = 1
61         Dim i As Integer = 0
62 
63         While i < index
64             If text.Chars(i) = vbCr Then
65                 lineNumber += 1
66                 i += 1
67             End If
68 
69             i += 1
70         End While
71 
72         Return lineNumber
73     End Function
74 
75 End Module