[VB.NET] Lettura da file INI a varie textbox

[MarcoGG]

Originariamente inviato da daxdaxdax

forse ho capito..
TextBox1.Text = INI.GetGruppoByNome("Engine.GameReplicationInfo]").GetChiaveByNome("ServerName").Valore

Esatto, io pensavo a qualcosa di più raffinato, ma sì, il concetto è quello !

[U235]

Originariamente inviato da MarcoGG

Esatto, io pensavo a qualcosa di più raffinato, ma sì, il concetto è quello !

Ciao MarcoGG,

scusami se approfitto della tua gentilezza, come posso modificare la tua classe per fare in modo ad esempio di creare un blocco ed inserirlo tra uno e l'altro oppure aggiungere un campo in una determinata posizione ecc..?

grazie per le dritte...

[daxdaxdax]

Comodo? Spaziale!!!

grasie, provo poi faccio sapere :-)

[MarcoGG]

Originariamente inviato da U235

Ciao MarcoGG,

scusami se approfitto della tua gentilezza, come posso modificare la tua classe per fare in modo ad esempio di creare un blocco ed inserirlo tra uno e l'altro oppure aggiungere un campo in una determinata posizione ecc..?

grazie per le dritte...

FileIni eredita da List(Of), pertanto è possibile usare tutti i metodi generici di aggiunta alla List ( .Add, .Insert, ecc... ).

Se volessi invece un metodo che, dato in input il nome di un Gruppo già presente nell'INI, inserisca un nuovo Gruppo subito dopo, ad esempio puoi aggiungere alla Classe FileIni il metodo :

    Public Sub AddGruppoDopo(ByVal nomeGruppo As String, ByVal nomeNuovoGruppo As String)

        For Each G As Gruppo In Me
            If G.Nome = nomeGruppo Then
                Me.Insert(Me.IndexOf(G) + 1, New Gruppo(nomeNuovoGruppo))
                Exit For
            End If
        Next

    End Sub

Da usarsi così :

        'Inserisci subito dopo "[XGame.xDeathMatch]" il nuovo Gruppo "[NomeNuovoGruppo]" 
        INI.AddGruppoDopo("[XGame.xDeathMatch]", "[NomeNuovoGruppo]")

        INI.Salva()

Ovviamente metodi buttati giù così, senza alcun controllo errori. A voi il piacere di implementare...

[U235]

Originariamente inviato da MarcoGG

FileIni eredita da List(Of), pertanto è possibile usare tutti i metodi generici di aggiunta alla List ( .Add, .Insert, ecc... ).

Se volessi invece un metodo che, dato in input il nome di un Gruppo già presente nell'INI, inserisca un nuovo Gruppo subito dopo, ad esempio puoi aggiungere alla Classe FileIni il metodo :

    Public Sub AddGruppoDopo(ByVal nomeGruppo As String, ByVal nomeNuovoGruppo As String)

        For Each G As Gruppo In Me
            If G.Nome = nomeGruppo Then
                Me.Insert(Me.IndexOf(G) + 1, New Gruppo(nomeNuovoGruppo))
                Exit For
            End If
        Next

    End Sub

Da usarsi così :

        'Inserisci subito dopo "[XGame.xDeathMatch]" il nuovo Gruppo "[NomeNuovoGruppo]" 
        INI.AddGruppoDopo("[XGame.xDeathMatch]", "[NomeNuovoGruppo]")

        INI.Salva()

Ovviamente metodi buttati giù così, senza alcun controllo errori. A voi il piacere di implementare...

grazie, gentilissimo.

Puo' sempre servire in vb anche se in genere programmo in c#.

ciao.

[daxdaxdax]

Originariamente inviato da MarcoGG

Esatto, io pensavo a qualcosa di più raffinato, ma sì, il concetto è quello !

Ok funziona tutto alla grande!!!

ancora una domandina..

In che modo posso modificare la sub carica in modo che se le viene chiesto un parametro che non esiste, non dia errore?

[MarcoGG]

Originariamente inviato da daxdaxdax

Ok funziona tutto alla grande!!!

ancora una domandina..

