clsmatchlists.cls

vb写的网络蜘蛛程序

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "clsMatchLists"
Attribute VB_Creatable = False
Attribute VB_Exposed = False
Option Explicit

Public Matches As New Collection

Public Sub AddMatch(AMatch As clsMatch)
    Matches.Add AMatch
    End Sub

Private Function Min(A As Integer, B As Integer) As Integer
    If A < B Then Min = A Else Min = B
    End Function

Private Function Max(A As Integer, B As Integer) As Integer
    If A > B Then Max = A Else Max = B
    End Function

Public Sub AddNewMatch(StartPos As Long, EndPos As Long)
    Dim Match As New clsMatch

    Match.StartingPosition = StartPos
    Match.EndingPosition = EndPos
    AddMatch Match
    
    End Sub

Public Sub AddSpread(A As clsMatch, B As clsMatch)
    AddNewMatch _
        Min(A.StartingPosition, B.StartingPosition), _
        Max(A.EndingPosition, B.EndingPosition)
    End Sub