Llenar un cuadro de lista de Visual Básico Con únicos elementos de un archivo de texto

Los datos en los archivos no es comúnmente único, así que los programadores necesitan saber cómo eliminar de forma rápida 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 VB, 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 utilizar esa matriz como el 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 presionar "Enter"; escriba "2" de nuevo y presionar "Enter". Añadir "3" y "4" usando la misma técnica. Guarde el archivo en una carpeta en su computadora como "myValues.txt."

2 Lanzamiento de Microsoft Visual Basic Express y haga clic en "Nuevo proyecto" en el panel izquierdo de la pantalla del ordenador. Haga clic en "Visual Basic" por debajo de Plantillas instaladas, haga clic en "Aplicación de Windows Forms", haga clic en "OK" para iniciar un nuevo proyecto.

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

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

Dim como secuencia fName

Dim valueArray(10) As String

Dim uniqueArray (10) As String

Dim xCntr como número entero

5 Definir la ruta de acceso al archivo de texto:

fName = "C: \ myValues.txt"

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

Si System.IO.File.Exists (fName) = entonces verdad

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

Hacer mientras que objReader.Peek () & lt;> -1

arrayValores (xCntr) = objReader.ReadLine

xCntr + = 1

Lazo

Más

MsgBox ( "El archivo no existe")

Terminara si

7 Guardar los datos de una matriz de cadenas a otra matriz de cadena 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 Pulse la tecla "F5" para ejecutar el programa y haga clic en "Button1".