為Visual Studio 2010 增加多行查找與多行替換功能(VS跨行查找替換)

2020-07-14 13:22:59

字體：大中小

來源：轉載

供稿：網友

小編長期都在使用Visual Studio這個全球最強大的IDE（沒有之一），但是有些時候，往往需要查找、或者是替換多行文本，這個時候，對于VS來說可能有點壓力了，因為默認的替換只能支持單行文本（雖然宏里面的FindLine是可以支持多行查找的，但是不能多行替換，稍后會詳細說明下）。

給 Visual Studio 2010 增加多行查找與多行替換功能（VS跨行查找替換：上篇）

這個圖是增加多行查找與多行替換功能的效果圖，還不錯吧！

接下來，等小牛來介紹一下如何添加多行查找與多行替換功能？

只要幾個步驟就可加入功能。

1. 在 VS 中打開 Macros Explorer(宏資源管理器) ，在工具–宏–宏資源管理器（或者快捷鍵Alt+F8）。
2. 在宏資源管理器的 MyMacros 中新建一個宏 MultilineSearch
3. 雙擊 MultilineSearch ，則顯出宏的IDE和生成的新宏的vb代碼
4. 把新宏的vb代碼內容都刪除，把如下代碼拷進去

C# Code復制內容到剪貼板

’1. 在 vs.net 中打開 Macros Explorer(宏資源管理器) ,在工具–宏–宏資源管理器。
’2. 在宏資源管理器的 MyMacros 中新建一個宏 MultilineSearch
’3. 雙擊 MultilineSearch ，則顯出宏的IDE和生成的新宏的vb代碼
’4. 把新宏的vb代碼內容都刪除，把如下代碼拷進去
’5. 將 System.Drawing.dll 加入宏工程的引用
’6. 關閉宏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 = “查找內容:”
‘
‘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 加入宏工程的引用

給 Visual Studio 2010 增加多行查找與多行替換功能（VS跨行查找替換：上篇）

6. 關閉宏IDE

給 Visual Studio 2010 增加多行查找與多行替換功能（VS跨行查找替換：上篇）

操作完上面的6個步驟之后，你的VS2012就多了個多行搜索和替換文本的工具，效果圖就是最上面的那個圖。為了更方便大家學習，小牛打包了上面的這個vb代碼，需要的，可以自己下載。

吾樂吧軟件站補充說明：

小編在使用過程中發現，本文提供的這個方法雖然可以實現多行查找、多長替換文本，但是多行替換的時候，會出現一個問題：你不能把多行文本替換為多行文本（除非你手動寫正則）。為了解決這個問題，小編專門想出了另一個更加有效的方法，請大家移步查看《給 Visual Studio 2010 增加多行查找與多行替換功能（VS跨行查找替換：下篇）》

上一篇：為Visual Studio 2010 增加多行查找與多行替換功能(VS跨行查找替換)

下一篇：Microsoft Visual Studio 2012/2013 已停止工作的解決方法