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 " )