Om implementeret som en struktur eller i en samling , nøglen værdi parret giver et kraftfuldt værktøj til Visual Basic.Net udviklere. En unik samling af centrale værdier , som regel en simpel snor eller heltal, peger på en mere kompleks datatype eller struktur , der giver hurtig adgang til data. For eksempel, når en web bruger giver en bruger-ID kan denne tast hente adgangskoden og tilladelser knyttet til brugeren . Efter et par skridt, kan du gemme og derefter hente et sæt enkle centrale værdi par i en tekstfil . Ting du har brug
Microsoft Visual Studio eller Visual Basic Express ( 2005 eller senere )
Vis Flere Instruktioner
1

Open Visual Studio eller Visual Basic Express, og klik derefter på " Fil "og" Nyt projekt ". Når det nye projekt vises , klik på " Visual Basic, Windows" på trævisningen vælger Console Application ikonet , og klik derefter på " OK" knappen. Efter en kort ventetid , vil teksteditor vindue
2

Tilføj følgende import til toppen af ​​programmet: .

Import System.Collections.Generic
< p > import System.IO

Modul Module1

Sub Main ()

Denne import giver definitioner for SortedList klassen samt genstande og metoder til at læse og skrive tekstfiler . Den resterende kode blev skabt af Visual Studio
3

Opret en sorteret liste , og læg det med nogle data : .

Dim stater som New SortedList ( Of String , String )

states.Add ( " CA ", " California " )

states.Add ( " NV ", " Nevada " )

states.Add ( " UT " " Utah " )

states.Add ( "AZ ", " Arizona " )

states.Add ( " CO ", " Colorado " )

states.Add ( " NM ", " New Mexico " )

Console.WriteLine ( "stater tilføjet til listen : " & states.Count.ToString )

SortedList stater indeholder nu et par staten kode forkortelser og . deres associeret stat navne
4

Skriv den sorterede liste til en tekstfil : Hej

Dim filnavn som String = " StateList.txt "

Dim wrtr Som StreamWriter = Nothing

Dim i As Integer

Prøv

wrtr = File.CreateText ( filename)

For i = 0 Til states.Count - 1 < br >

wrtr.WriteLine ( states.Keys ( i) & " , " & states.Values ​​( i))

Næste

Fang ex Som Exception

Console.WriteLine ( "Kan ikke skrive state liste " & ex.Message )

Return

Endelig

wrtr.Close ()

End Prøv < br >

Her bruger en StreamWriter at skrive staten kode og navn adskilt af et komma i en tekstfil kaldet stateList.txt
5

Læs tekstfilen tilbage i en anden sortedList : . < br >

Dim newStates Som ny SortedList ( Of String , String )

Dim RDR Som StreamReader = Nothing

Dim txt As String

Dim s As String ()

Prøv

RDR = File.OpenText ( filename)

rdr.EndOfStream = False

txt = rdr.ReadLine

s = txt.Split ( ",")

newStates.Add (r (0), s (1) )

End Mens

Fang ex Som Exception < br >

MsgBox ( "Kan ikke læse state liste " & ex.Message )

Return

Endelig

rdr.Close ()

End Prøv

Denne blok af kode læser filen én linje ad gangen i en streng variabel, så bruger strengens split metode til at bryde det tilbage i de centrale og værdi par. Når parrene bliver delt , føjes de til et nyt sorteret liste kaldet newStates
6

Vis indholdet af den nye sorteret liste til konsollen : .

For i = 0 Til newStates.Count - 1

Console.WriteLine ( newStates.Keys ( i) & " - " & newStates.Values ​​( i))

Næste

End Sub < br >

End Module

Her simpelthen løkken gennem sorteres listen og vise hvert par til konsollen. Da dette er en sorteret liste , er de stater automatisk sorteret alfabetisk efter nøgleværdi .
7

Klik på " F5 " for at køre programmet.
< Br >