Como ler e escrever arquivos ini em visual basic 9

Adicionar uma instrução Declare para o topo do seu módulo para permitir chamar a função de API do Windows para escrever arquivos ini:

Private Declare Ansi WritePrivateProfileString Função _

 lib "kernel32.dll" aliás "WritePrivateProfileStringA" _
(ByVal lpApplicationName As String, _
ByVal lpKeyName As String, ByVal lpString As String, _
ByVal lpFileName As String) As Integer

Adicionar uma função Declare na parte superior do seu módulo para permitir chamar a função de API do Windows para ler valor do arquivo ini:

Private Declare Ansi GetPrivateProfileString Função _

lib "kernel32.dll" aliás "GetPrivateProfileStringA" _

(ByVal lpApplicationName As String, _
ByVal lpKeyName As String, ByVal lpDefault As String, _
ByVal lpReturnedString As String, _


ByVal nSize As Integer, ByVal lpFileName As String) _
As Integer

Criar ou editar um arquivo INI chamando a função WritePrivateProfileString, fornecendo valores para a chave, aplicação e nome de arquivo. Por convenção, arquivos INI usar a extensão .ini. O parâmetro de aplicação corresponde a uma seção no arquivo ini. Se qualquer dos parâmetros especificados não existem, eles serão criadas. Isso inclui o arquivo em si, desde que o diretório especificado já existe. A função WritePrivateProfile Cordas vai over-escrever valores previamente existentes.

WritePrivateProfileString ("seção", "chave", "valor", "./data.ini")

Liberar o cache quando tiver concluído modificações em arquivos INI, reduzindo o risco de perda de dados em caso de um desligamento anormal do programa. Passar valores zero para a função WritePrivateProfileString para todos os parâmetros, exceto o nome do arquivo INI. Isso instrui o Windows para escrever as alterações no disco:

WritePrivateProfileString (0, 0, 0, "./data.ini")

Alocar uma reserva suficiente para manter o tamanho máximo de um valor armazenado no arquivo INI. Um tampão de 256 caracteres é geralmente suficiente. Criar um inteiro para receber o tamanho real do valor que foi recuperado do arquivo INI. Use Dim para declarar as variáveis ​​e a função de espaço para alocar memória para a cadeia:

Dim strValue As String

Dim intLen As Integer

strValue = Space (256)

Recuperar valores armazenados no arquivo INI chamando GetPrivateProfileString usando as variáveis ​​junto com a chave, seção e arquivo de valores nome usado ao gravar o arquivo INI. Especificar o tamanho do buffer que você está fornecendo e um valor a ser devolvido quando o valor designado não for encontrado:

intLen = GetPrivateProfileString ("seção", "chave", "não encontrado", StrValue, 256, "nome do arquivo")