Llenar Combo a aprtir de un archivo .txt

[ideasking]

Hola amigos, tengo una inquietud: Es posible llenar un Combo a partir de unos registros guardados en un archivo txt, es decir, tengo un archivo de nombres en bloc de notas y quisiera que en mi formulario de Visual basic 6 se llene un combo con dichos nombres. Es posible? Como debo escribir los nombres para que el combo me los muestre. Yo se traer datos de archivos txt a otros controles como text, labels, etc, pero es posible llenar un Combo? GRACIAS

[GeoAvila]

en las faq's hay un ejemplo con un flexgrid..


nos vemos..

[Avellaneda]

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

[ideasking]

Ok muchas gracias ya me funciono.

[forrestgump]

Iniciado por Avellaneda

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]

[David]

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

Debe ser:

Código:

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

o:

Código:

 
Open "C:\malpica\lineas.txt" For Input As #1

Tienes razón Avellaneda, gracias por la aclaración.

[Avellaneda]

Iniciado por David el Grande

Debe ser:

Código:

Open App.Path & "lineas.txt" For Input As #1

Pues yo no creo que deba ser asi, sino:

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

Porque App.Path devuelve la ruta de la aplicación pero sin el splash final.

[joelcmedina]

Que tal a todos

yo tengo una duda, lo que pasa es que quiero llenar un datagrid extrayendo los datos de un archivo de texto .txt

Alguien sabe como puedo hacer esto, agradeceria mucho cualquier ayuda, algun ejemplo no estaria nada mal...

Saludos...

[joelcmedina]

Estoy usando asp.net VS2003

[forrestgump]

Dim Nombre As String, MiArray() As String, i As Integer
Open "C:\malpica\lineas.txt" For Input As #1
'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)
Combo2.AddItem MiArray(i)
Next i


SIIII mi amiga si los carga en un Combo muchas gracias el unico problema esque ejecuto el programa y el Combobox ESTA AHI Y NO SE VE NADA basta con darle un click en ese lugar para que aparezca...que causara esa desaparicion del combobox ??

[Avellaneda]

Iniciado por forrestgump

SIIII mi amiga si los carga en un Combo muchas gracias el unico problema esque ejecuto el programa y el Combobox ESTA AHI Y NO SE VE NADA basta con darle un click en ese lugar para que aparezca...que causara esa desaparicion del combobox ??

Al continuación del bucle For..Next le pones esta instrucción:

Combo2.ListIndex = 0

Con esto mostrará el primer elemento de la lista.

[anyi_2517]

Necesito pasar un archivo de texto a un combo box
pero solamente la primera palabra de cada cadena
00001;Omar;Madrigal;
00002;Edgar;Fuentes

osea que quede en mi combo
00001
00002

alguien sabe como?

[David]

Puedes abrir el archivo y leerlo línea a línea y cargarlos al combo. Por ejemplo:

Código PHP:

  Dim FileLine As String
Close
Open "Archivo.txt" For Input As #1
Do While Not EOF(1)
       Line Input #1, FileLine
       Combo1.AddItem Split(FileLine, ";")(0)
Loop
Close 
   

[moradazo]

Buenas.

Tengo un código que agrega a un combobox datos de un txt.
En este caso en el TXT exiten lineas con una coma (,) separando dos palabras, este combobox agrega solo las de la izquierda:

Código PHP:

   Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.Click
        Dim ip As IntPtr = Runtime.InteropServices.Marshal.AllocHGlobal(255)
        Dim sb As New System.Text.StringBuilder(255)
        Dim bt As Integer = GetPrivateProfileSection("User", ip, 255, "c:\temp.txt")
        Try
            For i As Integer = 0 To bt - 1
                sb.Append(Convert.ToChar(Runtime.InteropServices.Marshal.ReadByte(ip, i)))
            Next
            sb.Remove(sb.Length - 1, 1)
            ComboBox1.Items.Clear()
            For Each line As String In sb.ToString().Split(Convert.ToChar(0))
                Dim iPos As Integer = InStr(line, ",") - 1
                ComboBox1.Items.Add(Microsoft.VisualBasic.Left(line, iPos))
            Next
        Catch ex As System.Exception
            System.Windows.Forms.MessageBox.Show(ex.Message)
        Finally
            Runtime.InteropServices.Marshal.FreeHGlobal(ip)
        End Try
        FileClose(1)
    End Sub 
   

Igual se puede modificar para que lea toda la linea.
Gracias a Avellaneda y David que me habian ayudado para generar este codigo.
En las propiedades del combobox, se le puede otorgar la opcion de ordenamiento alfabeticamente en este control.
Saludos