摘要:
'功能:使用正则表示式对字符串进行替换复制内容到剪贴板程序代码Function RegReplace(Str, PatternStr, RepStr)Dim NewStr, regExNewStr = StrIf IsNull(NewStr) ThenRegReplace = ""Exit FunctionEnd IfSet regEx = New RegExpregEx.IgnoreCase = TrueregEx.Global = TrueregEx.Pattern = PatternStrNewStr = regEx.Replace(NewStr, RepSt 阅读全文
posted @ 2011-12-23 17:23
辣鸡
阅读(229)
评论(0)
推荐(0)

浙公网安备 33010602011771号