November 10
File di larghezza fissa di testo sono un formato di dati in cui le informazioni sono memorizzate in una serie di colonne, ciascuno di larghezza fissa, permettendo qualsiasi computer che conosce la larghezza predefinita di colonne di leggere rapidamente e facilmente i dati senza parsing speciale. Permette anche i dati da stampare in tabelle facilmente leggibili. Tra gli altri usi, i risultati dei comandi MySQL sono comunemente indicate in formato a larghezza fissa. In questo esempio, il programma scriverà un file di testo a larghezza fissa per un database biblioteca titoli, autori, e le date dei libri inseriti nella libreria.
1 Creare un nuovo progetto facendo clic su "File", "Nuovo progetto". Scegliere il tipo "Applicazione console". In seguito, è possibile utilizzare lo stesso codice esatto, senza modifiche, come parte di un interfaccia grafica utente del progetto (GUI). Nome del progetto "Fixed Width Writer."
2 Incollare le seguenti costanti larghezza colonna nella parte superiore del codice sorgente:
Const TITLE_FIELD come numero intero = 25
Const AUTHOR_FIELD come Integer = 15
Cosnt DATE_FIELD come numero intero = 10
3 Incollare i dati della libreria per i libri. Sarà collocato in un array di nome libraryData:
Dim libraryData (,) as String =
{{ "To Kill a Mockingbird", "Harper Lee", "2010/01/23"},
{ "The Stand", "Stephen King", "1992/02/15"}}
4 Creare un file di testo per scrivere come un file di testo a larghezza fissa e creare un "TextFileWriter" per esso:
Dim file di testo come stringa = "nomefile.txt"
dim TextWriter = My.Computer.FileSystem.OpenTextFileWriter (file di testo, False)
Il "False" indica che non si desidera aggiungere i dati nel file.
5 Incollare il seguente di scrivere le intestazioni delle colonne:
textWriter.Write ( "TITLE" .PadRight (TITLE_FIELD))
textWriter.Write ( "autore" .PadRight (AUTHOR_FIELD))
textWriter.Write ( "DATA" .PadRight (DATE_FIELD))
textWriter.WriteLine ()
La funzione principale di questa è la funzione "PadRight": questo attribuisce tanti spazi come necessario alla fine della stringa per renderlo uguale ad un totale del numero specificato di spazi. Ciò consente di stampare ciascuna colonna per una larghezza fissa.
6 Incollare il seguente per scrivere i dati nel file:
Per x As Integer = 0 a libraryData.getLength (0) - 1
textwriter.write(libraryData(x,0).PadRight(TITLE_FIELD)
textwriter.write (libraryData (x, 1) .PadRight (AUTHOR_FIELD)
textwriter.write (libraryData (x, 2) .PadRight (DATE_FIELD)
textWriter.writeLine ()
prossimo
7 Incollare il seguente per chiudere il file:
textWriter.Flush ()
textWriter.Close ()
"Flush" assicura che l'ultimo dei dati è stato scritto nel file.