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

解决方案 »

  1.   

    直接Reference:Microsoft VBScript Regular Expressions就可以了
    Dim regEx As New RegExp
    regEx.Pattern = "'{2,}"
    regEx.IgnoreCase = True
    regEx.Global = True
    tmpValue = regEx.Replace(tmpValue, "'")
      

  2.   

    '补充一句我忘说了
    '引用 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