|
Hello again,
in einer Textdatei stehen z.B. folgende Zeilen:
Eintrag CB1 A, Eintrag CB1 B, Eintrag CB1 C
Eintrag CB2 A, Eintrag CB2 B, Eintrag CB2 C
Eintrag CB3 A, Eintrag CB3 B, Eintrag CB3 C
Diese Einträge sollen auf drei Comboboxen verteilt werden, also jedes Element der ersten Zeile als Auswahl in der ersten Combobox, jedes Element der zweiten Zeile als Auswahl in der zweiten Combobox, usw. Das Komma in der Textdatei soll sozusagen als Trennzeichen (bzw. Zeilenumbruch) in der Combobox dienen. Mit der folgenden Schleife habe ich schon mal die komplette Zeile in der jeweiligen Combobox. Ich habe es schon mit Split versucht, aber uch bekomme es nicht hin. Außerdem ist die Frage, ob mein Ansatz für mein Vorhaben eh so gut ist.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 | ...
x = 0
Open Datei For Input As 1
ReDim txtDatei_Arr(0)
While Not EOF(1)
Line Input #1, strVariable
x = x + 1: ReDim Preserve txtDatei_Arr(x)
txtDatei_Arr(x) = strVariable
Wend
Me.CB_Kom_Ressourcen.AddItem txtDatei_Arr(1)
Me.CB_Kom_Ziele.AddItem txtDatei_Arr(2)
Me.CB_Kom_Massnahmen.AddItem txtDatei_Arr(3)
Close 1
|
Ich würde mich freuen, wenn ihr mir weiterhelfen könntet. Ich bin Anfänger, was VB angeht und stehe in vielen Dingen echt noch auf dem Schlauch.
Vielen Dank, tox
|