Hola
Vereis tengo un archivo de texto, con 18 lineas, en cada linea un valor numerico y lo queria es abrir ese archivo de texto y cargarlo en un array, para luego poder usarlo.
Yo lo he planteado asi:
Sub leer_archivo()
Dim faa As Integer
Dim Array_D(1 To 18) As String * 60
Open Final For Input As #faa
Array_D = Input(LOF(faa), #faa)
Close #faa
Label1.Text = Label1.Text & Array_D(1)
Label2.Text = label2.Text & Arrai_D(1)
End Sub
Y esque no se si es porque el array no acepta recibir datos o asi o hay algo mal declarado o no se.
un saludo
Label1.Text = Label1.Text & Array_D(1)
No entiendo eso.
Cita de: shellroot@alex-laptop:~$ en 14 Junio 2010, 23:22 PM
Label1.Text = Label1.Text & Array_D(1)
No entiendo eso.
Pues hay lo que pretendo es, añadir al texto que tiene la Label 1 el primer elemeto del array que deberia ser la linea 1 del documento de texto.
un saludo
no te falta algo como faa=freefile? Digo yo :xD
Y creo que tas usando mal los arreglos... lo que necesitas es solo un string... porq segun lo que haces en:
Array_D = Input(LOF(faa), #faa)
Me parece que esta mal... Yo haria algo como:
un array de 18 strings (o enteros) y luego con un Do/Loop o un for, recorrer el archivo y darle el valor de la linia a cada posicion del array... Las posiciones pes las controlas con una variable...
Pero creo que en ese codigo hay varios errores, no nada mas los arrays...
Saludos
Cita de: .:BlackCoder:. en 14 Junio 2010, 23:42 PM
no te falta algo como faa=freefile? Digo yo :xD
Si, esque como quite trozos no relevantes pues yo creo que me lo he comido.
Cita de: .:BlackCoder:. en 14 Junio 2010, 23:42 PM
Me parece que esta mal... Yo haria algo como:
un array de 18 strings (o enteros) y luego con un Do/Loop o un for, recorrer el archivo y darle el valor de la linia a cada posicion del array... Las posiciones pes las controlas con una variable...
Saludos
El problema esque no se como hacer que recorra el archivo linea a linea y la vaya almacenando en un valor del array...
Mira he remplanteado el codigo y ya te lo pongo completo
Sub buscar_partidos()
On Error GoTo Error_Sub
Dim archivo As String
Dim temp As String, Ret As Long
Dim Directorio As String
Dim Final_A(1 To 18) As String * 60
ChDir App.Path
ChDrive App.Path
Directorio = App.Path
If Len(Directorio) > 3 Then Directorio = Directorio & "\BD\"
archivo = Form1.equipo1 & "-" & Form1.equipo2 & ".txt"
Me.MousePointer = vbHourglass
temp = String(MAX_PATH, 0)
Ret = SearchTreeForFile(Directorio, archivo, temp)
If Ret <> 0 Then
Final_A = Left$(temp, InStr(1, temp, Chr$(0)) - 1) '*********
Else
MsgBox "Partido No encontrado", vbInformation
End If
Me.MousePointer = 0
Exit Sub
Error_Sub:
MsgBox Err.Description, vbCritical
Me.MousePointer = 0
End Sub
y esta es la linea que no se que hacer y lo pongo a lo burro xD
Final_A = Left$(temp, InStr(1, temp, Chr$(0)) - 1)Lo que necesito es poder volcar linea a linea en el Array Final_A, siendo cada linea un elemento del Array. Recuerdo que cada lina del documento solo contiene 1 numero.
un saludo y gracias
Cita de: Mr.Know en 14 Junio 2010, 23:32 PM
Cita de: shellroot@alex-laptop:~$ en 14 Junio 2010, 23:22 PM
Label1.Text = Label1.Text & Array_D(1)
No entiendo eso.
Pues hay lo que pretendo es, añadir al texto que tiene la Label 1 el primer elemeto del array que deberia ser la linea 1 del documento de texto.
un saludo
Mal planteado, debes asignar al array cada línea antes de cerrar el archivo, no una vez lo cierras ya que sinó no se copiará nada en tu array. La idea es mientras el archivo no finalize, utilizando EOF, vayas leyendo línea por línea y guardandola en las posicines del array.
Para que puedas hacerlo, busca en internet como:
- Leer línea por línea de un archivo de texto. (hay muchos ejemplos)
- Utilizar una estructura como FOR o como While (hay chorromiles ejemplos)
Con esas dos cosas puedes hacerlo perfectamente, creo que se entiende la idea que te doy.
http://www.elguille.info/vb/cursos_vb/basico/basico12.htm
Yo no le pare mucho al tema de los archivos, pero pes al momento lo entendi... No me acuerdo bien pero si se que debes usar input de otra forma...
Saludos...
Hola
Perfecto creo que ya lo he entendido mejor :P ahora haber que tal de esta manera:
Veis algun fallo importante en el codigo ?
Public Final As String ' Esta variable la calcule en otra funcion, pero la necesito en varias funciones asique la declaro como publica
Sub leer_partido()
Dim MasNumeros(1 To 19) As String ' Tengo que usar String porque 18 lineas son numeros y 1 es alfanumerica
Dim i%
Dim nFic%
Dim inicial As Integer
inicial = 1
nFic = FreeFile
Open Final For Input As nFic
For i = 1 To 19
Input #nFic, MasNumeros(i)
Next
Close nFic
Contador1 = Val(Contador1) + Val(inicial) ' Necesito llevar la cuenta de cuantas veces se llama a esta funcion.
'Ahora voy volcando dato a dato del array en su correspondiente label
Label1.Caption = MasNumeros(1) & vbCrLf
Label2.Caption = MasNumeros(2) & vbCrLf
Label3.Caption = MasNumeros(3) & vbCrLf
Label4.Caption = MasNumeros(4) & vbCrLf
Label5.Caption = MasNumeros(5) & vbCrLf
Label6.Caption = MasNumeros(6) & vbCrLf
Label7.Caption = MasNumeros(7) & vbCrLf
Label8.Caption = MasNumeros(8) & vbCrLf
Label9.Caption = MasNumeros(9) & vbCrLf
Label10.Caption = MasNumeros(10) & vbCrLf
Label11.Caption = MasNumeros(11) & vbCrLf
Label12.Caption = MasNumeros(12) & vbCrLf
Label13.Caption = MasNumeros(13) & vbCrLf
Label14.Caption = MasNumeros(14) & vbCrLf
Label15.Caption = MasNumeros(15) & vbCrLf
Label16.Caption = MasNumeros(16) & vbCrLf
Label17.Caption = MasNumeros(17) & vbCrLf
Label18.Caption = MasNumeros(18) & vbCrLf
resultados.AddItem = MasNumeros(19) & vbCrLf ' Esto es un listbox y le meto datos alfanumericos ( una frase con numeros )
End Sub
Tu variable Final no me convence pero bueno aya cada quien...
Aqui lo dejo con fixeos por mi parte dejandolo mas Dinamico que el tuyo!¡.
Private Sub leer_partido(ByVal StrPath$)
If Dir(StrPath, vbArchive) = "" Then Exit Sub
Dim MasNumeros$() ' // String
Dim i% ' // Long
Dim nFic# ' // Integer
nFic = FileSystem.FreeFile
Open StrPath For Input As nFic
Do While Not FileSystem.EOF(nFic) ' // Mientras no lleguemos al final leemos las lineas del archivo X.
ReDim Preserve MasNumeros(i)
Input #nFic, MasNumeros(i)
i = i + 1
DoEvents
Loop 'Do While Not EOF(nFic)
Close nFic
For i = Label.LBound To Label.UBound
If Information.IsNumeric(MasNumeros(i)) Then
Label(i).Caption = MasNumeros(i)
Else
resultados.AddItem = MasNumeros(i)
End If
Next
Contador1 = Contador1 + 1
End Sub
P.D.: Agregar una MATRIX de controles llamados Label
Dulce Infierno Lunar!¡.
a se me paso igual puedes cargar o seguir cargando X label o descargar X label de la matrix solo leete un manual
Es Load() y unLoad() lo que debes usar!¡, despues de cargarlo este estara visible=False debes pasarlo a true y en una nueva posicion o se create en la posicion predeterminada!¡.
OJO es una optativa!¡ para cargar mas lineas de una rchivo X y no crear TODOS los Labels en tiempo de diseñño en el IDE, igual puedes optar por.
aqui te lo dejo mas optimizado y con lo que dije como codigo comentado!¡.
Private Sub leer_partido(ByVal StrPath$): On Error Resume Next
If Dir(StrPath, vbArchive) = "" Then Exit Sub
Dim TMPLine$ ' // String
Dim i% ' // Long de forma Pre esta en 0
Dim nFic# ' // Integer
'Dim tmpc# ' // Integer
nFic = FileSystem.FreeFile
Open StrPath For Input As nFic
Do While Not FileSystem.EOF(nFic) ' // Mientras no lleguemos al final leemos las lineas del archivo X.
Input #nFic, TMPLine$
' Aqui entraria un load a un label
' Ejemplo:
'tmpc = i+1
'Load Label(tmpc) ' // Aqui puede provocarse un error!¡. por eso uso On error resume next
'With Label(tmpc)
' .Top = Label(tmpc - 1).Top + Label(tmpc - 1).Height + 5
' .Left = Label(tmpc).Left
' .Visible = True
'End With
If Information.IsNumeric(TMPLine$) Then
Label(i).Caption = MasNumeros(i)
Else
resultados.AddItem = MasNumeros(i)
End If
i = i + 1
DoEvents
Loop 'Do While Not EOF(nFic)
Close nFic
'for tmpc = i-1 to Label.ubound
' unload Label(tmpc)
'next
Contador1 = Contador1 + 1
End Sub
Ducle Infierno Lunar!¡.
Perfecto ! gracias a todos el codigo ya tira genial ;-)
BlackZeroX▓▓▒▒░░ Gracias por el codigo pero creo que no me va a servir, para el diseño general del programa puedo usar Label1....LabelX pero luego tengo que asignar a cada label un Nomnre especifico y no creo que el metodo ese me sirva.
De todas formas como el codigo ya no me devuelve ningun error perfecto.
un saludo
siempre hay forma sabes!¡
callbyname()
For Each ObjControl in controls... Next
Dulce Infierno Lunar!¡.
Aqui te lo dejo... el codigo de arriba deje el array MaxNumeros perdona era TmpLine xP
A y no no era CallByName sorry!¡.
Private Sub leer_partido(ByVal StrPath$): On Error Resume Next
If Dir(StrPath, vbArchive) = "" Then Exit Sub
Dim TMPLine$ ' // String
Dim i% ' // Long de forma Pre esta en 0
Dim nFic# ' // Integer
Dim Label_Tmp As label
Label_Tmp = Information.TypeName(tmplabel)
nFic = FileSystem.FreeFile
Open StrPath For Input As nFic
Do While Not FileSystem.EOF(nFic)
Input #nFic, TMPLine$
i = i + 1
If Information.IsNumeric(TMPLine$) Then
Dim lbl As Control
For Each lbl In Me.Controls
Debug.Print TypeName(lbl)
If TypeName(lbl) = Label_Tmp Then ' puede dejarse como comentario pero mejor estar seguro no xP
If Strings.LCase(lbl.Name) = Strings.LCase("label" & i) Then
lbl.Caption = TMPLine$
Exit For
End If
End If ' puede dejarse como comentario pero mejor estar seguro no xP
Next
Else
resultados.AddItem = TMPLine$
End If
DoEvents
Loop
Close nFic
Contador1 = Contador1 + 1
End Sub
Dulce Infierno Lunar!¡.
Aunque el tema este solucionado queria hacer una recomendacion:
Cita de: Mr.Know en 15 Junio 2010, 11:08 AM
Hola
Perfecto creo que ya lo he entendido mejor :P ahora haber que tal de esta manera:
Veis algun fallo importante en el codigo ?
Public Final As String ' Esta variable la calcule en otra funcion, pero la necesito en varias funciones asique la declaro como publica
Sub leer_partido()
Dim MasNumeros(1 To 19) As String ' Tengo que usar String porque 18 lineas son numeros y 1 es alfanumerica
Dim i%
Dim nFic%
Dim inicial As Integer
inicial = 1
nFic = FreeFile
Open Final For Input As nFic
For i = 1 To 19
Input #nFic, MasNumeros(i)
Next
Close nFic
Contador1 = Val(Contador1) + Val(inicial) ' Necesito llevar la cuenta de cuantas veces se llama a esta funcion.
'Ahora voy volcando dato a dato del array en su correspondiente label
Label1.Caption = MasNumeros(1) & vbCrLf
Label2.Caption = MasNumeros(2) & vbCrLf
Label3.Caption = MasNumeros(3) & vbCrLf
Label4.Caption = MasNumeros(4) & vbCrLf
Label5.Caption = MasNumeros(5) & vbCrLf
Label6.Caption = MasNumeros(6) & vbCrLf
Label7.Caption = MasNumeros(7) & vbCrLf
Label8.Caption = MasNumeros(8) & vbCrLf
Label9.Caption = MasNumeros(9) & vbCrLf
Label10.Caption = MasNumeros(10) & vbCrLf
Label11.Caption = MasNumeros(11) & vbCrLf
Label12.Caption = MasNumeros(12) & vbCrLf
Label13.Caption = MasNumeros(13) & vbCrLf
Label14.Caption = MasNumeros(14) & vbCrLf
Label15.Caption = MasNumeros(15) & vbCrLf
Label16.Caption = MasNumeros(16) & vbCrLf
Label17.Caption = MasNumeros(17) & vbCrLf
Label18.Caption = MasNumeros(18) & vbCrLf
resultados.AddItem = MasNumeros(19) & vbCrLf ' Esto es un listbox y le meto datos alfanumericos ( una frase con numeros )
End Sub
Creo que se podria simplificar haciendo una
matriz de controles con los labels, ahorrarias mucho codigo, en una linea lo que haces en 18:
For x = 1 to 18 : Label1(x).Caption = MasNumeros(x) & vbCrLf : NextSalu2! :)
Citar
Advertencia - mientras estabas escribiendo, una nueva respuesta fue publicada. Probablemente desees revisar tu mensaje.