□技術メモ - VB6 StringList処理

※管理人の個人的な技術メモです。このページの内容の実行結果について
管理人はいかなる責任も負いかねますのでご自身の責任でお試しください。

-----------------------------------------------------------

○VB6におけるStringList処理

CStrList.cls
--------
Option Explicit

'==============================
'--> StrListメソッド一覧
'Clear
'Size
'AddItem
'GetItem
'AddList
'<-- ここまで
'==============================

'----メンバ変数
Private saData() As String

'----コンストラクタ
Private Sub Class_Initialize()
    Call Clear
End Sub

'==================================
'内部関数
'==================================
'機能　：データの有無を返す
'戻り値：1以上ならデータあり
Private Function IsExistList() As Long
On Error GoTo ErrProc
    ''Dim iUbond As Long
    IsExistList = UBound(saData) + 1
    Exit Function
ErrProc:
    IsExistList = 0
End Function

'==================================
'公開関数
'==================================
Public Function Clear()
    Erase saData
End Function

Public Function Size()
    Size = IsExistList
End Function

Public Function AddItem(psItem As String)
    Dim lPos As Long
    lPos = size
    ReDim Preserve saData(lPos)
    saData(lPos) = psItem
End Function

Public Function GetItem(lPos As Long) As String
    GetItem = ""
    If 0 <= lPos And lPos < size Then
        GetItem = saData(lPos)
    End If
End Function

'List追加
Public Function AddList(paItems As CStrList)
    Dim lPos As Long
    Dim lSize As Long
    lSize = paItems.size
    For lPos = 0 To lSize - 1
        Call AddItem(paItems.GetItem(lPos))
    Next lPos
End Function
--------