ametrin
Goto Top

VBS - Klassen mit variablen Namen

N-Abend

Folgende Anfängerfrage.

Habe eine Klasse mit meheren Variablen in VBS definiert.

Möchte nun aus einem CSV Datei mehrere beliebig viele "Datnesätze" einlesen. Mein Problem ist das ich den Name des nächten Objekts nicht variabel machen kann.
Hat jemand ne Ahnung ob das in VBS überhaupt möglich ist?

Zur visuellen Hilfe ein Codeschnipsel:
class Einheit
Public Typ
Public Nummer
Public Raum
end class

for i = 1 to 2
set a1 = new Einheit <--------------------- Das Objekt a1 sollte im 2ten Schleifendurchlauf a2 heißen

a1.Typ = "Router1" |
a1.Nummer = "CNU003401" | Der Teil wird später duch das einlesen des CSV ersetzt
a1.Raum= A3 |

next

wscript.echo a1.Typ
wscript.echo a2.Typ <------------------------ Diese Zeile soll nur verdeutlichen was ich will


mfg Ametrin

Content-Key: 125984

Url: https://administrator.de/contentid/125984

Printed on: April 20, 2024 at 03:04 o'clock

Member: bastla
bastla Sep 28, 2009 at 20:00:48 (UTC)
Goto Top
Hallo Ametrin!

Was Du willst ist vermutlich etwas in der Art:
Class Einheit
    Public Typ
    Public Nummer
    Public Raum
End Class

Dim A()
For i = 0 to 1
    Redim Preserve A(i)
    Set A(i) = New Einheit
    A(i).Typ = "Router"  & i 'Lfd Nr als Demo  
    A(i).Nummer = "CNU003401"  
    A(i).Raum = "A3"  
Next
WScript.Echo A(0).Typ, A(1).Typ
Grüße
bastla

[Edit] Array-Variable auf "A" geändert, um besser dem angegebenen Beispiel zu entsprechen ("a" wäre natürlich noch genauer gewesen face-wink) [/Edit]
Member: Ametrin
Ametrin Sep 28, 2009 at 20:41:09 (UTC)
Goto Top
Perfekt genau das habe ich gesucht
Ich danke Ihnen für die rasche Antwort