Retroceder   Foros del Web > Temas generales de computación > Programación > Visual Basic

Respuesta
 
Herramientas Desplegado
Antiguo 13-feb-2008, 15:17   #1 (permalink)
ideasking ha deshabilitado el karma
 
Fecha de Ingreso: junio-2006
Mensajes: 217
De acuerdo Llenar Combo a aprtir de un archivo .txt

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
ideasking está desconectado   Responder Citando
Antiguo 13-feb-2008, 16:17   #2 (permalink)
Colaborador
GeoAvila llegará a ser famoso muy prontoGeoAvila llegará a ser famoso muy prontoGeoAvila llegará a ser famoso muy pronto
 
Avatar de GeoAvila
 
Fecha de Ingreso: diciembre-2003
Ubicación: Antigua Guatemala
Mensajes: 3.869
Enviar un mensaje por MSN a GeoAvila Enviar un mensaje por Yahoo  a GeoAvila Enviar un mensaje por Skype™ a GeoAvila
Re: Llenar Combo a aprtir de un archivo .txt

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


nos vemos..
__________________
* Antes de preguntar lee las FAQ, y por favor no hagas preguntas en las FAQ
Sitio http://www.geoavila.com
GeoAvila esta en línea ahora   Responder Citando
Antiguo 14-feb-2008, 01:30   #3 (permalink)
Avellaneda tiene algunos puntos positivos de karma
 
Avatar de Avellaneda
 
Fecha de Ingreso: enero-2008
Ubicación: Madrid
Mensajes: 792
Re: Llenar Combo a aprtir de un archivo .txt

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 """")
Avellaneda está desconectado   Responder Citando
Antiguo 14-feb-2008, 16:34   #4 (permalink)
ideasking ha deshabilitado el karma
 
Fecha de Ingreso: junio-2006
Mensajes: 217
Re: Llenar Combo a aprtir de un archivo .txt

Ok muchas gracias ya me funciono.
ideasking está desconectado   Responder Citando
Antiguo 28-may-2008, 13:15   #5 (permalink)
forrestgump ha deshabilitado el karma
 
Fecha de Ingreso: mayo-2008
Mensajes: 26
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 ???

noe49ers@hotmail.com
forrestgump está desconectado   Responder Citando
Antiguo 28-may-2008, 13:24   #6 (permalink)
Colaborador
David el Grande llegará a ser famoso muy prontoDavid el Grande llegará a ser famoso muy prontoDavid el Grande llegará a ser famoso muy pronto
 
Avatar de David el Grande
 
Fecha de Ingreso: abril-2005
Ubicación: In this planet
Mensajes: 5.350
Idea Respuesta: Re: Llenar Combo a aprtir de un archivo .txt

Cita:
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.
__________________
"En la vida muchas veces tenemos que ser aprendices, y muchas veces maestros"
P.S.: Pregunta siempre en el foro correcto.

Última edición por David el Grande; 28-may-2008 a las 13:57. Razón: código erróneo
David el Grande está desconectado   Responder Citando
Antiguo 28-may-2008, 13:55   #7 (permalink)
Avellaneda tiene algunos puntos positivos de karma
 
Avatar de Avellaneda
 
Fecha de Ingreso: enero-2008
Ubicación: Madrid
Mensajes: 792
Respuesta: Re: Llenar Combo a aprtir de un archivo .txt

Cita:
Iniciado por David el Grande Ver Mensaje
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.

Avellaneda está desconectado   Responder Citando
Antiguo 03-jun-2008, 13:42   #8 (permalink)
joelcmedina ha deshabilitado el karma
 
Fecha de Ingreso: junio-2008
Mensajes: 5
Respuesta: Llenar Combo a aprtir de un archivo .txt

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 está desconectado   Responder Citando
Antiguo 03-jun-2008, 13:43   #9 (permalink)
joelcmedina ha deshabilitado el karma
 
Fecha de Ingreso: junio-2008
Mensajes: 5
Respuesta: Llenar Combo a aprtir de un archivo .txt

Estoy usando asp.net VS2003
joelcmedina está desconectado   Responder Citando
Antiguo 03-jun-2008, 16:29   #10 (permalink)
forrestgump ha deshabilitado el karma
 
Fecha de Ingreso: mayo-2008
Mensajes: 26
Alegría Respuesta: Re: Llenar Combo a aprtir de un archivo .txt

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 ??
forrestgump está desconectado   Responder Citando
Antiguo 04-jun-2008, 00:10   #11 (permalink)
Avellaneda tiene algunos puntos positivos de karma
 
Avatar de Avellaneda
 
Fecha de Ingreso: enero-2008
Ubicación: Madrid
Mensajes: 792
Respuesta: Re: Llenar Combo a aprtir de un archivo .txt

Cita:
Iniciado por forrestgump Ver Mensaje
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.

Avellaneda está desconectado   Responder Citando
Antiguo 18-ago-2008, 16:42   #12 (permalink)
anyi_2517 ha deshabilitado el karma
 
Avatar de anyi_2517
 
Fecha de Ingreso: agosto-2008
Mensajes: 2
Respuesta: Re: Llenar Combo a apartir de un archivo .txt

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?
anyi_2517 está desconectado   Responder Citando
Antiguo 19-ago-2008, 06:30   #13 (permalink)
Colaborador
David el Grande llegará a ser famoso muy prontoDavid el Grande llegará a ser famoso muy prontoDavid el Grande llegará a ser famoso muy pronto
 
Avatar de David el Grande
 
Fecha de Ingreso: abril-2005
Ubicación: In this planet
Mensajes: 5.350
De acuerdo Respuesta: Llenar Combo a aprtir de un archivo .txt

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 
__________________
"En la vida muchas veces tenemos que ser aprendices, y muchas veces maestros"
P.S.: Pregunta siempre en el foro correcto.
David el Grande está desconectado   Responder Citando
Antiguo 19-ago-2008, 09:02   #14 (permalink)
moradazo ha deshabilitado el karma
 
Avatar de moradazo
 
Fecha de Ingreso: julio-2008
Ubicación: Costa Rica
Mensajes: 250
Enviar un mensaje por MSN a moradazo
Respuesta: Llenar Combo a aprtir de un archivo .txt

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.ObjectByVal e As System.EventArgsHandles 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"ip255"c:\temp.txt")
        Try
            For 
As Integer 0 To bt 1
                sb
.Append(Convert.ToChar(Runtime.InteropServices.Marshal.ReadByte(ipi)))
            
Next
            sb
.Remove(sb.Length 11)
            
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(lineiPos))
            
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
moradazo esta en línea ahora   Responder Citando
Respuesta

Calificación: Calificación de Tema: 1 votos, 5,00 de promedio.


Herramientas
Desplegado

Normas de Publicación
No puedes crear nuevos temas
No puedes responder temas
No puedes subir archivos adjuntos
No puedes editar tus mensajes

BB code is Activado
Caritas están Activado
[IMG] está Activado
Código HTML está Desactivado


La Zona horaria es GMT -6. Ahora son las 17:36.


Message Board Statistics

LinkBacks Enabled by vBSEO 3.1.0

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93