gurkenhobel
Oct 08, 2023
view1458
view7
0
Goto Top

Objekte im Wörterbuch auslagern

GermansolvedQuestionDevelopmentVB for Applications
Guten Morgen,
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)
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
comment-contentCommentShareShare
Share on Facebook Share on Twitter Share on Reddit Share on Linkedin

Content-Key: 33825820132

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

Printed on: April 27, 2024 at 18:04 o'clock

7 Comments
Latest comment
Goto Top
Mitglied: 7907292512
Solution 7907292512 Oct 08, 2023 updated at 06:26:47 (UTC)
Goto Top
Judde Sonndaach Morsche.
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)
Sid.
heart2
Member: Gurkenhobel
Gurkenhobel Oct 08, 2023 at 11:27:18 (UTC)
Goto Top
Hi Si,
geht leider nicht. Zeile 9 bringt "ungültiges Argument"
Mitglied: 7907292512
7907292512 Oct 08, 2023 updated at 11:53:19 (UTC)
Goto Top
Zitat von @Gurkenhobel:

Hi Si,
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 😉.
Member: Gurkenhobel
Gurkenhobel Oct 08, 2023 at 12:13:27 (UTC)
Goto Top
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?
Mitglied: 7907292512
7907292512 Oct 08, 2023 at 12:50:41 (UTC)
Goto Top
https://www.vba-tutorial.de/referenz/
https://www.google.com/search?q=VBA+Tutorial
Member: Gurkenhobel
Gurkenhobel Oct 08, 2023 at 13:57:37 (UTC)
Goto Top
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
Mitglied: 7907292512
7907292512 Oct 08, 2023 updated at 14:31:32 (UTC)
Goto Top
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.

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. 🖖
GermansolvedQuestionDevelopmentVB for Applications