Visual Basic 6.0 – Leer y escribir un archivo .Ini

Un ejemplo de como leer y escribir un archivo .Ini.

Tomado de esta web.

 

Declaraciones generales en un módulo:

 

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

 

Leer en “Ejemplo.Ini”:

 

    Private Sub Form_Load()

        Dim I As Integer

        Dim Est As String

        Est = String$(50, ” “)

        I = GetPrivateProfileString(“Ejemplo”, “Nombre”, “”, Est, Len(Est), “Ejemplo.ini”)

        If I > 0 Then

            MsgBox(“Tu Nombre es: “ & Est)

        End If

    End Sub

 

Escribir en “Prueba.Ini”:

 

    Private Sub Form_Unload(ByVal Cancel As Integer)

        Dim I As Integer

        Dim Est As String

        Est = “Ejemplo – Apartado”

        I = WritePrivateProfileString(“Ejemplo”, “Nombre”, Est, “Ejemplo.ini”)

    End Sub

 

(Nota: si I=0 quiere decir que no existe Información en la línea de fichero Ini a la

que hacemos referencia. El fichero “Ejemplo.Ini” se creará automáticamente).


Autor: Antonio Lopez Atienza

Leave a Reply

Your email address will not be published. Required fields are marked *