使用 Int32 查找 Ctypes 的正则表达式

Question

（嘿大家，

我正在寻找一些正则表达式帮助...

我正在尝试找到所有 CType(expression,Int32) 并将它们替换为 CInt(expression)

然而，这被证明是相当困难的，考虑到可能存在 , Int32) 有谁知道如何最好地执行此操作吗？

这就是我现在所拥有的：

Dim str As String = "CType((original.Width * CType((targetSize / CType(original.Height, Single)), Single)), Int32)"
Dim exp As New Regex("CType\((.+), Int32\)")
str = exp.Replace(str, "CInt($1)")

但这将匹配整个字符串并替换它。

在正则表达式匹配中嵌套 Ctype(表达式 递归函数找到最外层的匹配，然后向内工作，但这仍然存在诸如

CType(replaceChars(I), Int32)), Chr(CType(replacementChars(I), Int32)

任何提示输入输出之类的问题：编辑：一直在研究它，并有一个我喜欢

的

returnString.Replace(Chr(CType(replaceChars(I), Int32)), Chr(CType(replacementChars(I), Int32)))

递归

 returnString.Replace(Chr(CInt(replaceChars(I))),Chr(CInt(replacementChars(I))))

函数

。仍在解决问题。递归+正则表达式有点痛

 Private Function FindReplaceCInts(ByVal strAs As String) As String
    System.Console.WriteLine(String.Format("Testing : {0}", strAs))
    Dim exp As New Regex("CType\((.+), Int32\)")
    If exp.Match(strAs).Success Then

        For Each match As Match In exp.Matches(strAs)

            If exp.Match(match.Value.Substring(2)).Success Then
                Dim replaceT As String = match.Value.Substring(2)
                Dim Witht As String = FindReplaceCInts(match.Value.Substring(2))
                System.Console.WriteLine(strAs.IndexOf(replaceT))
                strAs.Replace(replaceT, Witht)
            End If

        Next

        strAs = exp.Replace(strAs, "CInt($1)")
    End If

    Return strAs
End Function

。

Answer 1

尝试使用这个 (?!CType\(.+, )Int32 正则表达式而不是你的
您需要使用消极的前瞻来完成您的任务。

在此网站检查正则表达式

Answer 2

我已经在 VS 2008 中尝试过此操作（没有 VS 2010 的副本来尝试），使用 Find &替换对话框：

正则表达式：CType\({.+}, Int32\)

替换为：CInt(\1)

它不会一次性修复嵌套情况，但您应该能够继续使用该模式进行搜索并替换，直到找不到其他匹配项。

顺便说一句：该对话框还提供了一个指向此帮助页面的链接，解释使用 VS 风格的正则表达式的字符 http://msdn.microsoft.com/en-us/library/aa293063(VS.71).aspx

Answer 3

大家对此有何看法？

我认为它对于我迄今为止测试过的各种情况都做得很好......

Private Function FindReplaceCInts(ByVal strAs As String) As String
    Dim exp As New Regex("CType\((.+), Int32\)")
    If exp.Match(strAs).Success Then

        For Each match As Match In exp.Matches(strAs)

            If exp.Match(match.Value.Substring(2)).Success Then
                Dim replaceT As String = match.Value.Substring(2)
                Dim Witht As String = FindReplaceCInts(match.Value.Substring(2))
                strAs = strAs.Replace(replaceT, Witht)
            End If

        Next

        strAs = exp.Replace(strAs, "CInt($1)")
    End If

    Return strAs
End Function