newasp中main类(69)

                If bRepeat = False Then
                    n = n + 1
                    ReDim Preserve ArrayFilter(n)
                    ArrayFilter(n) = Match
                End If
            End If
        Next

        Set s = Nothing
        Set re = Nothing

        If CBool(Condition) Then
            strContent = Join(ArrayFilter, "|||")
        Else
            strContent = Join(ArrayFilter, "|||")
            strContent = Replace(strContent, start, "")
            strContent = Replace(strContent, last, "")
        End If

        CutMatchContent = Replace(strContent, "|||", vbNullString, 1, 1)
    End Function

    Function CutFixContent(ByVal str, ByVal start, ByVal last, ByVal n)
        Dim strTemp
        On Error Resume Next
        If InStr(str, start) > 0 Then
            Select Case n
            Case 0  '左右都截取（都取前面）（去处关键字）
                strTemp = Right(str, Len(str) - InStr(str, start) - Len(start) + 1)
                strTemp = Left(strTemp, InStr(strTemp, last) - 1)
            Case Else  '左右都截取（都取前面）（保留关键字）