为Visual Studio 2010 增加多行查找与多行替换功能(VS跨行查找替换)

为Visual Studio 2010 增加多行查找与多行替换功能(VS跨行查找替换) 小编长期都在使用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. ’1. 在 vs.net 中 打开 Macros Explorer(宏 资源管理器) ,在 工具–宏–宏资源管理器。   
2. ’2. 在 宏资源管理器 的 MyMacros 中新建一个宏 MultilineSearch   
3. ’3. 双击 MultilineSearch ，则显出 宏的IDE和生成的新宏的vb代码   
4. ’4. 把 新宏的vb代码内容都删除，把如下代码拷进去   
5. ’5. 将 System.Drawing.dll 加入 宏工程 的引用   
6. ’6. 关闭宏IDE   
7.     
8. Imports EnvDTE   
9. Imports System.Diagnostics   
10. Public Module MultilineSearch   
11. Sub MultilineSearchReplace()   
12. Dim sf As New MultilineSearchForm   
13. sf.ShowDialog()   
14. If sf.result <> FindReplaceKind.none Then   
15. ‘ temporarily disable Tools - Options -   
16.             ‘ Environment - Documents - Initialize Find text from editor   
17.             Dim oldFindInit As Boolean   
18. Try   
19. Dim props As EnvDTE.Properties   
20. props = DTE.Properties(“Environment”, “Documents”)   
21. Dim prop As EnvDTE.Property = props.Item(“FindReplaceInitializeFromEditor”)   
22. oldFindInit = prop.Value   
23. prop.Value = False   
24. Catch ex As System.Exception   
25. End Try   
26. DTE.Find.PatternSyntax = vsFindPatternSyntax.vsFindPatternSyntaxRegExpr   
27. DTE.Find.FindWhat = sf.findText   
28. DTE.Find.ReplaceWith = sf.replaceText   
29. Select Case sf.result   
30. Case FindReplaceKind.find   
31. DTE.ExecuteCommand(“Edit.Find”)   
32. Case FindReplaceKind.findInFiles   
33. DTE.ExecuteCommand(“Edit.FindinFiles”)   
34. Case FindReplaceKind.replace   
35. DTE.ExecuteCommand(“Edit.Replace”)   
36. Case FindReplaceKind.replaceInFiles   
37. DTE.ExecuteCommand(“Edit.ReplaceinFiles”)   
38. Case Else   
39. End Select   
40. ‘ restore Tools - Options -   
41.             ‘ Environment - Documents - Initialize Find text from editor   
42.             Try   
43. Dim props As EnvDTE.Properties   
44. props = DTE.Properties(“Environment”, “Documents”)   
45. Dim prop As EnvDTE.Property = props.Item(“FindReplaceInitializeFromEditor”)   
46. prop.Value = oldFindInit   
47. Catch ex As System.Exception   
48. End Try   
49. End If   
50. End Sub   
51. End Module   
52. ”’<summary>Types of find/replace operations.</summary>   
53. Public Enum FindReplaceKind   
54. ”’<summary>Find</summary>   
55.     find   
56. ”’<summary>Find In Files</summary>   
57.     findInFiles   
58. ”’<summary>Replace</summary>   
59.     replace   
60. ”’<summary>Replace in Files</summary>   
61.     replaceInFiles   
62. ”’<summary>None. Cancel was pressed.</summary>   
63.     none   
64. End Enum   
65. Public Class MultilineSearchForm   
66. Inherits System.Windows.Forms.Form  
67. #Region “ Windows Form Designer generated code ”   
68. Public Sub New()   
69. MyBase.New()   
70. ‘This call is required by the Windows Form Designer.   
71.         InitializeComponent()   
72. ‘Add any initialization after the InitializeComponent() call   
73.     End Sub   
74. ‘Form overrides dispose to clean up the component list.   
75.     Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)   
76. If disposing Then   
77. If Not (components Is Nothing) Then   
78. components.Dispose()   
79. End If   
80. End If   
81. MyBase.Dispose(disposing)   
82. End Sub   
83. ‘Required by the Windows Form Designer   
84.     Private components As System.ComponentModel.IContainer   
85. ‘NOTE: The following procedure is required by the Windows Form Designer   
86.     ‘It can be modified using the Windows Form Designer.   
87.     ‘Do not modify it using the code editor.   
88.     Friend WithEvents FindBox As System.Windows.Forms.TextBox   
89. Friend WithEvents Label1 As System.Windows.Forms.Label   
90. Friend WithEvents Label2 As System.Windows.Forms.Label   
91. Friend WithEvents ReplaceBox As System.Windows.Forms.TextBox   
92. Friend WithEvents FindBtn As System.Windows.Forms.Button   
93. Friend WithEvents FindInFilesBtn As System.Windows.Forms.Button   
94. Friend WithEvents ReplaceBtn As System.Windows.Forms.Button   
95. Friend WithEvents ReplaceInFilesBtn As System.Windows.Forms.Button   
96. Friend WithEvents CancelBtn As System.Windows.Forms.Button   
97. <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()   
98. Me.FindBox = New System.Windows.Forms.TextBox   
99. Me.Label1 = New System.Windows.Forms.Label   
100. Me.Label2 = New System.Windows.Forms.Label   
101. Me.ReplaceBox = New System.Windows.Forms.TextBox   
102. Me.FindBtn = New System.Windows.Forms.Button   
103. Me.FindInFilesBtn = New System.Windows.Forms.Button   
104. Me.ReplaceBtn = New System.Windows.Forms.Button   
105. Me.ReplaceInFilesBtn = New System.Windows.Forms.Button   
106. Me.CancelBtn = New System.Windows.Forms.Button   
107. Me.SuspendLayout()   
108. ‘   
109.         ‘FindBox   
110.         ‘   
111.         Me.FindBox.Location = New System.Drawing.Point(16, 24)   
112. Me.FindBox.Multiline = True   
113. Me.FindBox.Name = “FindBox”   
114. Me.FindBox.ScrollBars = System.Windows.Forms.ScrollBars.Both   
115. Me.FindBox.Size = New System.Drawing.Size(400, 80)   
116. Me.FindBox.TabIndex = 0   
117. Me.FindBox.Text = “”   
118. ‘   
119.         ‘Label1   
120.         ‘   
121.         Me.Label1.Location = New System.Drawing.Point(16, 8)   
122. Me.Label1.Name = “Label1″   
123. Me.Label1.Size = New System.Drawing.Size(160, 16)   
124. Me.Label1.TabIndex = 2   
125. Me.Label1.Text = “查找内容:”   
126. ‘   
127.         ‘Label2   
128.         ‘   
129.         Me.Label2.Location = New System.Drawing.Point(16, 112)   
130. Me.Label2.Name = “Label2″   
131. Me.Label2.Size = New System.Drawing.Size(160, 16)   
132. Me.Label2.TabIndex = 4   
133. Me.Label2.Text = “替换为:”   
134. ‘   
135.         ‘ReplaceBox   
136.         ‘   
137.         Me.ReplaceBox.Location = New System.Drawing.Point(16, 128)   
138. Me.ReplaceBox.Multiline = True   
139. Me.ReplaceBox.Name = “ReplaceBox”   
140. Me.ReplaceBox.ScrollBars = System.Windows.Forms.ScrollBars.Both   
141. Me.ReplaceBox.Size = New System.Drawing.Size(400, 80)   
142. Me.ReplaceBox.TabIndex = 3   
143. Me.ReplaceBox.Text = “”   
144. ‘   
145.         ‘FindBtn   
146.         ‘   
147.         Me.FindBtn.Location = New System.Drawing.Point(16, 232)   
148. Me.FindBtn.Name = “FindBtn”   
149. Me.FindBtn.Size = New System.Drawing.Size(80, 24)   
150. Me.FindBtn.TabIndex = 5   
151. Me.FindBtn.Text = “查找”   
152. ‘   
153.         ‘FindInFilesBtn   
154.         ‘   
155.         Me.FindInFilesBtn.Location = New System.Drawing.Point(104, 232)   
156. Me.FindInFilesBtn.Name = “FindInFilesBtn”   
157. Me.FindInFilesBtn.Size = New System.Drawing.Size(96, 24)   
158. Me.FindInFilesBtn.TabIndex = 6   
159. Me.FindInFilesBtn.Text = “在文件中查找”   
160. ‘   
161.         ‘ReplaceBtn   
162.         ‘   
163.         Me.ReplaceBtn.Location = New System.Drawing.Point(216, 232)   
164. Me.ReplaceBtn.Name = “ReplaceBtn”   
165. Me.ReplaceBtn.Size = New System.Drawing.Size(80, 24)   
166. Me.ReplaceBtn.TabIndex = 7   
167. Me.ReplaceBtn.Text = “替换”   
168. ‘   
169.         ‘ReplaceInFilesBtn   
170.         ‘   
171.         Me.ReplaceInFilesBtn.Location = New System.Drawing.Point(304, 232)   
172. Me.ReplaceInFilesBtn.Name = “ReplaceInFilesBtn”   
173. Me.ReplaceInFilesBtn.Size = New System.Drawing.Size(112, 24)   
174. Me.ReplaceInFilesBtn.TabIndex = 8   
175. Me.ReplaceInFilesBtn.Text = “在文件中替换”   
176. ‘   
177.         ‘CancelBtn   
178.         ‘   
179.         Me.CancelBtn.DialogResult = System.Windows.Forms.DialogResult.Cancel   
180. Me.CancelBtn.Location = New System.Drawing.Point(168, 272)   
181. Me.CancelBtn.Name = “CancelBtn”   
182. Me.CancelBtn.Size = New System.Drawing.Size(80, 24)   
183. Me.CancelBtn.TabIndex = 9   
184. Me.CancelBtn.Text = “取消”   
185. ‘   
186.         ‘MultilineSearchForm   
187.         ‘   
188.         Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)   
189. Me.CancelButton = Me.CancelBtn   
190. Me.ClientSize = New System.Drawing.Size(432, 310)   
191. Me.Controls.Add(Me.CancelBtn)   
192. Me.Controls.Add(Me.ReplaceInFilesBtn)   
193. Me.Controls.Add(Me.ReplaceBtn)   
194. Me.Controls.Add(Me.FindInFilesBtn)   
195. Me.Controls.Add(Me.FindBtn)   
196. Me.Controls.Add(Me.Label2)   
197. Me.Controls.Add(Me.ReplaceBox)   
198. Me.Controls.Add(Me.Label1)   
199. Me.Controls.Add(Me.FindBox)   
200. Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.SizableToolWindow   
201. Me.Name = “MultilineSearchForm”   
202. Me.Text = “多行查找与替换 - www.wuleba.com”   
203. Me.ResumeLayout(False)   
204. End Sub  
205. #End Region  
206. #Region “Properties”   
207. Private m_result As FindReplaceKind = FindReplaceKind.none   
208. ”’<summary>Gets result button from this dialog.</summary>   
209.     ”’<value>The value specifying which button was pressed.</value>   
210.     Public ReadOnly Property result() As FindReplaceKind   
211. Get   
212. Return m_result   
213. End Get   
214. End Property   
215. Private m_findText As String   
216. ”’<summary>Gets escaped multiline text to be searched.</summary>   
217.     ”’<value></value>   
218.     Public ReadOnly Property findText() As String   
219. Get   
220. Return m_findText   
221. End Get   
222. End Property   
223. Private m_replaceText As String   
224. ”’<summary>Gets escaped multiline replace text.</summary>   
225.     ”’<value></value>   
226.     Public ReadOnly Property replaceText() As String   
227. Get   
228. Return m_replaceText   
229. End Get   
230. End Property  
231. #End Region   
232. ”’<summary>Transforms the text to regular expression syntax.</summary>   
233.     ”’<param name=”original”>Original text.</param>   
234.     ”’<returns>Text with escaped regex characters.</returns>   
235.     Private Function escapeRegEx(ByVal original As String) As String   
236. Dim specialChars() As Char = “\.*+^___FCKpd___0gt;<[]|{}:@#()~”.ToCharArray   
237. Dim c As Char   
238. For Each c In specialChars   
239. original = original.Replace(c.ToString, “\” & c.ToString)   
240.         Next   
241. original = original.Replace(vbCrLf, “\n”)   
242. Return original   
243. End Function   
244. Private Sub MultilineSearchForm_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load   
245. Try   
246. Me.Activate()   
247. Catch ex As System.Exception   
248. End Try   
249. End Sub   
250. Private Sub CancelBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CancelBtn.Click   
251. Try   
252. m_result = FindReplaceKind.none   
253. Me.Close()   
254. Catch ex As System.Exception   
255. End Try   
256. End Sub   
257. Private Sub FindBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FindBtn.Click   
258. Try   
259. m_findText = escapeRegEx(Me.FindBox.Text)   
260. m_replaceText = escapeRegEx(Me.ReplaceBox.Text)   
261. m_result = FindReplaceKind.find   
262. Me.Close()   
263. Catch ex As System.Exception   
264. End Try   
265. End Sub   
266. Private Sub FindInFilesBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FindInFilesBtn.Click   
267. Try   
268. m_findText = escapeRegEx(Me.FindBox.Text)   
269. m_replaceText = escapeRegEx(Me.ReplaceBox.Text)   
270. m_result = FindReplaceKind.findInFiles   
271. Me.Close()   
272. Catch ex As System.Exception   
273. End Try   
274. End Sub   
275. Private Sub ReplaceBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ReplaceBtn.Click   
276. Try   
277. m_findText = escapeRegEx(Me.FindBox.Text)   
278. m_replaceText = escapeRegEx(Me.ReplaceBox.Text)   
279. m_result = FindReplaceKind.replace   
280. Me.Close()   
281. Catch ex As System.Exception   
282. End Try   
283. End Sub   
284. Private Sub ReplaceInFilesBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ReplaceInFilesBtn.Click   
285. Try   
286. m_findText = escapeRegEx(Me.FindBox.Text)   
287. m_replaceText = escapeRegEx(Me.ReplaceBox.Text)   
288. m_result = FindReplaceKind.replaceInFiles   
289. Me.Close()   
290. Catch ex As System.Exception   
291. End Try   
292. End Sub   
293. End Class  

5. 将 System.Drawing.dll 加入 宏工程 的引用

6. 关闭宏IDE

*** 作完上面的6个步骤之后，你的VS2012就多了个多行搜索和替换文本的工具，效果图就是最上面的那个图。为了更方便大家学习，小牛打包了上面的这个vb代码，需要的，可以自己下载。

吾乐吧软件站补充说明：

小编在使用过程中发现，本文提供的这个方法虽然可以实现多行查找、多长替换文本，但是多行替换的时候，会出现一个问题：你不能把多行文本替换为多行文本（除非你手动写正则）。为了解决这个问题，小编专门想出了另一个更加有效的方法，请大家移步查看《给 Visual Studio 2010 增加多行查找与多行替换功能（VS跨行查找替换：下篇）》