|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Windows)
|
|
 |
Título da Dica: Arquivos INI
|
 |
|
|
|
Postada em 12/8/2003 por d@®l@n
Código - Funções para escrever e ler em arquivos .INI pessoais.
Estas funções (Get_ini e Write_ini) devem ser colocadas em um módulo (.BAS).
Troque nome_do_arquivo.ini pelo nome do seu arquivo .INI pessoal.
Não esqueça de incluir o caminho completo!
A função get_ini serve para ler em arquivos .INI. Porém, para utilizá-la, é necessário declarar a função GetPrivateProfileString, na seção de declarações (declarations) de seu módulo. A declaração é a seguinte ( escreva apenas em uma linha ):
Declare Function GetPrivateProfileString Lib "Kernel" (ByVal lpApplicationName + _
As String, lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString + _
As String, ByVal nSize As Integer, ByVal lpFileName As String) As Integer
Aqui vai o código da função get_ini :
Function get_ini (seção$, chave$) As String
arquiv$ = nome_do_arquivo.ini
Returns$ = Space$(128)
x% = GetPrivateProfileString(ByVal seção$, ByVal chave$, + _
"Nenhum valor lido", Returns$, Len(Returns$), ByVal arquiv$)
get_ini = Left$(Returns$, x%)
End Function
A função write_ini serve para escrever informações em um arquivo .INI.
Antes de usá-la. declare a função WritePrivateProfileString na seção "Declarations" de seu módulo.
Declare Function WritePrivateProfileString Lib "Kernel" (ByVal + _
lpApplicationName As String, lpKeyName As Any, lpString As Any, + _
ByVal lplFileName As String) As Integer
Feito isso, escreva :
Function write_ini (ByVal section$, ByVal chv$, ByVal variavel$) As String
arquiv$ = nome_de_arquivo.ini
iRet = WritePrivateProfileString(ByVal section$, ByVal chv$, + _
ByVal variavel$, ByVal arquiv$)
End Function
|
|
|
|
|
