O QUE ESTA FUN?ÃO FAZ

USUARIO.EXCLUIDOS 05/06/2004 21:23:14
#28273
ReadINI( )
WEBMASTER 05/06/2004 21:27:25
#28274 Resposta escolhida
ler informações de arquivos com extensão .INI...
WEBMASTER 05/06/2004 22:14:25
#28278
Seguindo pelo nome, la pode ler informações de um arquivo .INI

Como ela não existe no VB, você pode usar: 

Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As String, ByVal lpFileName As String) As Long

Function ReadINI(inifile As String, topic As String, subtopic As String, default As String)
    Dim sData As String
    Dim lDataLen As Long
    Dim inidados As String
    
    sData = Space$(255)
    lDataLen = GetPrivateProfileString(topic, subtopic, default, sData, Len(sData), inifile)
    inidados = Left$(sData, lDataLen)
    
    ReadINI = inidados
End Function

Sub WriteINI(inifile As String, topic As String, subtopic As String, sData As String)
    WritePrivateProfileString topic, subtopic, sData, inifile
End Sub


Exemplo: utilizando o WriteINI:
WriteINI App.Path & "\config.ini", "Cfg", "Teste", "Valor"

Irá gravar no INI:

[Cfg]
Teste=Valor

E ReadINI:
Valor = ReadINI(App.Path & "\config.ini", "Cfg", "Teste", "Valor")

Onde "Valor", é o valor default, caso não haja o subtópico "Teste", ou o tópico "Cfg", ou mesmo o INI não exista.

Forte abraço!
WEBMASTER 06/06/2004 12:06:52
#28313
é...o Dave Ws deu um exemplo bem melhor que o meu(Ah...nem dei exemplo, rs..rs..rs..)
WEBMASTER 06/06/2004 12:45:55
#28317
é...o Dave Ws deu um exemplo bem melhor que o meu(Ah...nem dei exemplo, rs..rs..rs..)
Tópico encerrado , respostas não são mais permitidas
Voltar