In che modo posso modificare la sub carica in modo che se le viene chiesto un parametro che non esiste, non dia errore?

Beh, dipende da cosa si desidera che succeda se m_nomeFileCompleto non corrisponde ad un file ini realmente esistente.
La cosa più semplice è uscire dal metodo Carica(), ossia come prima linea di codice nel metodo inserire :

If System.IO.File.Exists(m_nomeFileCompleto) = False Then Exit Sub

in questo caso l'oggetto INI, dopo l'esecuzione di Carica() sarà una lista vuota :

        Dim INI As New FileIni( percorsoErrato )
        INI.Carica()

        If INI.Count = 0 Then MsgBox("vuoto")

E poi bisognerebbe gestire le eccezioni dovute al caricamento di un file ini non formattato correttamente. Questa classe è pensata per un file Ini, diciamo "ben formato", se così si può dire, ossia che rispetta la struttura :

[Gruppo1]
Chiave1=valore
Chiave2=valore
...
ChiaveN=valore
< spazio >
[Gruppo2]
Chiave1=valore
Chiave2=valore
...
ChiaveN=valore

ecc...

Bisogna aver chiaro quali errori possono verificarsi, e quali azioni intraprendere caso per caso...

[daxdaxdax]

Capito...

sai che funziona tutto a parte la funzione salva?
come sono ignorante... cosa manca secondo te?

(Comunque aggiungere letture di stringhe in questo modo è sicuramente meno laborioso...goood)

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        ' SALVATAGGIO PARAMETRI SU FILE SCELTO
        Dim INI As New FileIni(Label17.Text)
        INI.GetGruppoByNome("[Engine.GameReplicationInfo]").GetChiaveByNome("ServerName").Valore = Nomeserver.Text
        ProgressBar1.Value += 1
        INI.GetGruppoByNome("[Engine.GameReplicationInfo]").GetChiaveByNome("AdminName").Valore = NomeAmmin.Text
        ProgressBar1.Value += 1
        INI.GetGruppoByNome("[Engine.GameReplicationInfo]").GetChiaveByNome("AdminEmail").Valore = AmminMail.Text
        ProgressBar1.Value += 1 
ecc...

[MarcoGG]

Come "a parte la funzione Salva" ?
Da me funziona benissimo. Che problema c'è ?

[daxdaxdax]

Object reference not set to an instance of an object.

[MarcoGG]

Originariamente inviato da daxdaxdax

Object reference not set to an instance of an object.

Eh, vabbeh, , ma facendo COSA ti da quell'errore ?

[daxdaxdax]

Hihihihi scusa.... hai ragione...
Allora, ho scritto nella sub del mio pulsante "LEGGI"

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim INI As New FileIni(Label17.Text)
        INI.Carica()
        ProgressBar1.Value += 1
        Nomeserver.Text = INI.GetGruppoByNome("[Engine.GameReplicationInfo]").GetChiaveByNome("ServerName").Valore 
ecc..

Poi, ho fatto un pulsante "scrivi" che (se ho capito bene il concetto) prende invece i valori delle varie textbox per ricompilare l'ormai famoso INI e salvarlo...

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        ' SALVATAGGIO PARAMETRI SU FILE SCELTO
        Dim INI As New FileIni(Label17.Text)
        INI.GetGruppoByNome("[Engine.GameReplicationInfo]").GetChiaveByNome("ServerName").Valore = Nomeserver.Text
        ProgressBar1.Value += 1
ecc..

Il LEGGI funziona da dio ma SCRIVI mi si ferma evidenziandomi :
INI.GetGruppoByNome("[Engine.GameReplicationInfo]").GetChiaveByNome("ServerName").Valore = Nomeserver.Text

Ora, non capisco che errore ci sia dato che non cè alcun problema apparente..
Quando avrò compreso appieno le tue classi sarò mooolto felice

[U235]

ciao

sei certo che nel file INI ci siano esattamente quelle voci ([Engine.GameReplicationInfo] e ServerName)?

se sbagli anche solo un carattere ti da quelgenere di errore mi sa...

[daxdaxdax]

