Se implementado como uma estrutura ou em uma coleção , a par de valores chave fornece uma poderosa ferramenta para desenvolvedores Visual Basic.Net . Uma coleção exclusiva de valores-chave, geralmente uma simples string ou inteiro , aponta para um tipo de dados mais complexo ou a estrutura , permitindo o acesso rápido aos dados . Por exemplo, quando um usuário da Web fornece um ID de usuário , esta tecla pode recuperar a senha e as permissões associadas ao usuário . Após alguns passos, você pode armazenar e recuperar um conjunto de pares de valores -chave simples em um arquivo de texto . Coisas que você precisa
Microsoft Visual Studio ou Visual Basic Express (2005 ou posterior)
Mostrar Mais instruções
1

Abra o Visual Studio ou Visual Basic Express, em seguida, clique em " arquivo " e" New Project " . Quando a janela de novo projeto , clique em " Visual Basic, Windows" na exibição em árvore , selecione o ícone do aplicativo de console , em seguida, clique no botão "OK" . Após uma pequena espera , a janela do editor de texto aparecerá
2

Adicione as seguintes importações ao topo do programa : .

Importações System.Collections.Generic

Imports System.IO

Module Module1

Sub Main ()

Estas importações fornecer definições para a classe SortedList , bem como os objetos e métodos para ler e gravar arquivos de texto . O restante do código foi criado pelo Visual Studio
3

Criar uma lista ordenada e carregá-lo com alguns dados: .

Dim Unidos como 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 ", " Novo México " )

Console.WriteLine (" Unidos adicionado à lista :" & states.Count.ToString )

O SortedList afirma agora contém algumas abreviaturas código estadual e seus nomes associados estaduais
4

Escreva a lista ordenada para um arquivo de texto : .

Dim fileName as String = " StateList.txt "

Dim WRTR Como StreamWriter = Nada

Dim i As Integer

Experimente em

WRTR = File.CreateText ( fileName )

For i = 0 To states.Count - 1

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

Próxima

Pegar ex As Exception

Console.WriteLine (" não é possível gravar lista de estado " & ex.Message )

Retornar

Finalmente

wrtr.Close ()

End Try < br >

Aqui você usa um StreamWriter para escrever o código do estado e nome separados por uma vírgula em um arquivo de texto chamado stateList.txt
5

Leia o arquivo de texto de volta para uma segunda SortedList : .

Dim newStates como nova SortedList (Of String , String)

Dim rdr Como StreamReader = Nothing

Dim txt As String

Dim s As String ()

Experimente em

rdr = File.OpenText ( fileName )

Enquanto rdr.EndOfStream = False

txt = rdr.ReadLine

s = txt.Split ( ",")

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

End While

Pegar ex As Exception < br >

MsgBox ( "Não é possível ler a lista de estado " & ex.Message )

Retornar

Finalmente

rdr.Close ()

End Try

Este bloco de código lê o arquivo uma linha de cada vez em uma variável string, então usa o método de divisão da corda para quebrá-lo de volta para a chave eo valor pares . Uma vez que os pares de obter divisão , eles são adicionados a uma nova lista ordenada chamado newStates
6

Exibir o conteúdo da nova lista ordenada para o console: .

For i = 0 To newStates.Count - 1

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

Próxima

End Sub < br >

End Module

Aqui você simplesmente loop através da lista de classificação e exibir cada par para o console. Como se trata de uma lista ordenada , os estados são automaticamente ordenadas alfabeticamente pelo valor da chave.
7

Clique em " F5" para executar o programa .
< Br >