[VB.NET] "Salvare" dati all'interno dell'applicazione

[Ricky_85]

Eccomi con un altra domandina...

Ho la necessità di salvare dei dati all'interno della mia applicazione in modo da riaverli alla successiva apertura del programma stesso, possibilmente evitando un database esterno.

Se può essere di aiuto i dati saranno praticamente solo valori numerici (il programma serve per tenere conto delle "spese" giorno per giorno.

Chi mi puo dare una spintarella?

Grazie

[albgen]

un semplice file di testo o meglio un file xml.

[Ricky_85]

Ci avevo gia pensato, ma dal un file di testo come faccio poi a recuperare il dato giusto e "infilarlo" nella label o nelle variabili che mi interessano una volta che lo tiro su?

[albgen]

si infila si infila, non ti preoccupare basta leggere come infilarlo

[oregon]

Detto tra noi, e' piu' difficile per te "recuperare" e "infilare" i dati da un file di testo piuttosto che da un db ... fossi in te, farei uno sforzo per iniziare a trattare i db ...

[Ricky_85]

Perfortuna mia me la cavo meglio a "infilare" altro anzichè delle stringhe

Allora... sono riuscito a capire come scrivere nel mio bel file XML i dati da salvare, per provare ho scritto questo:

     Sub write_value()

        Dim Writer As New XmlTextWriter("Resources\db.xml", UTF8Encoding.UTF8)

        With Writer
     
            .Indentation = 2
            .IndentChar = " "

            .WriteStartDocument()

            .WriteStartElement("gruppodati1")

            .WriteElementString("dato1", txtin0.Text)
            .WriteElementString("dato2", txtin1.Text)
            .WriteElementString("dato3", txtin2.Text)

            .WriteEndDocument()
            .Close()
        End With

ed ho ottenuto il risultato che volevo:

  <?xml version="1.0" encoding="utf-8" ?> 
  <gruppodati1>
       <dato1>a</dato1> 
       <dato2>b</dato2> 
       <dato3>c</dato3> 
  </gruppodati1>

ora però viene il bello... come faccio a "leggere" la struttura? ho cercato un po per il web ma non ci ho capito una mazza...

[albgen]

Originariamente inviato da Ricky_85
Perfortuna mia me la cavo meglio a "infilare" altro anzichè delle stringhe

bravo per te

Originariamente inviato da Ricky_85
...
ora però viene il bello... come faccio a "leggere" la struttura? ho cercato un po per il web ma non ci ho capito una mazza...

con la classe fratello maggiore di XmlTextWriter che si chiama XmTextReader

[Ricky_85]

l'avevo immaginato che fosse quello

Ma sono ancora troppo impedito e non riesco ad usarlo correttamente ><

[Ricky_85]

Ci sono riuscito

Ricapitolo come ho fatto, magari in futuro può tornare utile a qualcun'altro ^^

Ho usato i seguenti imports

Imports System.Xml
Imports System.Text

Per scrivere...

 
Sub write_value()

        Dim Writer As New XmlTextWriter("Resources\db.xml", UTF8Encoding.UTF8)

        With Writer

            .Indentation = 2
            .IndentChar = " "

            .WriteStartDocument()

            .WriteStartElement("gruppodati1")

            .WriteElementString("dato1", txtin0.Text)
            .WriteElementString("dato2", txtin1.Text)
            .WriteElementString("dato3", txtin2.Text)

            .WriteEndDocument()
            .Close()
        End With

    End Sub

Per leggere...

    Sub Reader()

        ds.ReadXml("Resources\db.xml")
        Dim dato1letto As String = ds.Tables("gruppodati1").Rows(0).Item("dato1")
        Dim dato2letto As String = ds.Tables("gruppodati1").Rows(0).Item("dato2")
        Dim dato3letto As String = ds.Tables("gruppodati1").Rows(0).Item("dato3")

        Label1.Text = dato1letto
        Label2.Text = dato2letto
        Label3.Text = dato3letto

End Sub

Per salvare il file xml da codice...

    Sub save_xml()

        ds.WriteXml("Resources\db.xml")

    End Sub

Ovviamente è necessario dichiarare il DataSet in modo che sia visibile a tutti

Dim ds As New Data.DataSet