^(Public Const)[\w]+(As String)$你先试试这个   :)如果还有问题 我再改
my QQ : 146646

解决方案 »

  1.   

    多谢changbird!我在vs.net的宏编辑器里用你的pattern写如下语句,好像不起作用,本来还想替换的:
        Sub ConstantConverter()
            CType(DTE.ActiveWindow.Selection, TextSelection).StartOfDocument(False)
            DTE.Find.FindWhat = "^(Public Const)[\w]+(As String)$"
            DTE.Find.PatternSyntax = vsFindPatternSyntax.vsFindPatternSyntaxRegExpr
            'DTE.Find.ReplaceWith = "Public Const c_str"
            'DTE.Find.Action = vsFindAction.vsFindActionReplaceAll
            DTE.Find.Action = vsFindAction.vsFindActionFind
            DTE.Find.Execute()
        End Sub会不会是不同的语法?
      

  2.   

    Regex ex=new Regex(@"\b(?<=Public Const)[\w\s]*(?=As String)\b");
    用这个可以取出你所要的字符串,我试过
      

  3.   

    同意楼上的  呵呵关键是用Regex ex=new Regex("你的正则表达式");  不过语法是C#的,在VB.net里面稍微改一下就可以用了。