Visual Basic Foro
Programación => Visual Basic 6 => Mensaje iniciado por: Ever Cerna en Junio 18, 2012, 08:56:02 am
-
Buenos días amigos.
Necesito por favor me den una manito, necesito que me ayuden a crear una función para leer datos de un archivo .txt y cargarlos a un COMBOBOX. Como verán debajo tengo ese código, no tengo problemas con leer datos de un .txt y cargarlos al COMBOBOX, lo que necesito es una función para resumir el CODE ya que tengo varios archivos .txt que cargar y el codigo va ser inmenso xD...
Haber si me dan una manito.
Dim Nombre As String
If CbProducto.ListIndex = 0 Then
CbMarca.Clear
Open App.Path & "\Datos HARDWARE\MAINBOARD.txt" For Input As 99
Do While Not EOF(99)
Line Input #99, Nombre
CbMarca.AddItem Nombre
Loop
Close #99
ElseIf CbProducto.ListIndex = 1 Then
CbMarca.Clear
Open App.Path & "\Datos HARDWARE\PROCESADOR.txt" For Input As 99
Do While Not EOF(99)
Line Input #99, Nombre
CbMarca.AddItem Nombre
Loop
Close #99
End If
Salu2...
-
Hola amigo yo utilizo esta:
'para llenar los combos los llamas pasando el combo y el nombre de archivo como parametros
Private Sub LlenaCbos()
open_Datos App.path & "\" & "categorias.TXT", cboCat
open_Datos App.path & "\" & "jornadas.TXT", cboHoras
End Sub
'Este es el procedimiento
Private Sub open_Datos(file As String, cbo As ComboBox)
On Error GoTo datos
Dim sDatos As String
Open file For Input As #1
cbo.Clear
Do While Not EOF(1)
Input #1, sDatos
cbo.AddItem sDatos
Loop
Close #1
Exit Sub
On Error GoTo 0
Datos:
If MsgBox("Error no se encontro el archivo 'txt' " + Err.Description + " error numero " + Str(Err.Number), vbCritical + vbDefaultButton2 + vbRetryCancel, "DS Gestión") = vbRetry Then
Resume
End If
End Sub
Ojalá te sirva!
-
Gracias kumpaaaa.. Eso era exactamente lo que necesitava se agrece kumpaaaa
Salu2.