ini in Combobox

[crashkid-design]

Hallo zusammen

Kann mir jemand sagen wie ich ne ganze INI-Datei in einer Combobox einlesen kann?

Einzelne Werte kann ich hinzufügen und in einer Textbox ausgeben, aber beim Programmstart sollen halt alle Daten der ini in die Combobox eingetragen werden.

danke für eure Hilfe -

mfg crashkid

 

[NRFi]

Wo ist jetzt genau das problem?

du holst dir mit der getpriv...string die strings und addest die in die combobox.
wo ist das problem jetzt?

 

[Rift]

also du willst ne ini datei einlesen in ne combobox?
Ich sag nur LineInput... ;-]

 

[crashkid-design]

das Problem ist das ich ja nicht weiss welche Einträge der User alle später in die ini macht -
ist ne Materialliste und jedes Material hat halt einen Wert
Jetzt muss ich es hin bekommen das alle Einträge in die combo geladen werden.
also kann ich nicht jeden string einlesen -
versteht ihr mein problem?

danke euch

mfg crashkid

 

[crashkid-design]

Kann mir niemand dazu was sagen oder ist es einfach nicht möglich?
Hat jemand ne andere Idee die nicht so kompliziert ist (bin Newbe )

danke
mfg crashkid

 

[Shakie]

Eigentlich ist das total einfach. Man lädt einfach solange mit der von NRFi genannten API GetPrivateProfileString Werte in die Combobox, bis die Funktion ein leeres Ergebnis liefert. Dann weiß man, dass man das Ende der Datei erreicht hat. Wenn du mal einen Auszug aus der Ini-Datei postest, dann kann ich dir schnell ein Beispiel-Code machen.

 

[crashkid-design]

Ist ja nur eine sehr kleine ini wenn der Benutzer noch nich viel dazu getan hat :

[Materialien]
hans=21
Eisen=67
Aluminium=211
Name=45

danke

mfg crashkid

 

[Shakie]

Da hilft dir zugegebenermaßen die API wenig. Probier es mal hiermit:

Private Sub Form_Load()
 
Dim intDateinummer As Integer
Dim strZeile As String
intDateinummer = FreeFile
Open "D:\test.ini" For Input As intDateinummer
 
'Solange zeilenweilse einlesen, bis das Ende der Datei erreicht würde:
While Not EOF(intDateinummer)
'Zeile einlesen:
Line Input #intDateinummer, strZeile
'Zeile auswerten:
If VBA.Left$(strZeile, 1) <> "[" Then
'-->neuen Wert zu ComboBox hinzufügen:
Combo1.AddItem strZeile
End If
Wend

 

[crashkid-design]

Geil - danke , es geht!
Hast du vielleicht jetzt noch einen Tipp wie ich es machen kann, das man bei anklicken einer Zeile nur die Zahl hinter dem = Zeichen in eine Varialbel bzw Textfeld lädt?

hoffe ich habe es verständlich erklärt.

danke

mfg crashkid