USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic.Net    (Arquivos/Diretórios)

Título da Dica:  Leitura e Escrita em Arquivos INI
Postada em 14/7/2004 por ixeyc         
'declare em um module BAS

    Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long
    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 Ret As String
    Public Sub WriteINI(filename As String, Section As String, Key As String, Text As String)
        WritePrivateProfileString Section, Key, Text, filename
    End Sub
    Public Function ReadINI(filename As String, Section As String, Key As String)
        Ret = Space$(255)
        RetLen = GetPrivateProfileString(Section, Key, "", Ret, Len(Ret), filename)
        Ret = Left$(Ret, RetLen)
        ReadINI = Ret
    End Function


A leitura e a escrita se torna do mesmo jeito do que uma estrutura de um banco de dados onde se tem: Banco, Tabela e Campo...

pra escrever:
           WriteINI "C:ARQ.INI", "Impressora", "Impressora", cmbImpressora

pra ler:
           ReadINI("C:ARQ.INI", "Impressora", "Impressora")
 


CyberWEB Network Ltda.    © Copyright 2000-2021   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página