ReplaceWith 条件 DTE

Question

我想匹配术语“TextCtrls”和“LabelCtrls”。当我找到 "TextCtrls" 时，我想替换为“Txt”，当我找到 "LabelControls" 时，我想替换为“Lbl[=21” =]”。 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))

输出：

ReplaceWith 条件 DTE

ReplaceWith Conditional DTE

regex

vb.net

if-statement

envdte

replacewith

解决方案 1：重复使用输入字符串中的文本

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

ReplaceWith 条件 DTE

ReplaceWith Conditional DTE

regex

vb.net

if-statement

envdte

replacewith

解决方案 1：重复使用输入字符串中的文本

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

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