Maak een nieuw project door te klikken op " File ", " New Project . " Kies de " Console Application " type. Later kunt u exact dezelfde code gebruiken , zonder wijziging , als onderdeel van een Graphical User Interface ( GUI ) project . Noem het project " . Vaste breedte Schrijver van " kopen van 2

Plak volgende kolombreedte constanten aan de top van de broncode :

Const TITLE_FIELD
als integer = 25

Const AUTHOR_FIELD als integer = 15

Cosnt DATE_FIELD
als integer = 10
3

Plak de bibliotheek gegevens voor de boeken . Het zal worden geplaatst in een array genaamd libraryData :

Dim libraryData
( , ) als String =

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

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

Maak een tekstbestand te schrijven als een vaste breedte tekstbestand en maak een " TextFileWriter " voor het :

Dim tekstbestand
als koord = " filename.txt "

dim TextWriter
= My.Computer.FileSystem.OpenTextFileWriter ( tekstbestand , False ) < br >

de " Valse " geeft aan dat u niet wilt de gegevens toevoegen in het bestand .

Paste 5 het volgende aan de column schrijven belangrijkste functie is de functie " PadRight " : deze hecht zoveel ruimte als nodig is om het einde van de tekenreeks toegewezen gelijk aan het totaal van de gegeven aantal ruimtes maken . Hierdoor kunt u elke kolom een vaste breedte afdrukt
6

Plak volgende om de gegevens te schrijven naar het bestand : .

X zo integer = 0 tot libraryData.getLength ( 0 ) -
7

Plak volgende om het bestand te sluiten :

textWriter.Flush
( )

textWriter.Close ( )

" Flush " zorgt ervoor dat de laatste van de gegevens zijn geschreven naar het bestand .