7
Objekte im Wörterbuch auslagern
Guten Morgen,
Bisher habe ich meine Daten im Wörterbuch (Dictionary) als Objekte eingetragen:
Da aber die Objektliste mit der Zeit immer länger wird und ich nicht jedesmal die Script-Datei umändern möchte, würde ich gern die Objekte "auslagern", z.B. als eine CSV-Datei mit Trennzeichen 'Komma'. Geht das irgendwie?
Morgendliche Grüße
G:H
Bisher habe ich meine Daten im Wörterbuch (Dictionary) als Objekte eingetragen:
set oDic = CreateObject("Scripting.Dictionary")
' keine Objekte doppelt !
oDic.add "Amsterdam", "KXB9"
oDic.add "Andorra", "F3MA"
..
oDic.add "Zürich", "EJ5A"
Wert=Inputbox("Bitte die Stadt eingeben")
Msgbox Wert & " trägt den Code " & oDic(Wert) Morgendliche Grüße
G:H
Auf Facebook teilen
Auf Twitter teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 33825820132
Url: https://administrator.de/contentid/33825820132
Ausgedruckt am: 26.11.2024 um 10:11 Uhr
7 Kommentare
Neuester Kommentar
Judde Sonndaach Morsche.
Sid.
Geht das irgendwie?
Kloar ...set oDic = CreateObject("Scripting.Dictionary")
set fso = CreateObject("Scripting.FileSystemObject")
' Zeilen der CSV Datei in Array einlesen
lines = Split(fso.OpenTextfile("d:\datei.csv",1).ReadAll(), vbNewline)
' Zeilen durchlaufen
for each line in lines
if line <> "" then
' Zeile mit Komma in Array trennen
parts = Split(Replace(line,"""",""),",",-1,1)
' und zum dictionary hinzufügen
oDic.add Trim(parts(0)), Trim(parts(1))
End if
Next
' Ende einlesen ...
Wert=Inputbox("Bitte die Stadt eingeben")
Msgbox Wert & " trägt den Code " & oDic(Wert) 
2
Hi Si,
geht leider nicht. Zeile 9 bringt "ungültiges Argument"
geht leider nicht. Zeile 9 bringt "ungültiges Argument"
Kleiner Tippfehler, ist korrigiert.
Ins Manual schauen darfst du übrigens trotz copy n paste auch selbst tun, dann hättest du den Fehler auch selbst bemerkt 😉.
Hallo,
Danke, macht was es soll.
Du magst ja Recht haben, aber ich bin nicht so oft hier unterwegs. Wo finde ich denn so ein (Gratis-)Manual für VBS?
Danke, macht was es soll.
Du magst ja Recht haben, aber ich bin nicht so oft hier unterwegs. Wo finde ich denn so ein (Gratis-)Manual für VBS?
VBA und VBS-Unterschiede gibt es schon: Lesen bei Docplayer,
z.B. kennt VBS keine Deklaration von Variablen mit einem bestimmten Datentyp.
Danke und einen schön' Tach. G:H
z.B. kennt VBS keine Deklaration von Variablen mit einem bestimmten Datentyp.
Danke und einen schön' Tach. G:H
Zitat von @Gurkenhobel:
VBA und VBS-Unterschiede gibt es schon: Lesen bei Docplayer,
z.B. kennt VBS keine Deklaration von Variablen mit einem bestimmten Datentyp.
VBA und VBS-Unterschiede gibt es schon: Lesen bei Docplayer,
z.B. kennt VBS keine Deklaration von Variablen mit einem bestimmten Datentyp.
Schon klar, gibt ja auch Äppel und Kartoffeln, du schreibst im Beitrag aber nirgendwo etwas von VBS und da der Beitrag in Kategorie VB for Applications gepostet ist, ging ich eben davon aus und habe es so geschrieben, dass es sowohl als auch funktioniert ...
Danke und einen schön' Tach. G:H
Dito. 🖖
