Programmi Visual Basic - prof.Claudio Maccherani

Programmi Visual Basic - prof. Claudio Maccherani - Perugia - 2009
gestione file di TESTO in Visual Basic 2008

applicazione Alunni0Txt - fiel di testo Alunni.txt

 '+------------------------------------------------------------------------------------------+
 '| Alunni0Txt - applicazione VB2008, esempio di gestione File di TESTO                      |
 '|             (Prof.Claudio Maccherani)                                                    |
 '+------------------------------------------------------------------------------------------+
   Public Class frmAlunni0Txt
    Dim File As String = "Alunni.txt"
    ' al caricamento del form controlla se il file esiste e, se si, lo visualizza -----------
    Private Sub frmAlunni0Txt_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
                                   Handles MyBase.Load
        If Dir(File) = File Then Call Elenco()
    End Sub
    ' creazione iniziale del file (o suo azzeramento, se esiste) ----------------------------
    Private Sub cmdCrea_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
                              Handles cmdCrea.Click
        If MsgBox("CREAZIONE FILE: se esiste sarà azzerato. Continuo ?", vbYesNo) = vbYes Then
            FileOpen(1, File, OpenMode.Output)
            FileClose(1)
            MsgBox("File creato")
        End If
    End Sub
    ' registra una nuova riga ---------------------------------------------------------------
    Private Sub cmdReg_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
                             Handles cmdReg.Click
        Dim riga As String
        If MsgBox("Confermi la registrazione della riga ? ", vbYesNo) = vbYes Then
            riga = txtRiga.Text
            FileOpen(1, File, OpenMode.Append) : PrintLine(1, riga) : FileClose(1)
            Call Elenco() : txtRiga.Text = "" : txtRiga.Focus()
        End If
    End Sub
    ' visualizza sulla list box il file di testo---------------------------------------------
    Private Sub Elenco()
        Dim riga As String : lstA.Items.Clear()
        FileOpen(1, File, OpenMode.Input)
        Do While Not EOF(1) ' legge fino a che l'EOF è "falso"
            riga = LineInput(1)
            lstA.Items.Add(riga)
        Loop
        FileClose(1)
    End Sub
    ' fine programma ------------------------------------------------------------------------
    Private Sub cmdEsci_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
                              Handles cmdEsci.Click
        Me.Close()
    End Sub
 End Class