Visual Basic - Cargar ini

Para los que no lo sepáis, un archivo ini contiene toda la información que debe tener un aplicativo para poder ejecutarse correctamente. Debido a algunos programas que he realizado en Visual Basic, a continuación os voy a explicar como cargar un archivo ini.

Lo primero que debemos hacer es generar nuestro .ini, para ello abriremos un archivo de texto cualquiera, y le añadiremos toda la información que queremos cargar. Es recomendable hacerlo de la siguiente manera:

nombre = javier
apellido = angosto
edad = 22

Como podéis ver es muy sencillo, solamente deberemos poner la variable con el contenido que queramos. Una vez ya generado el archivo .ini, procedemos a la lectura en el aplicativo, que se debe hacer al principio de todo para intentar no cometer ningún fallo.

Creamos una variable, que la llamaremos n_file que es dónde leeremos el archivo .ini. Para ello primero hemos de asignarle un numero de archivo disponible con la función FreeFile. Para entendernos mejor, voy a poner el código a continuación e iré comentando entre líneas:

'Las variable que no están definidas dentro de la función, són globales definidas 
' en otra parte del código
Public Sub LeerIni()
   On Error GoTo errSub

    Dim n_File As Integer
    Dim linea As String
    Dim lectura As String
    Dim arr() As String
    Dim path As String
    
    n_File = FreeFile 'Asignamos el numero de archivo
    path = CurrentProject.path & "\info.ini" 'Indicamos en una cadena
                                             'el path donde se encuentra el .ini 

    Open path For Input As n_File 'Abrimos el archivo
    'Montamos un bucle para cada línea del archivo hasta que este se acabe.    
    Do While Not EOF(n_File)    
        Line Input #n_File, lectura
        linea = linea & ";" & lectura 'Guardo en esta variable todas las líneas
                                      'separadas por '='
    Loop
    arr = Split(linea, "=") 'Monto un array con la función Split
    'Guardo en cada variable todos los datos que hay en cada variable del .ini
    NOMBRE = arr(2)
    APELLIDO = arr(4)
    EDAD = arr(6)
Exit Sub
errSub:
    MsgBox "Número de error: " & Err.Number & vbNewLine & _
    "Descripción del error: " & Err.Description, vbCritical
End Sub

Como podéis ver el código no es nada del otro mundo. Si no ha quedado claro lo que hace la función Split, podeis ver la documentación en el enlace de abajo.

Enlace | Split