Buscar base de dados a um ficheiro .ini

gastao · May 23, 2009 at 11:49 AM

Boas novamente,

o que eu quero fazer é do genero ter um ficheiro .ini em que vai ficar o nome da base de dados e o caminho da mesma, e o programa ao arrancar ia ler e abrir esse mesmo, alg csg dar uma dica sobre esta situaçao?

o conteudo do ini:

[baseDados]

NomeBaseDados=XPTO

CaminhoBaseDados=C:\Programas\XPTO

cumprimentos

ribeiro55 · May 23, 2009 at 11:56 AM

Porque não usam as builtin settings com âmbito à aplicação?

Cria um XML todo bonito com todas as settings que precisas.

gastao · May 23, 2009 at 11:58 AM

kero um ini...

bruno1234 · May 23, 2009 at 12:43 PM

Abres um ficheiro como stream, e lês linha a linha até reconhecer os campos q precisas.

ribeiro55 · May 23, 2009 at 12:44 PM

Estou a escrever um exemplo em cima do joelho, Tive a almoçar entretanto mas já posto.

Quer um INI, damos um INI! Não quero que falte nada 😁

ribeiro55 · May 23, 2009 at 01:00 PM

Aqui está, um pouco em cima do joelho mas até ficou porreirita para enfiar para uma classe e fazer uma coisa bonita... B)

Para testares, abre um projecto novo, mete 2 botões no form e substituí todo (mesmo todo) o código por este:

Public Class Form1

    Private INI As New Dictionary(Of String, Dictionary(Of String, String))
    Private UltimaChave As String = String.Empty
    Private UltimasEntradas As New Dictionary(Of String, String)

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click


        Dim ofd As New OpenFileDialog
        ofd.Filter = "Ficheiros INI|*.ini"
        ofd.ShowDialog()

        Dim SR As New IO.StreamReader(ofd.FileName)
        While Not SR.EndOfStream
            ParseINI(SR.ReadLine)
        End While
        ParseINI("")
        SR.Close()
    End Sub

    Private Sub ParseINI(ByVal Linha As String)
        Select Case Strings.Left(Linha, 1)

            Case "["
                UltimaChave = Strings.Mid(Linha, 2, Linha.Length - 2)
            Case ""

                Dim TempUE As New Dictionary(Of String, String)
                For Each KVP As KeyValuePair(Of String, String) In UltimasEntradas
                    TempUE.Add(KVP.Key, KVP.Value)
                Next
                INI.Add(LCase(UltimaChave), TempUE)
                UltimaChave = String.Empty
                UltimasEntradas.Clear()

            Case Else
                If UltimaChave <> Nothing Then
                    Dim P() As String = Split(Linha, "=")
                    UltimasEntradas.Add(LCase(P(0)), P(1))
                End If

        End Select
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Try
            'as duas que precisas
            MsgBox(INI("basedados")("nomebasedados"))
            MsgBox(INI("basedados")("caminhobasedados"))

            'e outra para veres
            MsgBox(INI("outracoisaqualquer")("outraquetanto"))
        Catch
            MsgBox("Chave inexistente")
        End Try
    End Sub
End Class

Acabei agora mesmo de a escrever, mas testei um INI com este conteúdo:

[baseDados]
NomeBaseDados=glamorama
CaminhoBaseDados=C:\Programas\XPTO

[OutraCoisaQualquer]
UmaSettingMarada=xpto
OutraQueTanto=Oh meu deus!!
EmaisOutraParaAsRestantesNaoFicaremSozinhas=lol, lol

Tou cá, aliás, estamos cá todos para esclarecimentos, se necessário.

EDIT: Esqueci-me de dizer que o button1 serve para carregar o INI e o button2 para ir consultar uns valores

vasco16 · May 23, 2009 at 01:05 PM

Aqui está, um pouco em cima do joelho mas até ficou porreirita para enfiar para uma classe e fazer uma coisa bonita... B)

Para testares, abre um projecto novo, mete 2 botões no form e substituí todo (mesmo todo) o código por este:

Public Class Form1

    Private INI As New Dictionary(Of String, Dictionary(Of String, String))
    Private UltimaChave As String = String.Empty
    Private UltimasEntradas As New Dictionary(Of String, String)

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click


        Dim ofd As New OpenFileDialog
        ofd.Filter = "Ficheiros INI|*.ini"
        ofd.ShowDialog()

        Dim SR As New IO.StreamReader(ofd.FileName)
        While Not SR.EndOfStream
            ParseINI(SR.ReadLine)
        End While
        ParseINI("")
        SR.Close()
    End Sub

    Private Sub ParseINI(ByVal Linha As String)
        Select Case Strings.Left(Linha, 1)

            Case "["
                UltimaChave = Strings.Mid(Linha, 2, Linha.Length - 2)
            Case ""

                Dim TempUE As New Dictionary(Of String, String)
                For Each KVP As KeyValuePair(Of String, String) In UltimasEntradas
                    TempUE.Add(KVP.Key, KVP.Value)
                Next
                INI.Add(LCase(UltimaChave), TempUE)
                UltimaChave = String.Empty
                UltimasEntradas.Clear()

            Case Else
                If UltimaChave <> Nothing Then
                    Dim P() As String = Split(Linha, "=")
                    UltimasEntradas.Add(LCase(P(0)), P(1))
                End If

        End Select
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Try
            'as duas que precisas
            MsgBox(INI("basedados")("nomebasedados"))
            MsgBox(INI("basedados")("caminhobasedados"))

            'e outra para veres
            MsgBox(INI("outracoisaqualquer")("outraquetanto"))
        Catch
            MsgBox("Chave inexistente")
        End Try
    End Sub
