Using #region Directive With JavaScript Files in Visual Studio

最新推荐文章于 2025-08-05 17:55:38 发布

ljafl9988

最新推荐文章于 2025-08-05 17:55:38 发布

阅读量657

点赞数

分类专栏： JavaScript 文章标签： javascript integer string envdte module function

JavaScript 专栏收录该内容

3 篇文章

订阅专栏

本文介绍了一个用于JavaScript脚本的创新宏，该宏能够通过类似C#的#region指令来实现代码块的折叠与展开，便于代码管理和阅读。文章提供了宏的具体实现代码，并展示了如何设置快捷键及使用效果。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

本文转载自：http://blog.devarchive.net/2008/04/using-region-directive-with-javascript.html

这是一个不错的小创意，可以针对大量的javascript脚本实现#region管理的效果. 创意无限啊，赞一个

1.首先编写以下的宏

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()
        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

2. 然后指派一个快捷键给它

这里的快捷键是无所谓的，但一定要两个键

3. 然后假设我们有这样的页面

此时，如果按下CTRL+M+,

的确是挺不错的