. Un archivo INI es un archivo de texto estructurado que almacena las configuraciones de las funciones del programa configurables por el usuario . Por ejemplo , un archivo INI es un mecanismo para recordar que un usuario quiera texto que se mostrará en un idioma que no sea Inglés . Funciones que facilitan la lectura y escritura de archivos INI El original de aplicación de Windows Programmer Interface (API ) compatible. Microsoft ha desaprobado archivos INI a favor del registro de Windows y formatos de archivos más nuevos basados ​​en XML . Las funciones de la API de Windows , aunque no es directamente compatible , siguen estando disponibles para los programadores de Visual Basic 9 que apoyan software heredado . Instrucciones
1

Añade una instrucción Declare a la parte superior del módulo para que llamar a la función API de Windows para escribir ini : .

Private Declare Function Ansi WritePrivateProfileString _
< p> Lib " kernel32.dll " Alias ​​" WritePrivateProfileStringA " _

( lpApplicationName ByVal As String , _

lpKeyName ByVal como secuencia, lpString ByVal As String , _ ByVal

lpFileName As String ) As Integer
2

Añadir un valor del archivo de función declare en la parte superior del módulo para que llamar a la función API de Windows para la lectura ini: .

Private Declare Function Ansi GetPrivateProfileString _

Lib " kernel32.dll " Alias ​​" GetPrivateProfileStringA " _

( lpApplicationName ByVal As String , _

lpKeyName ByVal As String , ByVal lpDefault As String , _

lpReturnedString ByVal As String , _

nSize ByVal As Integer , lpFileName ByVal As String ) _

As Integer
3

Crear o editar un archivo INI llamando a la función WritePrivateProfileString , proporcionando valores de clave , la aplicación y el nombre de archivo. Por convención, los archivos INI utilizan la extensión . Ini. El parámetro de solicitud corresponde a una sección en el archivo ini. Si alguno de los parámetros especificados no existen , se crean . Esto incluye el archivo en sí , siempre y cuando ya existe el directorio especificado . La función de cadena WritePrivateProfile será sobrescribir los valores previamente existentes.

WritePrivateProfileString ( " sección" , "llave" , "valor" , " . /Data.ini ")
4

vaciar la caché cuando haya completado las modificaciones del archivo INI , reduciendo el riesgo de pérdida de datos en caso de un cierre anormal del programa. Pasar los valores de cero a la función WritePrivateProfileString para todos los parámetros excepto el nombre del archivo INI . Esto indica a Windows para escribir los cambios en el disco : ( " . /Data.ini " 0 , 0 , 0, )

WritePrivateProfileString
5

asignar un búfer suficiente para contener al máximo tamaño de un valor almacenado en el archivo INI . Un tampón de 256 caracteres es por lo general suficiente . Crear un entero para recibir el tamaño real del valor que se recupera del archivo INI . Utilice Dim para declarar las variables y la función de espacio para asignar memoria para la cadena :

strValue dévil como secuencia

intLen Dim As Integer

strValue = Espacio ( 256 )
6

Recuperar valores guardados en el archivo INI llamando GetPrivateProfileString utilizando las variables junto con la clave de la sección , y los valores de nombre de archivo utilizadas al escribir en el archivo INI . Especifique el tamaño del búfer que está proporcionando y un valor a devolver cuando no se encuentra el valor designado :

intLen = GetPrivateProfileString ( " sección" , "llave" , " no encontrado" , strValue , 256 , "nombre de archivo " )