Come scrivere una lista di coppie di valori chiave in VB.NET

Che sia implementata come una struttura o di una collezione , la coppia di valori chiave fornisce un potente strumento per gli sviluppatori Visual Basic.Net . Una collezione unica di valori chiave , di solito una semplice stringa o numero intero , punta a un tipo di dati più complessi o struttura , che consente un rapido accesso ai dati . Ad esempio, quando un utente Web fornisce un ID utente , questa chiave può recuperare la password e autorizzazioni associate con l'utente . A seguito di alcuni passi , è possibile memorizzare e poi richiamare una serie di semplici coppie di valori chiave in un file di testo . Cose che ti serviranno
Microsoft Visual Studio o Visual Basic Express (2005 o versioni successive ) economici Mostra più istruzioni
1

Aprire Visual Studio o Visual Basic Express , quindi fare clic su " file "e" Nuovo progetto ". Quando viene visualizzata la nuova finestra di progetto , fare clic su " Visual Basic , Windows" a vista ad albero , selezionare l'icona di applicazione console , quindi fare clic sul pulsante "OK" . Dopo una breve attesa , viene visualizzata la finestra di editor di testo
2

Aggiungere i seguenti importazioni alla parte superiore del programma : .

Importazioni System.Collections.Generic

Imports System.IO

Module Module1

Sub Main ( ) per

Queste importazioni forniscono le definizioni per la classe SortedList , nonché gli oggetti ei metodi per leggere e scrivere file di testo . Il codice rimanente è stato creato da Visual Studio
3

creare un elenco ordinato e caricarlo con alcuni dati : .

Stati Dim As New SortedList (Of String, String )

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

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

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

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

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

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

Console.WriteLine (" Uniti hanno aggiunto alla lista : " & states.Count.ToString ) per

SortedList stati ora contiene alcuni codici abbreviazioni Stato e . loro associati nomi di stato
4

Scrivi la lista ordinata in un file di testo :

Dim fileName As String = " StateList.txt "

Dim WRTR Come StreamWriter = Nothing

Dim i As Integer

Prova

WRTR = File.CreateText ( fileName ) per

For i = 0 To states.Count - 1 < br

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

Successivo

catch ex As Exception

Console.WriteLine ( "Impossibile scrivere lista di stato " e ex.Message ) per

Torna

Infine

wrtr.Close ( ) per

End Try

Qui si utilizza un StreamWriter per scrivere il codice di stato e il nome separati da una virgola in un file di testo chiamato stateList.txt
5

leggere il file di testo di nuovo in un secondo SortedList : .

Dim newStates As New SortedList (Of String, String ) per

Dim rdr Come StreamReader = Nothing

Dim txt As String

Dim s As String ( )

Prova

rdr = File.OpenText ( fileName ) per

Mentre rdr.EndOfStream = False

txt = rdr.ReadLine

s = txt.Split ( " , " ) per

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

End While

catch ex As Exception < br

MsgBox > ( "Impossibile leggere l'elenco dello stato" e ex.Message ) per

Torna

Infine

rdr.Close ( ) per

End Try

Questo blocco di codice legge il file una riga alla volta in una variabile stringa , quindi utilizza metodo split della stringa di rompere nuovamente dentro la chiave e il valore di coppia. Una volta che le coppie vengono divise , vengono aggiunti a un nuovo elenco ordinato chiamato newStates
6

visualizzare il contenuto del nuovo elenco ordinato alla console : .

For i = 0 To newStates.Count - 1

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

Avanti

End Sub

End Module

Qui ciclo semplicemente attraverso l' elenco ordinato e visualizzare ogni coppia alla console . Dal momento che questo è un elenco ordinato , gli stati vengono ordinati automaticamente in ordine alfabetico per valore di chiave .
7

Clicca "F5" per eseguire il programma .

• Come codice DateDiff Con DateTimePicker in VB.NET 
• Tutorial Visual Basic OLE Automation