regex - 替换为条件 DTE

Question

我想匹配术语“TextCtrls”和“LabelCtrls”。 当我找到“TextCtrls”时，我想替换为“Txt”，当我找到“LabelControls”时，我想替换为“Lbl”。 Online Demo

这可以通过 DTE.Find.ReplaceWith 实现吗？

DTE.Find.FindWhat = "Container\(""\w+""\)\.(?:TextCtrls|LabelCtrls)\(""(?<ControlName>\w+)""\).Text"

DTE.Find.ReplaceWith = "<psydocode:Txt|Lbl>${ControlName}.Text"

Answer 1

解决方案 1:重用输入字符串中存在的文本

由于您要替换的文本实际上存在于源文本中，因此您可以 (ab)？按以下方式在此处使用捕获组:

DTE.Find.FindWhat = "Container\(""\w+""\)\.(?:(?<f>T)e(?<s>xt)Ctrls|(?<f>L)a(?<s>b)e(?<t>l)Ctrls)\(""(?<ControlName>\w+)""\).Text"
DTE.Find.ReplaceWith = "${f}${s}${t}NameOfControl.Text"

请参阅.NET regex demo

组f、s和t填充了必要的文本位，并且只有在相应的替代项匹配时才具有文本。

解决方案 2:使用 MatchEvaluator 进行自定义替换逻辑

您可以使用MatchEvaluator检查匹配的组或组值是什么，然后实现您自己的替换逻辑:

Dim s As String = "Container(""Name1"").TextCtrls(""Name2"").Text" & vbCrLf & "Container(""Name1"").LabelCtrls(""Name2"").Text"
Dim pattern As String = "Container\(""\w+""\)\.(?<test>TextCtrls|LabelCtrls)\(""(?<ControlName>\w+)""\).Text"
Dim result = Regex.Replace(s, pattern, New MatchEvaluator(Function(m As Match)
        If m.Groups("test").Value = "TextCtrls" Then
            Return "TxtNameOfControl.Text"
        Else
            Return "LblNameOfControl.Text"
        End If
    End Function))

输出: