寻找正则表达式查找并替换Visual Studio插件

要查找和替换当前文档,可以使用这个简单的脚本-ALT+F11启动宏编辑器,然后离开。将此子模块粘贴到新模块中:

Sub RegexReplace()
    Dim regex As String = InputBox("Enter regex for text to find")
    Dim replace As String = InputBox("Enter replacement pattern")

    Dim selection As EnvDTE.TextSelection = DTE.ActiveDocument.Selection
    Dim editPoint As EnvDTE.EditPoint

    selection.StartOfDocument()
    selection.EndOfDocument(True)

    DTE.UndoContext.Open("Custom regex replace")
    Try
        Dim content As String = selection.Text
        Dim result = System.Text.RegularExpressions.Regex.Replace(content, regex, replace)
        selection.Delete()
        selection.Collapse()
        Dim ed As EditPoint = selection.TopPoint.CreateEditPoint()
        ed.Insert(result)
    Catch ex As Exception

    Finally
        DTE.UndoContext.Close()
        DTE.StatusBar.Text = "Regex Find/Replace complete"
    End Try

End Sub

显然,如果您想要现有的“查找/替换”对话框提供的所有功能,那么您必须做更多的工作;可能会因此而推迟。

只是一个想法;)

此版本适用于Visual Studio 2008,并使用.Net正则表达式语法: .NET Regular Expressions Find and Replace Add-In for Visual Studio 2008 .

The Visual Studio IDE and Regular Expressions

有免费的 add-in available