Question

用正则表达式实现替换

一下代码的路径要怎么定义？或是在电脑里的使用方法，给一个实例，谢谢
'==========================
'用正则表达式实现替换
'==========================
function replaceregex(patern,str,tagstr)
dim regex,matches
set regex=new regExp
regex.pattern=patern
regex.IgnoreCase=true
regex.global=true
matches=regex.replace(str,tagstr)
replaceregex=matches
end function

Answer 1

网上的例子：

1. 启动 Microsoft Visual Basic 6.0。 
2. 在“文件”菜单上，单击“新建项目”。 
3. 在“新建项目”对话框中，单击“Standard Exe”，然后单击“确定”。 
默认情况下将创建 Form1。 
4. 在“项目”菜单上单击“引用”。 
5. 双击“Microsoft VBScript Regular Expressions 5.5”，然后单击“确定”。 
6. 在工具箱中，双击“命令按钮”。 
默认情况下，“Command1”将添加到窗体中。 
7. 双击“Command1”以打开代码窗口。 
8. 将下面的代码粘贴到“Command1_Click”事件处理程序：MsgBox(TestRegExp("is.", "IS1 is2 IS3 is4")) 
注意 这个示例中将对照“IS1 is2 IS3 is4”字符串检查 is. 模式。您可以将句点这一特殊字符（.）用作通配符，这样，搜索模式就能够多匹配并多显示一个字符。如果您在搜索模式中添加两个句点，您会看到两个其他字符。如果您不使用任何句点，您只会看到搜索模式。 
9. 将以下函数添加到“Command1_click”事件处理程序后：

Function TestRegExp(myPattern As String, myString As String)
 

   ''Create objects.
 

   Dim objRegExp As RegExp
 

   Dim objMatch As Match
 

   Dim colMatches   As MatchCollection
 

   Dim RetStr As String
 

   '' Create a regular expression object.
 

   Set objRegExp = New RegExp
 

   ''Set the pattern by using the Pattern property.
 

   objRegExp.Pattern = myPattern
 

   '' Set Case Insensitivity.
 

   objRegExp.IgnoreCase = True
 

   ''Set global applicability.
 

   objRegExp.Global = True
 

   ''Test whether the String can be compared.
 

   If (objRegExp.Test(myString) = True) Then
 

   ''Get the matches.
 

    Set colMatches = objRegExp.Execute(myString)   '' Execute search.
 

    For Each objMatch In colMatches   '' Iterate Matches collection.
 

      RetStr = RetStr & "Match found at position "
 

      RetStr = RetStr & objMatch.FirstIndex & ". Match Value is ''"
 

      RetStr = RetStr & objMatch.Value & "''." & vbCrLf
 

    Next
 

   Else
 

    RetStr = "String Matching Failed"
 

   End If
 

   TestRegExp = RetStr
 

End Function

10. 在“运行”菜单上，单击“启动”来运行该应用程序。 
11. 单击“Command1”。 
此时将出现一个消息框，该消息显示 IS1 is2 IS3 is4 字符串中的所有 is 匹配项。

 

参考：http://www.cnblogs.com/naniannayue/archive/2010/08/14/1799428.html

Answer 2

replaceregex(/1/g,"1212121","a")

追问

patern,str,tagstr

/1/g,"1212121","a"
都是什么含义

追答

正则

要查找替换的字符串

被替换成的字符串

你都不知道参数的含义，你就要写啊？？！好厉害哦

追问

我的意思是怎么体现在文件里使用？