Hot News:

Unser Angebot:

  Foren auf CAD.de (alle Foren)
  Inventor VBA
  *.csv mit zwei Reihen und variablen Zeilen als dictonary einlesen

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
Autor Thema:   *.csv mit zwei Reihen und variablen Zeilen als dictonary einlesen (143 mal gelesen)
EIBe 3D
Mitglied
Dipl. - Ing. (FH)


Sehen Sie sich das Profil von EIBe 3D an!   Senden Sie eine Private Message an EIBe 3D  Schreiben Sie einen Gästebucheintrag für EIBe 3D

Beiträge: 70
Registriert: 24.01.2020

HP Z4 G4 Workstation
Xeon 3,6 32GB
Nvidia P2000
WIN10
SW2015 SP5.0
SW2017
*************
Inv2018 akt.SP

erstellt am: 01. Okt. 2020 11:51    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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

EIBe 3D
Mitglied
Dipl. - Ing. (FH)


Sehen Sie sich das Profil von EIBe 3D an!   Senden Sie eine Private Message an EIBe 3D  Schreiben Sie einen Gästebucheintrag für EIBe 3D

Beiträge: 70
Registriert: 24.01.2020

HP Z4 G4 Workstation
Xeon 3,6 32GB
Nvidia P2000
WIN10
SW2015 SP5.0
SW2017
*************
Inv2018 akt.SP

erstellt am: 01. Okt. 2020 13:24    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2020 CAD.de | Impressum | Datenschutz