Microsoft Visual Studio o Visual Basic Express ( 2005 o posterior)
Ver Más instrucciones
1
Abra Visual Studio o Visual Basic Express , haga clic en " archivo " y" Nuevo proyecto " . Cuando aparezca la nueva ventana del proyecto , haga clic en "Visual Basic , Windows " en la vista de árbol , seleccione el icono de la aplicación de consola , a continuación, haga clic en el botón " OK" . Después de una corta espera , aparecerá la ventana del editor de texto
2
Agregue las siguientes importaciones a la parte superior del programa : .
Importaciones System.Collections.Generic
< p > Imports System.IO
Module Module1
Sub Main ()
Estas importaciones proporcionan definiciones para la clase SortedList , así como los objetos y métodos para leer y escribir archivos de texto . El código restante fue creado por Visual Studio
3
Crear una lista ordenada y cargar con algunos datos : .
Estados Dim As 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 ( " Unidos añadieron a la lista :" & states.Count.ToString )
SortedList estados ahora contiene algunas abreviaturas del código estatal y . sus nombres asociados estatales
4
Escribir la lista ordenada de un archivo de texto :
fileName As String = " StateList.txt "
WRTR As StreamWriter = Nothing
Dim i As Integer
Trate
WRTR = File.CreateText ( fileName )
For i = 0 To states.Count - 1
wrtr.WriteLine ( states.Keys ( i ) & ", " & states.Values ( i ))
Siguiente
Catch ex As Exception
Console.WriteLine ( " no se puede escribir la lista estatal " & ex.Message )
Volver
Finalmente
wrtr.Close ()
End Try
Aquí se utiliza un StreamWriter para escribir el código del estado y el nombre separado por una coma en un archivo de texto llamado stateList.txt
5
Leer el archivo de texto nuevo en un segundo sortedList : .
newStates Dim As New SortedList ( Of String , String )
rdr As StreamReader = Nothing
Dim txt As String
Dim s As String ()
Prueba
rdr = File.OpenText ( fileName )
Mientras rdr.EndOfStream = False
txt = rdr.ReadLine
s = txt.Split (", " )
newStates.Add ( s ( 0 ) , s ( 1 ))
End While
Catch ex As Exception
MsgBox ( "No se puede leer la lista de estado " y ex.Message )
Volver
Finalmente
rdr.Close ()
End Try
Este bloque de código lee la línea del archivo de uno en uno en una variable de cadena, a continuación, utiliza el método de reparto de la cuerda para romper de nuevo en los pares de clave y valor. Una vez que las parejas quedan divididas , que se agregan a una nueva lista ordenada llamada newStates
6
mostrar el contenido de la nueva lista ordenada en la consola: .
For i = 0 To newStates.Count - 1
Console.WriteLine ( newStates.Keys ( i ) & " - " & newStates.Values ( i ) ) guía
Siguiente
End Sub
Final
Módulo
Aquí simplemente recorrer la lista ordenada y mostrar cada par a la consola. Como se trata de una lista ordenada , los estados se ordenan automáticamente en orden alfabético por valor clave.
7
clic en "F5 " para ejecutar el programa.