End Class

Acabei agora mesmo de a escrever, mas testei um INI com este conteúdo:

[baseDados]
NomeBaseDados=glamorama
CaminhoBaseDados=C:\Programas\XPTO

[OutraCoisaQualquer]
UmaSettingMarada=xpto
OutraQueTanto=Oh meu deus!!
EmaisOutraParaAsRestantesNaoFicaremSozinhas=lol, lol

Tou cá, aliás, estamos cá todos para esclarecimentos, se necessário.

quando abres o openfiledialog e depois metes cancelar dá erro xD

mas de resto está muito bom 🙂

ribeiro55 · May 23, 2009 at 01:09 PM

LOL.

Está bem, acrescenta-lhe depois do ShowDialog:

If ofd.Filename=Nothing then Exit Sub

É um exemplo de como ele pode fazer, não está errorhandled. Só meti o TryCatch no fim porque ele podia exprimentar com o INI dele e a ultima chave não existe.

May 23, 2009 at 03:21 PM

Tens este exemplo que é o que uso para ler os ficheiros INI.

Já não me lembro onde arranjei este código B)

É simples de usar

    Private Declare Ansi Function GetPrivateProfileString Lib "kernel32.dll" Alias "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

    Public Function GetIniSetting(ByVal strKey As String, ByVal strSection As String, ByVal strIniFile As String) As String

        Dim strValue As String
        Dim intPos As Integer

        On Error GoTo ErrTrap

        strValue = Space(1024)

        GetPrivateProfileString(strSection, strKey, "INI File Error", strValue, 1024, strIniFile)

        Do While InStrRev(strValue, " ") = Len(strValue)
            strValue = Mid(strValue, 1, Len(strValue) - 1)
        Loop

        ' to remove a special chr in the last place
        strValue = Mid(strValue, 1, Len(strValue) - 1)
        GetIniSetting = strValue

ErrTrap:
        If Err.Number <> 0 Then Err.Raise(Err.Number, , "Error form Functions.GetIniSettings " & Err.Description)

    End Function

May 23, 2009 at 03:34 PM

Encontrei o artigo: http://www.vbknowledgebase.com/WebApp/Guest/Home/Home.aspx?PageCode=47&Desc=Read-Write-INI-files-using-VB-.Net

B)

vasco16 · May 23, 2009 at 11:31 PM

já agora qual é o objectivo disto ?:S

jpaulino · May 24, 2009 at 08:19 AM

Gosto do exemplo do ribeiro55 usando um Dictionary, mas para ler os velhinhos ficheiros INI's (já longe de serem usados) a forma mais simples é usando as API's GetPrivateProfileString e WritePrivateProfileString, como o PauloR sugeriu.

Existem vários exemplos disponíveis na NET, mas só usava mesmo se fosse "obrigado".

May 24, 2009 at 05:49 PM

Gosto do exemplo do ribeiro55 usando um Dictionary, mas para ler os velhinhos ficheiros INI's (já longe de serem usados) a forma mais simples é usando as API's GetPrivateProfileString e WritePrivateProfileString, como o PauloR sugeriu.

Existem vários exemplos disponíveis na NET, mas só usava mesmo se fosse "obrigado".

Então aconselhas um XML para guardar configurações?

José Lopes · May 24, 2009 at 08:16 PM

não é para isso que servem as applicattion settings????

Embora eu também use ini's..... :-(

jpaulino · May 24, 2009 at 09:38 PM

Então aconselhas um XML para guardar configurações?

Sim, sempre!

não é para isso que servem as applicattion settings?

Os settings são uma forma simples de criar um ficheiro XML B)

gastao · June 5, 2009 at 04:17 PM

Mto obrigado, objectivo e poder ter a aplicaçao a trab em varias maquinas ao msm tempo, sendo assim digo lhes o caminho da bd... penso que ira resultar

gastao · June 7, 2009 at 01:05 PM

ele vai buscar o ini na boa, 😛 mas como e q eu ligo me a base de dados atraves desse ini?????

José Lopes · June 7, 2009 at 02:27 PM

o ini deve guardar os valores da conection string... é so para isso que serve.....

Eventualmente podes guardar o nome do ultimo utilizador, do login.....

mas e essencialmente usado para guardar definições da conexão

gastao · June 7, 2009 at 03:10 PM

como assim nao percebi???? como e q eu faço para ir buscar esses valores?

bruno1234 · June 7, 2009 at 03:35 PM

Isso tens nos posts anteriores, já puseram o código q precisas e tudo.

Sign In

Buscar base de dados a um ficheiro .ini

Recommended Posts

gastao

ribeiro55

gastao

bruno1234

ribeiro55

ribeiro55

vasco16

ribeiro55

Guest PauloR

Guest PauloR

vasco16

jpaulino

Guest PauloR

José Lopes

jpaulino

gastao

gastao

José Lopes

gastao

bruno1234

Create an account or sign in to comment

Create an account

Sign in

Home

Activity

Revista PROGRAMAR

Important Information