• 
  

  hur man skriver fast bredd textfiler med Visual Basic

  
  

Fast bredd textfiler är ett dataformat som information lagras i en serie kolumner , var och en av en fast bredd , vilket gör att alla datorer som känner till fördefinierade bredden på kolumnen för att snabbt och enkelt läsa data utan särskild analys. Det ger också data som ska skrivas i mänskliga lättläst tabeller . Bland andra användningsområden, är resultatet av MySQL kommandon som ofta ges i fast bredd format . I det här exemplet kommer programmet att skriva en fast bredd textfil för ett bibliotek databas med titlar , författare och datum för böckerna in i biblioteket .
1 .
Skapa ett nytt projekt genom att klicka på "Fil ", " 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 . Namn projektet " Fast bredd Writer . "
2
Klistra in följande kolumnbredden konstanter på toppen av källkoden .



Const TITLE_FIELD som heltal=25

Const AUTHOR_FIELD som heltal=15

Cosnt DATE_FIELD som heltal=10
3 .
Klistra biblioteket data för böcker . Det kommer att placeras i en array med namnet libraryData :



Dim libraryData (, ) som String=

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

{ " The Stand " , " Stephen King " , " 1992/02/15 " } }
4 .
Skapa en textfil att skriva som en fast bredd textfil och skapar en " TextFileWriter " för det :



Dim textfil som String=" filnamn. typ "

dim textförfattare=My. Computer. FileSystem. OpenTextFileWriter ( textfil , False )



de "falska "anger att du inte vill lägga till data i filen .
5
Klistra in följande för att skriva kolumnrubrikerna .



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

textWriter. Write ( "författare " . PadRight ( AUTHOR_FIELD ) )

textWriter. Write ( "DATE " . PadRight ( DATE_FIELD ) )

textWriter. WriteLine ( )



central funktion för detta är " PadRight " funktion : denna fäster så många platser som behövs för att i slutet av strängen för att göra Det motsvarar en total av det givna antalet platser . Detta kan du 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 )-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 ( )

nästa
.
7
Klistra in följande för att stänga filen:



textWriter. Flush ( )

textförfattare . Close ()



" Flush " garanterar att den sista av de data har skrivits till filen .


tips och varningar




Följande kod kommer att läsa tillbaka data från filen och skriva ut dem till konsolen , om du vill lägga till det till slut av ditt program :

Dim läsare=My. Computer. FileSystem. OpenTextFileReader ( textfil )

Console. Write ( reader. readToEnd ())

Console . ReadKey ()

Previous：nothing Next：hur du lägger till en vagnretur till en textfil med php

Relaterade artiklar