Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Otvorte Visual Studio alebo Visual Basic Express , kliknite na tlačidlo " súbor " a " New Project " . Akonáhle sa zobrazí nové okno projektu , kliknite na tlačidlo " Visual Basic , Windows " na stromovom zobrazení vyberte ikonu aplikácie konzoly , kliknite na tlačidlo " OK " . Po krátkej chvíli sa zobrazí okno textový editor
2
Pridajte nasledujúce dovoze do hornej časti programu : .
Dovoz System.Collections.Generic
Imports System.IO
Module Module1
Sub Main ( )
Tieto dovozy poskytujú definície triedy SortedList rovnako ako objekty a metódy pre čítanie a zápis textových súborov . Zostávajúce kód bol vytvorený pomocou Visual Studio
3
Vytvoriť zoradený zoznam a vložte ho niektorých údajov : .
Dim štáty ako 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 ( " dodal štáty na zozname : " & states.Count.ToString )
SortedList uvádza teraz obsahuje niekoľko skratky Kód štátu a ich pridruženom štáte mená
4
Napíšte zoradený zoznam do textového súboru : .
Dim názov súboru , ako String = " StateList.txt "
Dim wrtr ako StreamWriter = Nothing
Dim i As Integer
Skúste
wrtr = File.CreateText ( filename)
i = 0 states.Count - 1
wrtr.WriteLine ( states.Keys ( i ) & " , " & states.Values ( i ) )
Ďalšie
Chytiť ex ako výnimka
Console.WriteLine ( " Nemožno zapísať štátny zoznam " a ex.Message )
Späť
Nakoniec
wrtr.Close ( )
End Try
Tu môžete použiť StreamWriter písať kód štátu a názov oddelené čiarkou do textového súboru s názvom stateList.txt
5
Prečítajte si textový súbor späť do druhej SortedList : .
Dim newStates ako nový SortedList ( Of String , String )
Dim rdr ako StreamReader = Nothing
Dim txt As String
Dim s As String ( )
Skúste klipart
RDR = File.OpenText ( súboru )
Kým rdr.EndOfStream = False
txt = rdr.ReadLine
s = txt.Split ( " , " )
newStates.Add ( y ( 0 ) , s ( 1 ) )
End While
Chytiť ex ako výnimka
MsgBox ( " Nemožno prečítať štátny zoznam " a ex.Message )
Späť
Nakoniec
rdr.Close ( )
End Try
Tento blok kódu prečíta súbor jeden riadok naraz do reťazcové premenné , potom použije metódu rozdelenia struny a rozbiť to späť do dvojicami kľúče a hodnoty . Akonáhle sa dvojica sa rozdeliť , oni sú pridané do nového triedeného zoznamu s názvom newStates
6
Zobraziť obsahom nového triedeného zoznamu konzoly : .
I = 0 newStates.Count - 1
Console.WriteLine ( newStates.Keys ( i ) & " - " & newStates.Values ( i ) )
Ďalšie
End Sub
End Module
jednoducho slučky cez triedeného zoznamu a zobraziť každý pár na konzole . Vzhľadom k tomu je triedený zoznam , stavy sú automaticky radené abecedne podľa hodnoty kľúča .
7
Kliknite na " F5 " pre spustenie programu .