Rellenar un cuadro de lista Visual Basic Con Piezas únicas de un archivo de texto

Los datos en archivos no es habitualmente único, así que los programadores necesitan saber cómo eliminar rápidamente los valores repetidos antes de añadirlos a un control de cuadro de lista. La mejor manera de hacer esto es leer los datos del archivo en una matriz de cadenas . En Visual Basic , puede utilizar el método de " Distinto ", que devuelve una secuencia desordenada que no contiene valores duplicados. Guarde los valores distintos de una nueva matriz de cadenas y el uso de la matriz como origen de datos del control de cuadro de lista. Instrucciones
1

Haga clic en el Windows botón " Inicio" , haga clic en el cuadro de texto que dice " Buscar programas y archivos ", escriba "notepad " y presionar "Enter " para iniciar el Bloc de notas . Tipo " 1 " y presionar "Enter " , escriba " 1 " de nuevo y presionar "Enter" , escriba " 2 " y pulse " Enter" , escriba " 2 " de nuevo y presionar " Enter". Añadir " 3 " y " 4 " con la misma técnica . Guarde el archivo en una carpeta de su equipo como " myValues.txt . "
2

lanzamiento Microsoft Visual Basic Express y haga clic en "Nuevo proyecto " en el panel izquierdo de la pantalla del ordenador . Haz clic a continuación Plantillas instaladas " Visual Basic" , haga clic en " Aplicación de Windows Forms " y haga clic en "Aceptar " para iniciar un nuevo proyecto.
3

doble clic en el control " ListBox " en la panel " Toolbox" para agregar uno a su forma . Añadir un " botón " con la misma técnica .
4

doble clic en el botón para crear un evento de clic de botón. Agregue el código siguiente para crear sus variables:

fname Dim As String Dim

arrayValores ( 10 ) As String Dim

uniqueArray ( 10 ) Como
secuencia

xCntr Dim As Integer
5

Defina la ruta de acceso al archivo de texto:

fname = "C : \\ myValues.txt "
6

Loop a través de los datos en el archivo de texto y guardarlo en una matriz de cadenas :

Si System.IO.File.Exists ( fname ) = True Luego

objReader Dim As New System.IO.StreamReader ( fname )

Do While objReader.Peek () < > -1

arrayValores ( xCntr ) = objReader.ReadLine

xCntr + = 1
< p> Loop

demás

MsgBox ( " el archivo no existe " )

End If
7

Guardar los datos de una matriz de cadenas a otra matriz de cadenas con valores únicos :

uniqueArray = valueArray.Distinct.ToArray
8

Utilice la matriz de cadenas con valores únicos como la fuente de datos para el control de cuadro de lista :

Me.ListBox1.DataSource = uniqueArray
9

Press "F5 " para ejecutar el programa y haga clic en " Button1 ".