Leer archivo .ini

[lokoman]

Hola!
Este es mi aporte:

En un modulo:

Código vb:

'INI
Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long
 
Public Function LeerINI(strClave As String, strNombre As String, Optional ByVal strDefecto As String) As String
    Dim intTamano As Integer
    Dim strTexto As String
    Dim strArchivoINI As String
    
    strArchivoINI = App.Path & "\Config.INI"
    strTexto = Space(200)
    intTamano = GetPrivateProfileString(strClave, strNombre, "", strTexto, Len(strTexto), strArchivoINI)
    
    If intTamano > 0 Then
        strTexto = Left$(strTexto, intTamano)
    Else
        strTexto = ""
    End If
    
    If Len(strTexto) Then
        LeerINI = strTexto
    Else
        LeerINI = strDefecto
    End If
End Function
 
Public Function EscribirINI(strClave As String, strNombre As String, strTexto As String) As String
    Dim intTamano As Integer
    Dim strArchivoINI As String
    
    strArchivoINI = App.Path & "\Config.ini"
    
    intTamano = WritePrivateProfileString(strClave, strNombre, strTexto, strArchivoINI)
End Function
 

• Uso para escribir:
strRuntime = EscribirINI("CLAVE", "NOMBRE", TEXTO)

• Uso para Leer:
strRuntime = LeerLicencia("CLAVE", "NOMBRE", "VALOR DEFAULT")

El "VALOR DEFAULT" es el valor por defecto si no se encuentra el valor de la llave "NOMBRE"


Esta es la composicion archivo .ini:
[CLAVE]
NOMBRE=lokoman


!!