Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Access » leer ficheros *.ini

Access - leer ficheros *.ini

Volver
Nuevo Tema
<<>>
 
Vista:

leer ficheros *.ini

Publicado por Jorge Castanera (1 intervención) el 12/04/2004 17:48:05
Saludos
Necesitaria una funcion que me permitiera obtener desde Access los datos grabados en un fichero tipo INI, especificando el nombre del fichero, la cabecera y el nombre de la variable.
Agradecido de antemano
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Alejandro

leer ficheros *.ini

Publicado por Alejandro (4142 intervenciones) el 05/05/2023 00:41:35
Hola Jorge.

Puedes utilizar la función GetPrivateProfileString de la API de Windows para leer los datos de un archivo INI desde Access. Aquí te dejo un ejemplo de cómo podrías implementar esta función en VBA:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private 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
 
Function LeerINI(ByVal strArchivo As String, ByVal strSeccion As String, _
    ByVal strClave As String, ByVal strValorPredeterminado As String) As String
 
    Dim lngRet As Long
    Dim strResultado As String
 
    strResultado = String$(256, vbNullChar)
    lngRet = GetPrivateProfileString(strSeccion, strClave, _
        strValorPredeterminado, strResultado, Len(strResultado), _
        strArchivo)
    If lngRet > 0 Then
        LeerINI = Left$(strResultado, lngRet)
    Else
        LeerINI = vbNullString
    End If
 
End Function

Para utilizar esta función, simplemente debes llamarla con el nombre del archivo INI, la sección, la clave y un valor predeterminado en caso de que la clave no exista en el archivo. Por ejemplo:

1
2
3
Dim strValor As String
 
strValor = LeerINI("config.ini", "Seccion1", "Clave1", "ValorPredeterminado")

Este código leerá el archivo "config.ini", buscará la sección "Seccion1" y la clave "Clave1", devolviendo el valor asociado a esa clave en caso de encontrarlo. Si la clave no existe en el archivo, devolverá el valor predeterminado especificado ("ValorPredeterminado" en este caso).

Espero que esto te ayude. ¡Buena suerte!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar