Arquivos Ini

[j4m35_b0nd]

Alguém pode me ajudar a pegar dados em arquivos INI? Eu estava usando as API's GetPrivateProfileString e WritePrivateProfileString que vi no site www.mentalis.org

Não tive nenhum problema ao usar o WritePrivateProfileString, mas quanto ao outro, tentei de várias formas utiliza-lo mas não consegui.

Eu não consegui entender o que são os itens IpDefault, IpReturnedString e o nSize.

Alguém que sabe pode me dizer o que são e o que coloco nesses itens para poder pegar valores de arquivos INI?

[Guest Natarelli]

Vai um exemplo, espero q ajude:

Suponhamos que você queria ler o conteúdo do arquivo Teste.INI

O arquivo contém os seguintes parâmteros

[AJUDA]

Help=Leitura de Arquivo INI

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

Public Sub ChecarINI()

Dim Resultado As String

Resultado = LerIni("AJUDA","Help")

End Sub

Private Function LerIni(CHAVE As String, SECAO As String) As String

Dim StrINI As String * 100 'Conteúdo da linha no INI

Dim LenINI As Long

StrINI = ""

LenINI = GetPrivateProfileString(CHAVE, SECAO, "Não Encontrado", StrINI, Len(StrINI), "C:\TESTE.INI")

LerIni = Left(StrINI, LenINI)

End Function