no te falta algo como faa=freefile? Digo yo
Si, esque como quite trozos no relevantes pues yo creo que me lo he comido.
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
Mostrar Mensajes
ahora haber que tal de esta manera: