Più che altro, voglio evitare di costruire soluzioni appiccicaticce e arrangiaticce.
Ecco il codice che scrive in un file i contenuti di una serie di caselle di testo create tramite la mia classe griglia(Of T).
Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click FileOpen(1, "C:\users\antonello\fileTest", OpenMode.Random, , , 10) For n As Integer = 0 To gridNames.Count - 1 Dim variabile As persona = Nothing If gridNames(n).text.ToString = "" Then Return Try variabile.nome = gridNames(n).text.ToString.Substring(0, 8) Catch ex As Exception variabile.nome = gridNames(n).text.ToString End Try FilePut(1, variabile.nome, n + 1) Next FileClose(1) End SubCerco di farne una descrizione in termini "umani".
Dopo aver aperto il file, per ognuna delle caselle di testo, inserite nella matrice ArrayList chiamata gridNames:
- creo una variabile del tipo personalizzato persona, destinata ad accogliere il contenuto delle caselle di testo.
- se il contenuto della casella è nullo, esco dalla routine.
- Poi tramite una gestione dell'errore gestisco l'eventualità che il testo della casella di testo sia troppo lungo, e inserisco il suo contenuto nel membro "nome" della variabile.
- Inserisco nel file il record corrispondente.
Mi sembra piuttosto ben fatto, anche se ho dei dubbi sulla necessità di gestire l'errore e sulla necessità dell'uso della variabile in cui "versare" il contenuto della casella di testo.
Nessun commento:
Posta un commento