Programación VB Importe el archivo de texto en el cuadro de lista palabra por palabra.
Primero, lea el archivo en la variable de memoria AT:
dim a as string
dim at as string
Abrir "c:\1.txt" para Ingrese como #1 'c:\1.txt es la ubicación de su archivo
Haga mientras no EOF(1) 'Repita si no leyó la última línea
entrada de línea #1 , a
at = at amp; a
Bucle
Cerrar #1
at = reemplazar(at, vbcrlf, "" ) 'Eliminar nuevas líneas
Luego agregar a la lista:
List1.Clear
for i = 1 to len(at)
List1 .AddItem Mid(en, i, 1)
siguiente i