Of geïmplementeerd als een structuur of in een verzameling , de belangrijkste waarde paar biedt een krachtige tool voor Visual Basic.Net ontwikkelaars . Een unieke collectie van belangrijke waarden , meestal een eenvoudige string of integer , wijst op een meer complexe data type of structuur , zodat u snel toegang tot de gegevens . Bijvoorbeeld , wanneer een internetter biedt een gebruikers-ID , deze sleutel kan het wachtwoord en machtigingen in verband met de gebruiker te halen . Na een paar stappen , kunt u opslaan en vervolgens ophalen van een reeks eenvoudige belangrijke waarde paren in een tekstbestand . Wat je nodig hebt
Microsoft Visual Studio of Visual Basic Express ( 2005 of later ) op Twitter Toon Meer Aanwijzingen
1 Open Visual Studio of Visual Basic Express en klik op ' bestand " en " New Project . " Wanneer het nieuwe project venster verschijnt , klikt u op " Visual Basic , Windows " op de verkenner , kies het pictogram Toepassing Console , klik op de knop "OK " . Na een korte wachttijd , zal het venster teksteditor verschijnen kopen van 2 Voeg de volgende invoer naar de top van het programma : . Imports
System.Collections.Generic
invoer System.IO
Module Module1
Sub Main ( ) op Deze invoer geven definities voor de SortedList klasse evenals de objecten en methoden om te lezen en schrijven van tekstbestanden . De rest van de code is gemaakt met Visual Studio
3 Maak een gesorteerde lijst en laad het met een aantal gegevens : . Dim staten
als Nieuwe 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
( " Staten toegevoegd aan de lijst : " & states.Count.ToString ) op Twitter De SortedList staten bevat nu een paar staatcode afkortingen en . hun bijbehorende namen staat
4 Schrijf de gesorteerde lijst naar een tekstbestand : Dim fileName
As String = " StateList.txt " Dim wrtr
Zoals StreamWriter = niets
Dim i As Integer
Probeer wrtr = File.CreateText ( fileName ) op
Voor i = 0 To states.Count - 1 < br wrtr.WriteLine ( states.Keys ( i ) & " , " & states.Values ( i ) ) > Volgende
Catch ex als Uitzondering
Console.WriteLine ( " Kan niet schrijven state list " & ex.Message ) Terug wrtr.Close (
slotte
) End of Probeer < br > Hier vindt u een StreamWriter gebruiken om de staat code en naam gescheiden door een komma in een tekstbestand genaamd stateList.txt schrijven
5 Lees het tekstbestand terug in een tweede SortedList : . < br Dim newStates als Nieuwe SortedList ( Of String , String) Dim rdr
> Zoals StreamReader = Nothing
Dim txt As String
Dim s As String ( )
Probeer rdr = File.OpenText ( fileName ) op
Terwijl = False
txt = rdr.ReadLine
rdr.EndOfStream s = txt.Split ( " , " ) newStates.Add
( s ( 0 ) , s ( 1 ) ) Einde
Terwijl
Catch ex als Uitzondering < br MsgBox > ( " Kan niet lezen state list " & ex.Message ) Terug rdr.Close (
slotte
) End of Probeer
Dit blok code leest het bestand een regel per keer in een string variabele , dan maakt gebruik van split -methode van de snaar om het terug te breken in de sleutel en waarde paren . Zodra de paren uit elkaar worden , worden ze toegevoegd aan een nieuwe gesorteerde lijst genaamd newStates
6 Geef de inhoud van de nieuwe gesorteerde lijst op de console : .
Voor i = 0 To newStates.Count - 1 Console.WriteLine
( newStates.Keys ( i ) & " - " & newStates.Values ( i ) ) op Volgende End of Sub < br End Module
> Hier kunt gewoon lus door de gesorteerde lijst en toont elk paar aan de console . Aangezien dit een gesorteerde lijst , de staten worden automatisch alfabetisch door de belangrijkste waarde
7
< br gesorteerd worden. Klik op " F5 " om het programma uit te voeren . > |
