Cargar archivo de texto en ComboBox

[oskarrr]

Hola. Estoy empezando con VB6 y ando un poco perdido para manejar archivos. Veréis, tengo un archivo de texto (ejemplo.txt) con la siguiente estructura:

[DATO1]
var1=1
var2=2
var3=3

[DATO2]
var1=4
var2=5
var3=6

...

[DATO N]
var1=x
var2=y
var3=z

Lo que necesito es cargar Dato1,Dato2 ... Dato N en un combox, y que cuando se seleccione un "Dato N" se almacenen las 3 variables que hay justo debajo, es decir, var1, var2 y var3. A ver si me podéis ayudar.

Saludos!

[lokoman]

Hola! (La estructura es igual a un archivo .INI)

Agrega 4 labels, 3 textbox, 1 combobox y 1 command, como en la imagen:


Este es el CODE:

Código vb:

'
Private Sub cboData_Click()
    Dim RUTA As String, VAR1 As String, VAR2 As String, VAR3 As String
    Dim DATA
    Dim bolVAR1 As Boolean, bolVAR2 As Boolean, bolVAR3 As Boolean
    
    bolVAR1 = False
    bolVAR2 = False
    bolVAR3 = False
    
    VAR1 = Empty
    VAR2 = Empty
    VAR3 = Empty
    
    RUTA = "C:\ejemplo.TXT"
    
    Open RUTA For Input As #1
        Do While EOF(1) = False
            Input #1, DATA
            
            If bolVAR1 = True Then
                txt1.Text = Mid(DATA, InStr(1, DATA, "=") + 1)
                bolVAR1 = False
                bolVAR2 = True
            ElseIf bolVAR2 = True Then
                txt2.Text = Mid(DATA, InStr(1, DATA, "=") + 1)
                bolVAR2 = False
                bolVAR3 = True
            ElseIf bolVAR3 = True Then
                txt3.Text = Mid(DATA, InStr(1, DATA, "=") + 1)
                bolVAR3 = False
            End If
            
            If DATA = "[" & cboData.Text & "]" Then bolVAR1 = True
        Loop
    Close
End Sub
 
Private Sub cmdExe_Click()
    Dim RUTA As String
    Dim DATA
    
    RUTA = "C:\ejemplo.TXT"
    
    cboData.Clear
    
    Open RUTA For Input As #1
        Do While EOF(1) = False
            Input #1, DATA
            If Mid(DATA, 1, 1) = "[" Then cboData.AddItem Replace(Replace(DATA, "[", ""), "]", "")
        Loop
    Close
    cboData.Text = cboData.List(0)
End Sub
 

Este es el archivo:
http://myfreefilehosting.com/f/03fd71096b_0.1MB

Con esta estructura:
----------------------------------
[DATO1]
var1=1
var2=2
var3=3

[DATO2]
var1=4
var2=5
var3=6

[DATO N]
var1=x
var2=y
var3=z
----------------------------------

Verifica y nos cuentas!