Public Class abruzzo


    Dim TabDati As New DataTable

    'funzione per salvare i dati in file di testo
    Private Sub SalvaDati()
        Dim Svf As SaveFileDialog = New SaveFileDialog()
        Svf.Filter = "Documento di testo (*.txt)|*.txt"
        Svf.AddExtension = True
        If (Svf.ShowDialog(Me) = Windows.Forms.DialogResult.OK) Then

            Dim r, c As Integer
            Dim wrf As System.IO.StreamWriter = New System.IO.StreamWriter(Svf.FileName, False)
            Dim line As String = ""

            Me.TabDati.AcceptChanges()

            For r = 0 To Me.TabDati.Rows.Count - 1
                line = ""
                For c = 0 To Me.TabDati.Columns.Count - 1
                    line = line & Me.TabDati.Rows(r)(c) & "###"
                Next
                If line.EndsWith("###") Then
                    line = line.Remove(line.Length - 6, 6)
                End If
                wrf.WriteLine(line)
            Next

            wrf.Close()
            wrf = Nothing

            MsgBox("salvataggio effettuato")
        End If
        Svf.Dispose()
        Svf = Nothing
    End Sub

    Public Sub CaricaFile()
        Dim opn As OpenFileDialog = New OpenFileDialog()
        opn.Filter = "Documento di testo (*.txt)|*.txt"
        opn.AddExtension = True
        opn.Multiselect = False
        If (opn.ShowDialog(Me) = Windows.Forms.DialogResult.OK) Then
            'cancella il contenuto del dt
            TabDati.Clear()

            Dim rdf As System.IO.StreamReader = New System.IO.StreamReader(opn.FileName)
            Dim line As String = rdf.ReadLine()
            Dim riga As DataRow

            While line Is Nothing = False
                riga = Me.TabDati.NewRow()
                riga(0) = Split(line, "###")(0)
                riga(1) = Split(line, "###")(1)
                riga(2) = Split(line, "###")(2)
                riga(3) = Split(line, "###")(3)
                riga(4) = Split(line, "###")(4)
                riga(5) = Split(line, "###")(5)
                Me.TabDati.Rows.Add(riga)
                line = rdf.ReadLine()
            End While
            rdf.Dispose()
            rdf.Close()

            Me.DataGridView1.DataSource = Me.TabDati
        End If
        opn.Dispose()
        opn = Nothing
    End Sub



    Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick

    End Sub


    Private Sub abruzzo_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        TabDati.Columns.Add("DATA")
        TabDati.Columns.Add("OGGETTO")
        TabDati.Columns.Add("CATEGORIE")
        TabDati.Columns.Add("IMPORTO")
        TabDati.Columns.Add("VINCITORE")
        TabDati.Columns.Add("RIBASSO")

        Me.DataGridView1.DataSource = Me.TabDati
    End Sub

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

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.CaricaFile()

    End Sub
End Class