Ciao U235

si, sono abbastanza sicuro che esistano...
In fase di lettura legge il valore, in fase di scrittura\salvataggio, no... mah..
Io nel frattempo ravano ancora un po per capire...

[MarcoGG]

Originariamente inviato da daxdaxdax

Hihihihi scusa.... hai ragione...
Allora, ho scritto nella sub del mio pulsante "LEGGI"

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim INI As New FileIni(Label17.Text)
        INI.Carica()
        ProgressBar1.Value += 1
        Nomeserver.Text = INI.GetGruppoByNome("[Engine.GameReplicationInfo]").GetChiaveByNome("ServerName").Valore 
ecc..

Poi, ho fatto un pulsante "scrivi" che (se ho capito bene il concetto) prende invece i valori delle varie textbox per ricompilare l'ormai famoso INI e salvarlo...

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        ' SALVATAGGIO PARAMETRI SU FILE SCELTO
        Dim INI As New FileIni(Label17.Text)
        INI.GetGruppoByNome("[Engine.GameReplicationInfo]").GetChiaveByNome("ServerName").Valore = Nomeserver.Text
        ProgressBar1.Value += 1
ecc..

Il LEGGI funziona da dio ma SCRIVI mi si ferma evidenziandomi :
INI.GetGruppoByNome("[Engine.GameReplicationInfo]").GetChiaveByNome("ServerName").Valore = Nomeserver.Text

Ora, non capisco che errore ci sia dato che non cè alcun problema apparente..
Quando avrò compreso appieno le tue classi sarò mooolto felice

Ora che ti sei spiegato chiaro su COSA fai e su COME lo fai, direi che il problema è lampante. Fai attenzione :

1. Istanzi un oggetto della classe FileIni, e poi con Carica() lo "riempi" con i gruppi e le chiavi presenti. Perfetto.

2. Poi, per salvare, fai questo :

' SALVATAGGIO PARAMETRI SU FILE SCELTO
Dim INI As New FileIni(Label17.Text)
INI.GetGruppoByNome("[Engine.GameReplicationInfo]").GetChiaveByNome("ServerName").Valore = Nomeserver.Text

Istanzi un altro oggetto da FileINI, NON fai il Carica(), e cerchi un Gruppo, e una Chiave che ovviamente non possono esistere, perchè ti ritrovi una List vuota !
L'inizializzazione dell'oggetto INI deve avvenire una volta sola ed essere visibile dalle ruotine di lettura e scrittura. Il che significa che la dichiarazione dell'oggetto INI di tipo FileIni deve avvenire a livello di Form, o anche a livello di Modulo o classe statica...
Quando INI è caricato con Carica(), non è più necessario istanziare un altro oggetto FileIni per fare il Salva().
Salva() va fatto sulla stessa istanza da cui hai eseguito il Carica().

Credo di essermi spiegato.

[daxdaxdax]

Sempre disponibile, grazie.
Domani cerco di capire dove sbaglio e ti dico..
Siete i miei due maestri


Devo usare "shared"?
..consigliatemi un libro per mozzi come me per imparare queste cose..

[MarcoGG]

Originariamente inviato da daxdaxdax

Devo usare "shared"?

Shared è lo "Static" di VB.NET.
Dipende... Usarlo per cosa ?

[daxdaxdax]

Per fare la classe statica che dicevi... Per far vedere alle ruotine di lettura e scrittura "dim INI As New FileIni(Label17.Text)"

[MarcoGG]

Originariamente inviato da daxdaxdax

Per fare la classe statica che dicevi...

Un Modulo VB.NET è già di per sè una classe statica. Non hai nessun bisogno di usare Shared. Basta :

Module ModuloINI

    Public FI As FileIni

End Module

Quando vuoi caricare :

FI = New FileIni ( percorso )
FI.Carica()

Quando vuoi salvare :

FI.Salva()

Quando te ne vuoi liberare :

FI.Dispose()

A patto di aver implementato IDisposable nella classe FileIni.

[daxdaxdax]

Io non ci riesco...
se posto tutta la mia form5 hai voglia di leggerla?