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

//#region
//#endregion