Visual Basic gör det ganska lätt att skriva data till en fil på hårddisken . Ett viktigt beslut som du måste göra innan du börjar , dock om du vill skriva data som linjer av enkla textsträngar som kunde läsas senare i valfri textredigerare eller som binär data som bara kan läsas in i en annan . datorprogram
Du behöver : .
Visual Basic
skriver text Data
1
Skapa ett nytt Visual Basic-projekt . klicka på " File " och "Skapa ny Pproject . " Fortsätt att klicka på " Nästa "eller "OK "på någon dialogrutor som presenteras för dig . För alla dessa , kommer den förvalda alternativ vara tillräckligt.
Du kommer att vara redo att gå vidare till steg 2 när du är stirrar på ett tomt fönster i Visual Basic GUI designer .
2 .
Sök komponenten listan till vänster sida av skärmen tills du hittar " Button "kontroll . Klicka och dra denna kontroll i formuläret . Gå till fastigheten rutan längst ner till höger och hitta egenskapen text . Ändra det att läsa " Write -datafil. "
3 .
Dubbelklicka på knappen . Detta kommer att leda till att du lämnar GUI -gränssnittet och ange redaktör källkod . En funktion kommer automatiskt att skapas för dig att representera en knapp tryck händelsen . Sätt in följande kod som fungerar :
Dim kodning som System. Text. ASCIIEncoding=Nya System. Text. ASCIIEncoding ( )
Dim ut som System. IO. StreamWriter
ut=My. Computer. FileSystem. OpenTextFileWriter ( "c : \ test. dat " , False , kodning )
out. WriteLine ( "Data")
out. WriteLine ( " 23 32 43 54 " )
out. Flush ( )
Going rad för rad , definierar denna textkodning för att användas som ASCII, som kan kunna förstås av nästan alla operativsystem och textredigeringsprogram . Därefter definierar det ett gränssnitt för att skriva till hårddisken med hjälp av den inbyggda " StreamWriter " klass , och använder " OpenTextFileWriter " klass för att ansluta den till en fil. Den markerade filen i detta fall är C: \ test. dat , men du kan ersätta detta med vad du vill . Nästa argument , " False ", berättar StreamWriter att vi inte vill lägga vår text till den här filen , men först torka av filen och ersätta den med vår nya text . Den talar filen att använda vår ASCII -kodning .
Du kan sedan skriva alla data du vill filen som kan översättas med Visual Basic till och från en sträng. I det här exemplet är två rader skrivs. Den första innehåller en sträng , " Data " och den andra innehåller en rad siffror .
Den sista raden är mycket viktig. Spolningen kommandot talar om för operativsystemet att skriva alla data i filen . Om detta kommando är slutade , är det möjligt vissa uppgifter inte kommer att skrivas.
skriva binära data
1 .
Följ steg 1 från avsnitt 1 .
2
Följ steg 2 från avsnitt 1
3
Skriv följande kod : .
String str=" DATA "
Dim kodning som nya system. Text. ASCIIEncoding ( )
Dim aString som byte=encoding. GetBytes ( str )
My. Computer. FileSystem. WriteAllBytes ( "c : \ test2. dat " , aString , False )
Dim aNumber ( 0 till 2) As Byte
aNumber (0 )=33
aNumber ( 1 )=23
My. Computer. FileSystem . WriteAllBytes ( "c : \ test2. dat " , aNumber , True )
I koden från första avsnittet kommer att skriva data till hårddisken som vanlig text , kommer detta skriva data direkt till disken i binär , vilket kan vara mycket mer yteffektiva . Men , för att använda den inbyggda kommandot " WriteAllBytes "för att uppnå detta måste vi först konvertera data vi vill skrivas till en byte array. Exempel ges ovan för att konvertera en sträng till en byte array med hjälp av " GetBytes " funktion ASCIIEncoding klass och för att helt enkelt skriva ut byte .