為Visual Studio 2010 增加多行查找與多行替換功能(VS跨行查找替換)
發(fā)布時(shí)間：2014-10-04 12:18:51 作者：佚名 
我要評(píng)論
我要評(píng)論這篇文章主要介紹了為Visual Studio 2010 增加多行查找與多行替換功能(VS跨行查找替換),需要的朋友可以參考下
小編長(zhǎng)期都在使用Visual Studio這個(gè)全球最強(qiáng)大的IDE（沒有之一），但是有些時(shí)候，往往需要查找、或者是替換多行文本，這個(gè)時(shí)候，對(duì)于VS來說可能有點(diǎn)壓力了，因?yàn)槟J(rèn)的替換只能支持單行文本（雖然宏里面的FindLine是可以支持多行查找的，但是不能多行替換，稍后會(huì)詳細(xì)說明下）。
給 Visual Studio 2010 增加多行查找與多行替換功能（VS跨行查找替換：上篇）
這個(gè)圖是增加多行查找與多行替換功能的效果圖，還不錯(cuò)吧！
接下來，等小牛來介紹一下如何添加多行查找與多行替換功能？
只要幾個(gè)步驟就可加入功能。
1. 在 VS 中打開 Macros Explorer(宏 資源管理器) ，在 工具–宏–宏資源管理器（或者快捷鍵Alt+F8）。
2. 在 宏資源管理器 的 MyMacros 中新建一個(gè)宏 MultilineSearch
3. 雙擊 MultilineSearch ，則顯出 宏的IDE和生成的新宏的vb代碼
4. 把 新宏的vb代碼內(nèi)容都刪除，把如下代碼拷進(jìn)去
C# Code復(fù)制內(nèi)容到剪貼板
- ’1. 在 vs.net 中 打開 Macros Explorer(宏 資源管理器) ,在 工具–宏–宏資源管理器。
- ’2. 在 宏資源管理器 的 MyMacros 中新建一個(gè)宏 MultilineSearch
- ’3. 雙擊 MultilineSearch ，則顯出 宏的IDE和生成的新宏的vb代碼
- ’4. 把 新宏的vb代碼內(nèi)容都刪除，把如下代碼拷進(jìn)去
- ’5. 將 System.Drawing.dll 加入 宏工程 的引用
- ’6. 關(guān)閉宏IDE
- Imports EnvDTE
- Imports System.Diagnostics
- Public Module MultilineSearch
- Sub MultilineSearchReplace()
- Dim sf As New MultilineSearchForm
- sf.ShowDialog()
- If sf.result <> FindReplaceKind.none Then
- ‘ temporarily disable Tools - Options -
- ‘ Environment - Documents - Initialize Find text from editor
- Dim oldFindInit As Boolean
- Try
- Dim props As EnvDTE.Properties
- props = DTE.Properties(“Environment”, “Documents”)
- Dim prop As EnvDTE.Property = props.Item(“FindReplaceInitializeFromEditor”)
- oldFindInit = prop.Value
- prop.Value = False
- Catch ex As System.Exception
- End Try
- DTE.Find.PatternSyntax = vsFindPatternSyntax.vsFindPatternSyntaxRegExpr
- DTE.Find.FindWhat = sf.findText
- DTE.Find.ReplaceWith = sf.replaceText
- Select Case sf.result
- Case FindReplaceKind.find
- DTE.ExecuteCommand(“Edit.Find”)
- Case FindReplaceKind.findInFiles
- DTE.ExecuteCommand(“Edit.FindinFiles”)
- Case FindReplaceKind.replace
- DTE.ExecuteCommand(“Edit.Replace”)
- Case FindReplaceKind.replaceInFiles
- DTE.ExecuteCommand(“Edit.ReplaceinFiles”)
- Case Else
- End Select
- ‘ restore Tools - Options -
- ‘ Environment - Documents - Initialize Find text from editor
- Try
- Dim props As EnvDTE.Properties
- props = DTE.Properties(“Environment”, “Documents”)
- Dim prop As EnvDTE.Property = props.Item(“FindReplaceInitializeFromEditor”)
- prop.Value = oldFindInit
- Catch ex As System.Exception
- End Try
- End If
- End Sub
- End Module
- ”’<summary>Types of find/replace operations.</summary>
- Public Enum FindReplaceKind
- ”’<summary>Find</summary>
- find
- ”’<summary>Find In Files</summary>
- findInFiles
- ”’<summary>Replace</summary>
- replace
- ”’<summary>Replace in Files</summary>
- replaceInFiles
- ”’<summary>None. Cancel was pressed.</summary>
- none
- End Enum
- Public Class MultilineSearchForm
- Inherits System.Windows.Forms.Form
- #Region “ Windows Form Designer generated code ”
- Public Sub New()
- MyBase.New()
- ‘This call is required by the Windows Form Designer.
- InitializeComponent()
- ‘Add any initialization after the InitializeComponent() call
- End Sub
- ‘Form overrides dispose to clean up the component list.
- Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
- If disposing Then
- If Not (components Is Nothing) Then
- components.Dispose()
- End If
- End If
- MyBase.Dispose(disposing)
- End Sub
- ‘Required by the Windows Form Designer
- Private components As System.ComponentModel.IContainer
- ‘NOTE: The following procedure is required by the Windows Form Designer
- ‘It can be modified using the Windows Form Designer.
- ‘Do not modify it using the code editor.
- Friend WithEvents FindBox As System.Windows.Forms.TextBox
- Friend WithEvents Label1 As System.Windows.Forms.Label
- Friend WithEvents Label2 As System.Windows.Forms.Label
- Friend WithEvents ReplaceBox As System.Windows.Forms.TextBox
- Friend WithEvents FindBtn As System.Windows.Forms.Button
- Friend WithEvents FindInFilesBtn As System.Windows.Forms.Button
- Friend WithEvents ReplaceBtn As System.Windows.Forms.Button
- Friend WithEvents ReplaceInFilesBtn As System.Windows.Forms.Button
- Friend WithEvents CancelBtn As System.Windows.Forms.Button
- <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
- Me.FindBox = New System.Windows.Forms.TextBox
- Me.Label1 = New System.Windows.Forms.Label
- Me.Label2 = New System.Windows.Forms.Label
- Me.ReplaceBox = New System.Windows.Forms.TextBox
- Me.FindBtn = New System.Windows.Forms.Button
- Me.FindInFilesBtn = New System.Windows.Forms.Button
- Me.ReplaceBtn = New System.Windows.Forms.Button
- Me.ReplaceInFilesBtn = New System.Windows.Forms.Button
- Me.CancelBtn = New System.Windows.Forms.Button
- Me.SuspendLayout()
- ‘
- ‘FindBox
- ‘
- Me.FindBox.Location = New System.Drawing.Point(16, 24)
- Me.FindBox.Multiline = True
- Me.FindBox.Name = “FindBox”
- Me.FindBox.ScrollBars = System.Windows.Forms.ScrollBars.Both
- Me.FindBox.Size = New System.Drawing.Size(400, 80)
- Me.FindBox.TabIndex = 0
- Me.FindBox.Text = “”
- ‘
- ‘Label1
- ‘
- Me.Label1.Location = New System.Drawing.Point(16, 8)
- Me.Label1.Name = “Label1″
- Me.Label1.Size = New System.Drawing.Size(160, 16)
- Me.Label1.TabIndex = 2
- Me.Label1.Text = “查找內(nèi)容:”
- ‘
- ‘Label2
- ‘
- Me.Label2.Location = New System.Drawing.Point(16, 112)
- Me.Label2.Name = “Label2″
- Me.Label2.Size = New System.Drawing.Size(160, 16)
- Me.Label2.TabIndex = 4
- Me.Label2.Text = “替換為:”
- ‘
- ‘ReplaceBox
- ‘
- Me.ReplaceBox.Location = New System.Drawing.Point(16, 128)
- Me.ReplaceBox.Multiline = True
- Me.ReplaceBox.Name = “ReplaceBox”
- Me.ReplaceBox.ScrollBars = System.Windows.Forms.ScrollBars.Both
- Me.ReplaceBox.Size = New System.Drawing.Size(400, 80)
- Me.ReplaceBox.TabIndex = 3
- Me.ReplaceBox.Text = “”
- ‘
- ‘FindBtn
- ‘
- Me.FindBtn.Location = New System.Drawing.Point(16, 232)
- Me.FindBtn.Name = “FindBtn”
- Me.FindBtn.Size = New System.Drawing.Size(80, 24)
- Me.FindBtn.TabIndex = 5
- Me.FindBtn.Text = “查找”
- ‘
- ‘FindInFilesBtn
- ‘
- Me.FindInFilesBtn.Location = New System.Drawing.Point(104, 232)
- Me.FindInFilesBtn.Name = “FindInFilesBtn”
- Me.FindInFilesBtn.Size = New System.Drawing.Size(96, 24)
- Me.FindInFilesBtn.TabIndex = 6
- Me.FindInFilesBtn.Text = “在文件中查找”
- ‘
- ‘ReplaceBtn
- ‘
- Me.ReplaceBtn.Location = New System.Drawing.Point(216, 232)
- Me.ReplaceBtn.Name = “ReplaceBtn”
- Me.ReplaceBtn.Size = New System.Drawing.Size(80, 24)
- Me.ReplaceBtn.TabIndex = 7
- Me.ReplaceBtn.Text = “替換”
- ‘
- ‘ReplaceInFilesBtn
- ‘
- Me.ReplaceInFilesBtn.Location = New System.Drawing.Point(304, 232)
- Me.ReplaceInFilesBtn.Name = “ReplaceInFilesBtn”
- Me.ReplaceInFilesBtn.Size = New System.Drawing.Size(112, 24)
- Me.ReplaceInFilesBtn.TabIndex = 8
- Me.ReplaceInFilesBtn.Text = “在文件中替換”
- ‘
- ‘CancelBtn
- ‘
- Me.CancelBtn.DialogResult = System.Windows.Forms.DialogResult.Cancel
- Me.CancelBtn.Location = New System.Drawing.Point(168, 272)
- Me.CancelBtn.Name = “CancelBtn”
- Me.CancelBtn.Size = New System.Drawing.Size(80, 24)
- Me.CancelBtn.TabIndex = 9
- Me.CancelBtn.Text = “取消”
- ‘
- ‘MultilineSearchForm
- ‘
- Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
- Me.CancelButton = Me.CancelBtn
- Me.ClientSize = New System.Drawing.Size(432, 310)
- Me.Controls.Add(Me.CancelBtn)
- Me.Controls.Add(Me.ReplaceInFilesBtn)
- Me.Controls.Add(Me.ReplaceBtn)
- Me.Controls.Add(Me.FindInFilesBtn)
- Me.Controls.Add(Me.FindBtn)
- Me.Controls.Add(Me.Label2)
- Me.Controls.Add(Me.ReplaceBox)
- Me.Controls.Add(Me.Label1)
- Me.Controls.Add(Me.FindBox)
- Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.SizableToolWindow
- Me.Name = “MultilineSearchForm”
- Me.Text = “多行查找與替換 - www.wuleba.com”
- Me.ResumeLayout(False)
- End Sub
- #End Region
- #Region “Properties”
- Private m_result As FindReplaceKind = FindReplaceKind.none
- ”’<summary>Gets result button from this dialog.</summary>
- ”’<value>The value specifying which button was pressed.</value>
- Public ReadOnly Property result() As FindReplaceKind
- Get
- Return m_result
- End Get
- End Property
- Private m_findText As String
- ”’<summary>Gets escaped multiline text to be searched.</summary>
- ”’<value></value>
- Public ReadOnly Property findText() As String
- Get
- Return m_findText
- End Get
- End Property
- Private m_replaceText As String
- ”’<summary>Gets escaped multiline replace text.</summary>
- ”’<value></value>
- Public ReadOnly Property replaceText() As String
- Get
- Return m_replaceText
- End Get
- End Property
- #End Region
- ”’<summary>Transforms the text to regular expression syntax.</summary>
- ”’<param name=”original”>Original text.</param>
- ”’<returns>Text with escaped regex characters.</returns>
- Private Function escapeRegEx(ByVal original As String) As String
- Dim specialChars() As Char = “\.*+^___FCKpd___0gt;<[]|{}:@#()~”.ToCharArray
- Dim c As Char
- For Each c In specialChars
- original = original.Replace(c.ToString, “\” & c.ToString)
- Next
- original = original.Replace(vbCrLf, “\n”)
- Return original
- End Function
- Private Sub MultilineSearchForm_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
- Try
- Me.Activate()
- Catch ex As System.Exception
- End Try
- End Sub
- Private Sub CancelBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CancelBtn.Click
- Try
- m_result = FindReplaceKind.none
- Me.Close()
- Catch ex As System.Exception
- End Try
- End Sub
- Private Sub FindBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FindBtn.Click
- Try
- m_findText = escapeRegEx(Me.FindBox.Text)
- m_replaceText = escapeRegEx(Me.ReplaceBox.Text)
- m_result = FindReplaceKind.find
- Me.Close()
- Catch ex As System.Exception
- End Try
- End Sub
- Private Sub FindInFilesBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FindInFilesBtn.Click
- Try
- m_findText = escapeRegEx(Me.FindBox.Text)
- m_replaceText = escapeRegEx(Me.ReplaceBox.Text)
- m_result = FindReplaceKind.findInFiles
- Me.Close()
- Catch ex As System.Exception
- End Try
- End Sub
- Private Sub ReplaceBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ReplaceBtn.Click
- Try
- m_findText = escapeRegEx(Me.FindBox.Text)
- m_replaceText = escapeRegEx(Me.ReplaceBox.Text)
- m_result = FindReplaceKind.replace
- Me.Close()
- Catch ex As System.Exception
- End Try
- End Sub
- Private Sub ReplaceInFilesBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ReplaceInFilesBtn.Click
- Try
- m_findText = escapeRegEx(Me.FindBox.Text)
- m_replaceText = escapeRegEx(Me.ReplaceBox.Text)
- m_result = FindReplaceKind.replaceInFiles
- Me.Close()
- Catch ex As System.Exception
- End Try
- End Sub
- End Class
5. 將 System.Drawing.dll 加入 宏工程 的引用
6. 關(guān)閉宏IDE
操作完上面的6個(gè)步驟之后，你的VS2012就多了個(gè)多行搜索和替換文本的工具，效果圖就是最上面的那個(gè)圖。為了更方便大家學(xué)習(xí)，小牛打包了上面的這個(gè)vb代碼，需要的，可以自己下載。
吾樂吧軟件站補(bǔ)充說明：
小編在使用過程中發(fā)現(xiàn)，本文提供的這個(gè)方法雖然可以實(shí)現(xiàn)多行查找、多長(zhǎng)替換文本，但是多行替換的時(shí)候，會(huì)出現(xiàn)一個(gè)問題：你不能把多行文本替換為多行文本（除非你手動(dòng)寫正則）。為了解決這個(gè)問題，小編專門想出了另一個(gè)更加有效的方法，請(qǐng)大家移步查看《給 Visual Studio 2010 增加多行查找與多行替換功能（VS跨行查找替換：下篇）》
相關(guān)文章
WebStorm如何調(diào)試Vue項(xiàng)目? webstorm配置vue開發(fā)環(huán)境指南
WebStorm 支持多種調(diào)試工具，包括瀏覽器的開發(fā)者工具，但本文主要講解的是使用 WebStorm 自帶的調(diào)試功能2025-04-15
VSCode和webstorm怎么設(shè)置綠色護(hù)眼背景? 綠豆沙背景色的設(shè)置方法
護(hù)眼色一定程度能保護(hù)眼睛，緩解疲勞，VSCode和webstorm這兩款常用的軟件怎么設(shè)置護(hù)眼色呢？詳細(xì)請(qǐng)看下文介紹2025-04-15WebStorm常用插件以及實(shí)用設(shè)置分享
WebStorm本身已經(jīng)足夠強(qiáng)大，但一些優(yōu)秀的插件能錦上添花，顯著提升開發(fā)效率，詳細(xì)請(qǐng)看下文介紹2025-04-15如何安裝配置WebStorm? WebStorm安裝與使用全方位指南
WebStorm軟件在前端和后端開發(fā)領(lǐng)域都備受青睞，很多朋友不知道該怎么下載安裝，下面我們就來看看詳細(xì)的安裝配置教程2025-04-15Webstorm怎么配置? Webstorm入門之軟件配置教程
WebStorm是一款功能強(qiáng)大的集成開發(fā)環(huán)境（IDE），支持各種前端開發(fā)技術(shù)，今天我們就來看看Webstorm的配置教程2025-04-15Webstorm怎么設(shè)置字體大小/背景顏色/背景圖片?
WebStorm 允許您自定義界面顏色，以創(chuàng)建更個(gè)性化和美觀的工作空間，今天我們就來看看Webstorm改變字體大小、背景顏色、設(shè)置背景圖片的方法2025-04-15
VScode上安裝PlatformIO插件能成功安裝，嘗試卸載VScode并刪除插件，這些錯(cuò)誤仍然存在，下面我們就來看看這個(gè)問題的解決辦法2025-04-03
提升代碼搜索效率! VSCode里DeepSeek插件安裝與配置指南
今天我們將向大家介紹如何在Visual Studio Code中安裝并配置 DeepSeek 插件，幫助你更高效地進(jìn)行代碼搜索2025-04-07提升你的編程效率! VSCode的初級(jí)使用教程超詳細(xì)版
VSCode是一款免費(fèi)且開源的代碼編輯器，因其強(qiáng)大的功能和良好的用戶體驗(yàn)而廣受歡迎，本文將詳細(xì)介紹 VSCode 的基本使用方法，并通過插圖幫助你更好地理解2025-04-03- 今天我們來聊聊如何安裝和配置VS Code，讓它成為你編程路上的得力助手，這個(gè)過程其實(shí)很簡(jiǎn)單，只要跟著我的步驟走，你絕對(duì)能搞定2025-04-03
