.ini-Datei mit VB6 auslesen

[speedfreak1988]

Hi!

Versuche gerade eine .ini-Datei mit VB6 auszulesen und die Dinger in eckigen Klammern in eine ComboBox zu schreiben.

Meine .ini:

[Ferrari]

Fahrer=Massa
Nummer=5
Nation=Brasilien
WM-Platz=3
Teamkollege=Räikkönen


[McLaren]

Fahrer=Hamilton
Nummer=2
Nation=Großbritannien
WM-Platz=1
Teamkollege=Alonso


[BMW]

Fahrer=Heidfeld
Nummer=9
Nation=Deutschland
WM-Platz=5
Teamkollege=Kubica


[Toro Rosso]

Fahrer=Vettel
Nummer=19
Nation=Deutschland
WM-Platz=17
Teamkollege=Liuzzi

Ich versuchs schon die ganze Zeit mit GetPrivateProfile aber ich kann immer nur z.B. den Fahrer ausgeben lassen, und nicht die Teams in eckigen Klammern.

THX für eure Tipps!

Hier übrigens mein bisheriger code:
Private Sub Form_Load()

Dim strStd As String * 255
Dim strReturn As String * 255
Dim strKeyname As String
Dim strProgVersion As String
Dim strAppName As String
Dim lngRetVal As Long
Dim strErg As String

strProgVersion = App.Path & "\test.ini"
' strAppName = "Ferrari"
' strKeyname = "Nation"
lngRetVal = GetPrivateProfileString(strAppName, strKeyname, strStd, strReturn, 255, strProgVersion)

strErg = Left$(strReturn, lngRetVal)
Combo1.AddItem strErg


End Sub

Edit: Also jetzt lässt sich zumindest Ferrari in die ComboBox eintragen, von den andern 3 fehlt noch jede Spur... :-(

 

[cheft]

Vieleicht hilft dir folgender Hinweis weiter:
http://www.activevb.de/tipps/vb6tipps/tipp0108.html

Ich denke die API Funktion GetPrivateProfileSection könnte dir weiterhelfen, bin mir aber nicht ganz sicher. Hab bislang eigentlich immer nur den Wert auslesen müssen ;-)