Vare genomförs som en struktur eller i en samling , ger nyckeln värdet paret ett kraftfullt verktyg för Visual Basic.Net utvecklare . En unik samling av viktiga värden , vanligtvis en enkel sträng eller heltal , pekar på en mer komplex datatyp eller struktur , ger snabb tillgång till uppgifterna . Till exempel när en webbanvändare ger ett användar-ID , kan denna knapp hämta lösenord och behörigheter associerade med användaren . Efter några steg , kan du lagra och sedan hämta en uppsättning enkla Nyckelvärdesparen i en textfil . Saker du behöver
Microsoft Visual Studio eller Visual Basic Express ( 2005 eller senare )
Visa fler instruktioner
1
Öppna Visual Studio eller Visual Basic Express , klicka sedan på " Arkiv " och " Nytt projekt . " När det nya projektet visas klickar " Visual Basic , Windows " på trädvyn väljer du ikonen Console Application , klicka sedan på " OK " -knappen . Efter en kort väntetid , kommer textredigeringsfönstret visas
2
Lägg följande importen till toppen av programmet : .
Import System.Collections.Generic
import System.IO
modul Module1
Sub Main ( ) katalog
Denna import ger definitioner för SortedList klassen samt de objekt och metoder för att läsa och skriva textfiler . Resterande koden skapades av Visual Studio
3
Skapa en sorterad lista och ladda den med vissa uppgifter : .
Dim stater som New SortedList ( String , String )
states.Add ( " CA " , " California " ) katalog
states.Add ( " NV " , " Nevada " ) katalog
states.Add ( " UT " , " Utah " ) katalog
states.Add ( " AZ " , " Arizona " ) katalog
states.Add ( " CO " , " Colorado " ) katalog
states.Add ( " NM " , " New Mexico " ) katalog
Console.WriteLine ( " stater läggas till listan : " & states.Count.ToString ) katalog
SortedList påstår nu innehåller några förkortningar stat kod och . deras associerade statens namn
4
Skriv den sorterade listan till en textfil :
Dim filnamn As String = " StateList.txt "
Dim wrtr som StreamWriter = Nothing
Dim I As Integer
Prova
wrtr = File.CreateText (filename ) katalog
För i = 0 att states.Count - 1
wrtr.WriteLine ( states.Keys ( i) & " , " & states.Values ( i) ) katalog
Nästa
Fånga ex Som Exception
Console.WriteLine ( " Kan inte skriva state lista " & ex.Message ) katalog
Return
Slutligen
wrtr.Close ( ) katalog
End Försök
Här du använder en StreamWriter att skriva statens kod och efternamn separeras med ett kommatecken i en textfil som heter stateList.txt
5
Läs textfilen tillbaka i en andra sortedList : .
Dim newStates Som Nytt SortedList ( String , String ) katalog
Dim rdr Som StreamReader = Nothing
Dim txt As String
Dim s As String ( )
Prova
RDR = File.OpenText (filename ) katalog
rdr.EndOfStream = False
txt = rdr.ReadLine
s = txt.Split ("," ) katalog
newStates.Add (s ( 0 ) , s ( 1 ) ) katalog
Slut Medan
Fånga ex Som Exception
MsgBox ( " Kan inte läsa state lista " & ex.Message ) katalog
Return
Slutligen
rdr.Close ( ) katalog
End Försök
kodblock läser filen en rad i taget i en sträng variabel , använder sedan strängens split metod för att bryta den tillbaka till de centrala och värde par . När paren får delas upp, läggs de till en ny sorterad lista som kallas newStates
6
Visa innehållet i den sorterade nya listan till konsolen : .
För i = 0 till newStates.Count - en
Console.WriteLine ( newStates.Keys ( i) & " - " & newStates.Values ( i) ) katalog
Nästa
End Sub
ändmodul
Här du helt enkelt slinga genom den sorterade listan och visa varje par till konsolen . Eftersom detta är en sorterad lista , är tillstånden sorteras automatiskt i alfabetisk ordning efter nyckelns värde . Klicka på " F5 " för att köra programmet
7
.
