Visual Studio实现JS代码折叠功能
2017-01-05 16:38
127 查看
环境
Microsoft Visual Studio 2008
正文
1. 打开宏资源管理器:视图 -> 其他窗口 -> 宏资源管理器
![](https://img-blog.csdn.net/20170105163514748?watermark/2/text/aHR0cDovL2Jsb2cuY3Nkbi5uZXQvTGFuU2VUaWFuS29uZzEy/font/5a6L5L2T/fontsize/400/fill/I0JBQkFCMA==/dissolve/70/gravity/Center)
2. 创建一个新模块
![](https://img-blog.csdn.net/20170105163541272?watermark/2/text/aHR0cDovL2Jsb2cuY3Nkbi5uZXQvTGFuU2VUaWFuS29uZzEy/font/5a6L5L2T/fontsize/400/fill/I0JBQkFCMA==/dissolve/70/gravity/Center)
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) + 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
保存即可。这里可以省去新建宏的步骤,他会根据代码自动给你生成一个宏的。
注意我加的代码段,如果不加,并且你的JS最后一行为#endregion,宏将报错,显示“值不在预期的范围内”。
4.设置快捷键
![](https://img-blog.csdn.net/20170105163653601?watermark/2/text/aHR0cDovL2Jsb2cuY3Nkbi5uZXQvTGFuU2VUaWFuS29uZzEy/font/5a6L5L2T/fontsize/400/fill/I0JBQkFCMA==/dissolve/70/gravity/Center)
4.1工具 -> 选项 - > 环境 -> 键盘
4.2在显示命令包含下面的文本框中输入宏名outli,不用输全,下面能显示你新建的宏
4.3点一下 按快捷键 下面的文本框, 然后自定义快捷键组合,我定义的是Ctrl+M,Ctrl+J,点分配(别忘了!),点确定。
5.效果
5.1输入代码:
![](https://img-blog.csdn.net/20170105163738320?watermark/2/text/aHR0cDovL2Jsb2cuY3Nkbi5uZXQvTGFuU2VUaWFuS29uZzEy/font/5a6L5L2T/fontsize/400/fill/I0JBQkFCMA==/dissolve/70/gravity/Center)
5.3之后就可以用快捷键Ctrl+M,Ctrl+L来[展开/折叠]代码了,注意关闭之后重新打开需要再启动一次宏,展开效果如下:
![](https://img-blog.csdn.net/20170105163802393?watermark/2/text/aHR0cDovL2Jsb2cuY3Nkbi5uZXQvTGFuU2VUaWFuS29uZzEy/font/5a6L5L2T/fontsize/400/fill/I0JBQkFCMA==/dissolve/70/gravity/Center)
结束
想到不如做到,但做之前要是能先Google一下也许能事半功倍。
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) + 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
保存即可。这里可以省去新建宏的步骤,他会根据代码自动给你生成一个宏的。
注意我加的代码段,如果不加,并且你的JS最后一行为#endregion,宏将报错,显示“值不在预期的范围内”。
4.设置快捷键
4.1工具 -> 选项 - > 环境 -> 键盘
4.2在显示命令包含下面的文本框中输入宏名outli,不用输全,下面能显示你新建的宏
4.3点一下 按快捷键 下面的文本框, 然后自定义快捷键组合,我定义的是Ctrl+M,Ctrl+J,点分配(别忘了!),点确定。
5.效果
5.1输入代码:
//aasdsadsad //#region //#endregion5.2快捷键Ctrl+M,Ctrl+J启动宏,能看到系统的右下角显示可爱的小方块在转动,js编辑框显示效果如下:
5.3之后就可以用快捷键Ctrl+M,Ctrl+L来[展开/折叠]代码了,注意关闭之后重新打开需要再启动一次宏,展开效果如下:
结束
想到不如做到,但做之前要是能先Google一下也许能事半功倍。
相关文章推荐
- DataTables(二) —— 行分组信息展开与折叠的功能实现
- UITableView实现类似QQ好友的折叠功能
- 使用Visual Studio(VS)开发Qt程序代码提示功能的实现
- 手机网站实现一键拨号及html5短信发送功能JS代码(微信适用)
- 利用JQuery实现左侧菜单栏可折叠功能
- 用js代码实现倒计时的功能
- 用最短的JS代码实现全选,反选功能(附带:强烈B4跑堂的人)
- 使用Visual Studio(VS)开发Qt程序代码提示功能的实现
- 实现Server.UrlEncode和Server.UrlDecode功能的js代码
- 利用reporting services扩展开发报表,实现group的展开折叠功能
- Javascript实现代码折叠功能
- 使用Visual Studio(VS)开发Qt程序代码提示功能的实现
- JS代码实现电脑配置检测功能
- js代码实现浮动窗口的功能.
- 上传图片实现预览功能的js代码
- C++ MFC 窗体伸缩折叠功能的实现
- 使用Visual Studio(VS)开发Qt程序代码提示功能的实现
- 使用Visual Studio(VS)开发Qt程序代码提示功能的实现(转)
- 基于jQuery实现左侧菜单栏可折叠功能
- Visual Studio 2013开发 mini-filter driver step by step 获取可执行文件名称 - 实现process monitor的一个功能 (10)