HtmlParserVB6/clsNodeList.cls at master · aadnk/HtmlParserVB6 · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "clsNodeList"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Option Explicit

' HtmlParserVB6 - A XML/HTML DOM-parser for VB6
' Copyright (C) 2011  Kristian. S Stangeland
'
' This library is free software; you can redistribute it and/or
' modify it under the terms of the GNU Lesser General Public
' License as published by the Free Software Foundation; either
' version 2.1 of the License, or (at your option) any later version.
'
' This library is distributed in the hope that it will be useful,
' but WITHOUT ANY WARRANTY; without even the implied warranty of
' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
' Lesser General Public License for more details.
'
' You should have received a copy of the GNU Lesser General Public
' License along with this library; if not, write to the Free Software
' Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA

' How many enum operations that is currently under operation on this collection
Private m_nCurrentEnumOperations As Long

' All nodes
Private Nodes() As Long

' The main object
Private pMain As clsDocument

Friend Sub Initialize(lpNodes() As Long, HTMLMain As clsDocument)

    ' Do not care about errors
    On Error Resume Next

    ' Only try to initialize array if the source does exist
    If Not (Not lpNodes) Then

        ' Reallocate node array
        ReDim Nodes(LBound(lpNodes) To UBound(lpNodes))

        ' Copy data
        CopyMemory Nodes(LBound(Nodes)), lpNodes(LBound(lpNodes)), (UBound(lpNodes) - LBound(lpNodes) + 1) * LenB(Nodes(LBound(Nodes)))

    Else

        ' Just erase array
        Erase Nodes

    End If

    ' Then make a reference to the main object
    Set pMain = HTMLMain

End Sub

Public Function IsEqual(refNode As clsNodeList) As Boolean

    Dim Tell As Long

    ' First, check the lenght
    If Lenght = refNode.Lenght Then

        ' Then check indexes
        For Tell = 0 To Lenght

            If Nodes(Tell) <> refNode.Item(Tell).NodeIndex Then

                ' Nope, the node is not equal
                Exit Function

            End If

        Next

        ' Yes, it is equal
        IsEqual = True

    End If

End Function

Public Function Item(ByVal Index As Long) As clsElement
Attribute Item.VB_Description = "Returns the indexth item in the collection."

    If Index >= 0 And Index < Lenght Then
        ' Return the node
        Set Item = pMain.GetElementByIndex(Nodes(Index))
    End If

End Function

Public Property Get Lenght() As Long
Attribute Lenght.VB_Description = "The number of nodes in the list."

    ' Return the amout of nodes in this list
    Lenght = UBound(Nodes) + 1

End Property

Public Property Get NewEnum() As IEnumVARIANT
Attribute NewEnum.VB_UserMemId = -4
Attribute NewEnum.VB_MemberFlags = "40"

    Dim oEnumerator As clsEnumator

    ' Create a new enumator to use in the enumation-process
    Set oEnumerator = New clsEnumator

    ' Initialize enumator
    oEnumerator.InitializeEnumeration ObjPtr(Me), 0, 0

    ' Count this operation
    m_nCurrentEnumOperations = m_nCurrentEnumOperations + 1

    ' Return the enumerator object's IEnumVARIANTReDef interface
    Set NewEnum = oEnumerator

    ' Clean up
    Set oEnumerator = Nothing

End Property

Public Sub DecrementEnumCounter()
Attribute DecrementEnumCounter.VB_MemberFlags = "40"

    ' We're finish with one operation
    m_nCurrentEnumOperations = m_nCurrentEnumOperations - 1

End Sub

Private Sub Class_Initialize()

    ' Add this collection to the list
    LookupList.AddPointerToLookupList ObjPtr(Me)

End Sub

Private Sub Class_Terminate()

    ' Remove this collection from the list
    LookupList.RemovePointerFromLookupList ObjPtr(Me)

End Sub