---

Hallo zusammen,

nachdem ich mich schon gefühlt ewig damit rumschlage und für VBA nicht wirklich etwas sinnvolles fand, dachte ich es wäre vielleicht ganz gut mal nachzufragen.

Ich schreibe fortlaufend in einen csv Datei Dateiname und InternalName der Datei

Teil1.ipt; {123456789}
Bg1.iam; {987654321}

am Anfang eines Makros möchte ich nun die csv in ein dictonary einlesen, wobei der Dateiname der Key sein soll

Im weiteren Verlauf soll ein Key im dictonary gesucht werden und falls gefunden Key und Wert in einem zweiten dictonary zugefügt werden.

Ich scheitere jedoch schon daran die csv in das erste dictonary zu überführen.

Würde mich freuen wenn mir da jemand den richtigen Wink geben könnte.

Grüße

EIBe 3D

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Bin es nun nochmal anders angegangen und es war dann doch relativ einfach.

Code:

---

Public Sub CSV_zu_Dict()

Set fs = CreateObject("Scripting.FileSystemObject")

Dim sGUID_Tabelle As String
sGUID_Tabelle = "C:\Test.csv"

Dim GUID_Tab
Set GUID_Tab = fs.OpenTextFile(sGUID_Tabelle, 1)

Dim splitChar As String: splitChar = ";"

Dim csvData
Set csvData = CreateObject("Scripting.Dictionary")

Dim a As String
Dim b As String
Dim c As String

Do While Not GUID_Tab.AtEndOfStream
    a = GUID_Tab.Readline
    b = Left(a, InStr(1, a, splitChar, vbTextCompare) - 1)
    c = Right(a, Len(a) - Len(b) - 1)
    csvData.Add b, c
Loop

Dim d
Dim e

d = csvData.keys
e = csvData.items
For i = 0 To csvData.Count - 1
    Debug.Print d(i)
    Debug.Print e(i)
Next

End Sub

---

Sollte jemand ja noch eine Möglichkeit kennen, immer her damit.

Grüße

EIBe 3D

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP