Dim patToDate As String = "(TO_DATE\(')(.+?)(','yyyy.+?'\))"
Dim patCDate As String = "(CDate\(')(.+?)('\))"
sqlStr = Regex.Replace(sqlStr, patToDate, "$2", RegexOptions.IgnoreCase)
sqlStr = Regex.Replace(sqlStr, patCDate, "$2", RegexOptions.IgnoreCase)
以上使用了组捕获和组替换
Dim patCDate As String = "(CDate\(')(.+?)('\))"
sqlStr = Regex.Replace(sqlStr, patToDate, "$2", RegexOptions.IgnoreCase)
sqlStr = Regex.Replace(sqlStr, patCDate, "$2", RegexOptions.IgnoreCase)
以上使用了组捕获和组替换