Hallo,
folgendes Problem: Ich muss über 'zig Dokumente rattern um diese jeweils zu klassifizieren.
Da ich dafür ein dreidimensionales Array bräuchte, was mir vor allem beim einsortieren Probleme machen dürfte, habe ich an eine Liste gedacht. Diese Liste ist als Klasse definiert. Da hinein könnte ich alle benötigten Informationen packen.
Dim tmpList List As ExtractObject
Das Objekt der Liste:
Class ExtractObject
Private intCategory As Integer
...
Property Set Category As String
Me.intCategory = Category
End Property
End Class
Normalerweise würde man bei einem "einfachen" Datentyp "tmpList("XYZ") = 1" verwenden. Wie komme ich jedoch jetzt an das Objekt?
Viele Grüße,
Michael
Class ExtractObject
Private strCategory As String
Property Set Category As String
Me.strCategory = Category
End Property
Property Get Category As String
Category = Me.strCategory
End Property
End Class
Dim tmpList List As ExtractObject
Dim tmp As ExtractObject
Set tmp = New ExtractObject
If Not Iselement( tmpList( "XYZ" ) ) Then
Set tmpList( "XYZ" ) = tmp
End If
tmpList( "XYZ" ).Category = "Hallo Welt!"
Print tmpList( "XYZ" ).Category
Einfach das Objekt zuweisen und mit tmpList( "XYZ" ) wie mit dem Ausgangsobjekt arbeiten, welche die Liste ja auch zurückliefert.
Hope this could help.