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 ".