Trucos Obtener todas las claves y valores de una sección de un ini

Para obtener todos las claves y valores de una sección de un ini emplearemos el API GetprivateProfileSection.
Las parejas "clave=valor" vienen separadas por un chr(0) y la última va seguida de dos.

En el siguiente ejemplo rellenaremos un listbox con todas las entradas de la sección [Boot] del system.ini :

Private Declare Function GetPrivateProfileSection Lib "kernel32" Alias "GetPrivateProfileSectionA" (ByVal lpAppName As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long

Dim Res As String, i As Long, j As Long

Res = Space(4096)
i = GetPrivateProfileSection("boot", Res, Len(Res), "system.ini")
j = 1
i = InStr(Res, Chr(0))
While i <> j
    List1.AddItem Mid(Res, j, i - j)
    j = i + 1
    i = InStr(j, Res, Chr(0))
Wend



Trucos Trucos

Visual Basic Página de Visual Basic

Página principal Página principal

www.jrubi.com