File di testo larghezza fissa sono un formato di dati in cui le informazioni vengono memorizzate in una serie di colonne, ciascuno di una larghezza fissa, permettendo qualsiasi computer che conosce la larghezza predefinita della colonna per rapidamente e facilmente leggere i dati senza l'analisi speciali. Permette, inoltre, i dati da stampare nelle tabelle facilmente leggibile umane. Tra l'altro, i risultati dei comandi di MySQL sono comunemente dato in formato a larghezza fissa. In questo esempio, il programma scriverà un file di testo a larghezza fissa per un database di libreria con titoli, autori e date dei libri entrati in biblioteca.

Istruzioni

1

Creare un nuovo progetto facendo clic su "File", "Nuovo progetto". Scegliere il tipo di "Applicazione Console". Successivamente, è possibile utilizzare lo stesso codice esatto, senza modifiche, come parte di un progetto di interfaccia utente grafica (GUI). Denominare il progetto "Scrittore di larghezza fissa".

2

Incollare le seguenti costanti di larghezza di colonna nella parte superiore del codice sorgente:

Const TITLE_FIELD AsInteger = 25

Const AUTHOR_FIELD AsInteger = 15

Cosnt DATE_FIELD AsInteger = 10

3

Incollare i dati di biblioteca per i libri. Sarà collocato in una matrice denominata libraryData:

Dim libraryData(,) as String =

{{"To Kill a Mockingbird", "Harper Lee", "23/01/2010"},

{"Stand", "Stephen King", "15/02/1992"}}

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 = OpenTextFileWriter (file di testo, False)

Il "falso" indica che non si desidera accodare i dati nel file.

5

Incollare il seguente per scrivere le intestazioni di colonna:

TextWriter. Write ("TITLE". PadRight(TITLE_FIELD))

TextWriter. Write ("autore". PadRight(AUTHOR_FIELD))

TextWriter. Write ("data". PadRight(DATE_FIELD))

textWriter.WriteLine()

La funzione chiave per questo è la funzione "PadRight": Questo associa il numero di spazi necessari alla fine della stringa per renderlo uguale al totale del numero specificato di spazi. Questo consente di stampare ogni colonna a larghezza fissa.

6

Incollare il seguente per scrivere i dati nel file:

As integer for x = 0 to 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()

successivo

7

Incollare il seguente per chiudere il file:

textWriter.Flush()

textWriter.Close()

"A filo" assicura che l'ultimo dei dati è stato scritto nel file.

Consigli & Avvertenze

• Il seguente codice leggerà i dati nuovamente dal file e stamparlo nella console, se si desidera aggiungerlo alla fine del programma:
• Dim reader = My.Computer.FileSystem.OpenTextFileReader(textFile)
• Console.Write(reader.readToEnd())
• Console.ReadKey()