让Visual Studio 2008 支持JS代码折叠

发布时间: 2009/6/15 19:35:32

环境

      Microsoft Visual Studio 2008

 

正文

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

   

      2.      创建一个新模块

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) 
+ 11True)
                selection.OutlineSection()

                lastIndex 
= endIndex + 1
            
End If
        
Loop

        selection.StartOfDocument()
    
End Sub

    
Private Function CalcLineNumber(ByVal text As StringByVal 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.  设置快捷键

 

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

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

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

 

5.效果

5.1  输入代码:


//aasdsadsad

//#region
//
#endregion

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

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

 

结束

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

官方微信
官方QQ群
31647020