Option Explicit
Private Sub Command1_Click()
MsgBox (RegExpTest("is.", "IS1 is2 IS3 is4"))
End Sub
Function RegExpTest(PatternX As String, StringX As String) As String
Dim Matches As VBScript_RegExp_55.MatchCollection ' 建立变量。
Dim regEx As New VBScript_RegExp_55.RegExp ' 建立正则 表达式。
regEx.Pattern = PatternX ' 设置模式。
regEx.IgnoreCase = True ' 设置是否区分字符大小写。
regEx.Global = True ' 设置全局可用性。
Set Matches = regEx.Execute(StringX) ' 执行搜索。
'Dim Match As VBScript_RegExp_55.Match
'For Each Match In Matches ' 遍历匹配集合。
' RegExpTest = RegExpTest & "Match found at position "
' RegExpTest = RegExpTest & Match.FirstIndex & ". Match Value is '"
' RegExpTest = RegExpTest & Match.Value & "'." & vbCrLf
'Next
Dim i As Integer
For i = 0 To Matches.Count - 1 ' 遍历匹配集合。
RegExpTest = RegExpTest & "Match found at position " & Matches.Item(i).FirstIndex & ". Match Value is '" & Matches.Item(i).Value & "'." & vbCrLf
Next
End Function
Private Sub Command1_Click()
MsgBox (RegExpTest("is.", "IS1 is2 IS3 is4"))
End Sub
Function RegExpTest(PatternX As String, StringX As String) As String
Dim Matches As VBScript_RegExp_55.MatchCollection ' 建立变量。
Dim regEx As New VBScript_RegExp_55.RegExp ' 建立正则 表达式。
regEx.Pattern = PatternX ' 设置模式。
regEx.IgnoreCase = True ' 设置是否区分字符大小写。
regEx.Global = True ' 设置全局可用性。
Set Matches = regEx.Execute(StringX) ' 执行搜索。
'Dim Match As VBScript_RegExp_55.Match
'For Each Match In Matches ' 遍历匹配集合。
' RegExpTest = RegExpTest & "Match found at position "
' RegExpTest = RegExpTest & Match.FirstIndex & ". Match Value is '"
' RegExpTest = RegExpTest & Match.Value & "'." & vbCrLf
'Next
Dim i As Integer
For i = 0 To Matches.Count - 1 ' 遍历匹配集合。
RegExpTest = RegExpTest & "Match found at position " & Matches.Item(i).FirstIndex & ". Match Value is '" & Matches.Item(i).Value & "'." & vbCrLf
Next
End Function
Dim regEx As New RegExp
regEx.Pattern = "'{2,}"
regEx.IgnoreCase = True
regEx.Global = True
tmpValue = regEx.Replace(tmpValue, "'")
'引用 Microsoft VBScript Regular Expressions 5.5 或 Microsoft VBScript Regular Expressions 1.0
Option Explicit
Private Sub Command1_Click()
MsgBox (RegExpTest("is.", "IS1 is2 IS3 is4"))
End Sub
Function RegExpTest(PatternX As String, StringX As String) As String
Dim Matches As VBScript_RegExp_55.MatchCollection ' 建立变量。
Dim regEx As New VBScript_RegExp_55.RegExp ' 建立正则 表达式。
regEx.Pattern = PatternX ' 设置模式。
regEx.IgnoreCase = True ' 设置是否区分字符大小写。
regEx.Global = True ' 设置全局可用性。
Set Matches = regEx.Execute(StringX) ' 执行搜索。
'Dim Match As VBScript_RegExp_55.Match
'For Each Match In Matches ' 遍历匹配集合。
' RegExpTest = RegExpTest & "Match found at position "
' RegExpTest = RegExpTest & Match.FirstIndex & ". Match Value is '"
' RegExpTest = RegExpTest & Match.Value & "'." & vbCrLf
'Next
Dim i As Integer
For i = 0 To Matches.Count - 1 ' 遍历匹配集合。
RegExpTest = RegExpTest & "Match found at position " & Matches.Item(i).FirstIndex & ". Match Value is '" & Matches.Item(i).Value & "'." & vbCrLf
Next
End Function