Om implementert som en struktur eller i en samling, gir nøkkelen verdi paret et kraftig verktøy for Visual Basic.Net utviklere. En unik samling av viktige verdier , som regel en enkel streng eller heltall , peker på en mer kompleks datatype eller struktur , og gir rask tilgang til dataene . For eksempel når en Web bruker gir en bruker-ID , kan denne tasten hente passord og tillatelser knyttet til brukeren . Etter noen få skritt , kan du lagre og deretter hente et sett av enkle sentrale verdi-par i en tekstfil . Du trenger:
Microsoft Visual Studio eller Visual Basic Express ( 2005 eller senere )
Vis flere instruksjoner
en

Åpne Visual Studio eller Visual Basic Express , og klikk " fil " og " New Project ". Når det nye prosjektet vises, klikker du på " Visual Basic, Windows " på trevisningen , velge Console Application ikonet , og klikk deretter på "OK "-knappen . Etter en kort stund , vil teksten editor vinduet vises
2

Legg til følgende import til toppen av programmet : .

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

Module Module1

Sub main ()

Disse importen gi definisjoner for SortedList klasse samt objekter og metoder for å lese og skrive tekstfiler . De resterende koden ble opprettet av Visual Studio
3

Lag en sortert liste og laste den med noen data : .

Dim stater som New SortedList ( Of String , String )

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

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

states.Add ( " UT " , " Utah ")

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

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

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

Console.WriteLine ( " States lagt til listen :" & states.Count.ToString )

SortedList stater nå inneholder noen stat kode forkortelser og . deres forbundet statlige navn
4

Skriv den sorterte listen til en tekstfil : en

Dim filnavn As String = " StateList.txt "

Dim wrtr Som StreamWriter = Ingenting

Dim i As Integer

Prøv

wrtr = File.CreateText (filnavn )

For i = 0 For å states.Count - 1

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

Neste

Catch ex As Exception

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

Return

slutt

wrtr.Close ( )

End Prøv

Her bruker en StreamWriter å skrive staten kode og navn atskilt med et komma i en tekstfil kalt stateList.txt
5

Les teksten filen tilbake til en andre sortedList : .

Dim newStates som ny SortedList ( Of String , String )

Dim rdr Som StreamReader = Ingenting

Dim txt As String

Dim s As String ( )

Prøv

rdr = File.OpenText (filnavn )

Mens rdr.EndOfStream = False

txt = rdr.ReadLine

s = txt.Split ( " ,")

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

End Mens

Catch ex As Exception

MsgBox ( " Kan ikke lese state liste " & ex.Message )

Return

slutt

rdr.Close ( )

End Prøv

Denne blokken med kode leser filen en linje om gangen i en streng variabel , deretter bruker strengens split metoden for å bryte den tilbake i de sentrale og verdi par. Når parene blir splittet , blir de lagt til en ny sortert liste kalt newStates
6

Vise innholdet i den nye sortert liste til konsollen : .

For i = 0 For å newStates.Count - en

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

Neste

End Sub

End Module

Her du bare sløyfe gjennom den sorterte listen og vise hvert par til konsollen. Siden dette er en sortert liste , blir statene automatisk sortert alfabetisk etter sentral verdi.
7

Klikk på " F5 " for å kjøre programmet .