43 lines
1013 B
OpenEdge ABL
43 lines
1013 B
OpenEdge ABL
VERSION 1.0 CLASS
|
|
BEGIN
|
|
MultiUse = -1 'True
|
|
END
|
|
Attribute VB_Name = "PC_ParsedData"
|
|
Attribute VB_GlobalNameSpace = False
|
|
Attribute VB_Creatable = False
|
|
Attribute VB_PredeclaredId = False
|
|
Attribute VB_Exposed = False
|
|
' ====== Ïîëîæåíèÿ íàáîðà ôðàãìåíòîâ â òåêñòå =======
|
|
' Shared module version: 20220614
|
|
' Tested in:
|
|
' Depends on: PC_Fragment, ParserDeclarations
|
|
' Required reference:
|
|
Option Explicit
|
|
|
|
Public data_ As New Collection
|
|
|
|
Public Property Get Count() As Long
|
|
Count = data_.Count
|
|
End Property
|
|
|
|
Public Property Get IsEmpty() As Boolean
|
|
IsEmpty = Count = 0
|
|
End Property
|
|
|
|
Public Property Get First() As PC_Fragment
|
|
If IsEmpty Then _
|
|
Exit Property
|
|
Set First = data_.Item(1)
|
|
End Property
|
|
|
|
Public Property Get Last() As PC_Fragment
|
|
If IsEmpty Then _
|
|
Exit Property
|
|
Set Last = data_.Item(data_.Count)
|
|
End Property
|
|
|
|
Public Function AddItem(nStart&, nEnd&, Optional nType& = 0)
|
|
Dim newItem As New PC_Fragment: Call newItem.Init(nStart, nEnd, nType)
|
|
Call data_.Add(newItem)
|
|
End Function
|