Fast bredd textfiler är ett dataformat som information lagras i en serie kolumner , var och en av en fast bredd , så att alla datorer som känner den fördefinierade bredd kolumn för att snabbt och enkelt läsa data utan särskild parsning . Det gör även de data som ska skrivas i mänskliga lättlästa tabeller . Bland andra användningsområden , är resultatet av MySQL -kommandon vanligen ges i fast bredd format . För detta exempel , kommer programmet att skriva en fast bredd textfil för ett bibliotek databas med titlar , författare och datum för de böcker som tas upp i biblioteket . Instruktioner
1
Skapa ett nytt projekt genom att klicka på " File ", " Nytt projekt . " Välj " Console Application " typ . Senare kan du använda exakt samma kod , utan ändringar , som en del av ett grafiskt användargränssnitt ( GUI ) projekt . Namnge projektet " . Fast bredd Writer "
2
klistra in följande konstanter kolumnbredden på toppen av källkoden :
Const TITLE_FIELD som heltal = 25
Const AUTHOR_FIELD som heltal = 15
Cosnt DATE_FIELD som heltal = 10 Addera 3
Klistra bibliotekets data för böckerna . Den kommer att placeras i en grupp som heter libraryData :
Dim libraryData ( , ) As String =
{ { " To Kill a Mockingbird " , " Harper Lee " , " 01/23/2010 " } ,
{ " The Stand " , " Stephen King " , " 1992/02/15 " } }
4
Skapa en textfil att skriva som en fast bredd textfil och skapa en " TextFileWriter " för det :
Dim textfil som string = " filnamn.typ "
dim textWriter = My.Computer.FileSystem.OpenTextFileWriter ( textfil , False )
" False " anger att du inte vill lägga till data i filen .
5
klistra in följande för att skriva kolumnen viktig funktion för detta är den " PadRight " -funktion : det fäster så många platser som behövs för att i slutet av strängen så att det motsvarar sammanlagt det angivna antalet blanksteg . Detta gör att du kan skriva ut varje kolumn till en fast bredd
6
Klistra in följande för att skriva data till filen : .
För x As Integer = 0 till libraryData.getLength ( 0 ) -
7
Klistra in följande för att stänga filen :
textWriter.Flush ( ) katalog
textWriter.Close ( ) katalog
" Flush " säkerställer att den sista av data har skrivits till filen .
