Ver Mensaje Individual
  #5 (permalink)  
Antiguo 28/05/2008, 13:15
forrestgump
 
Fecha de Ingreso: mayo-2008
Mensajes: 33
Antigüedad: 16 años
Puntos: 0
Respuesta: Re: Llenar Combo a aprtir de un archivo .txt

Cita:
Iniciado por Avellaneda Ver Mensaje
Hola mira, primero cargas los nombres en un array y despues lo descargas en el combo. Este código lo puedes poner en el evento Load del Form o en el Click de un CommandButton.

Código:
Dim Nombre As String, MiArray() As String, i As Integer
Open App.Path & "\Nombres.txt" For Input As #1
Nombre = Input(LOF(1), #1)
Close #1
Nombre = Trim(Replace(Nombre, vbNewLine, ";"))
MiArray = Split(Nombre, ";")
For i = LBound(MiArray) To UBound(MiArray)
    Combo1.AddItem MiArray(i)
Next i

En este caso se supone que los nombres en el txt están separados por punto y coma, si fuera otro carácter cambia ";" por el correspondiente (si es un espacio, por """")


Hola Mira ...1000 disculpas si te molesto pero tengoel mismo problema que la persona qu le respondiste pero me marca un Error en esta linea que podria ser ?? disculpa pero estoy aun verde en esto.

Open App.Path & "c:\malpica\lineas.txt" For Input As #1

mi archivo de texto esta en esa ruta con nombres en cada linea y deseo cargarlos en un comboBox para seleccionarlos.. y me aparace un mensage de RUN TIME ERROR 52 BAD FILE NAME OR NUMBER. que podria hacer en mi caso ???

[email protected]