Label1.Text = Label1.Text & Array_D(1)

No entiendo eso.

no te falta algo como faa=freefile? Digo yo 

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

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.

Hola

Perfecto creo que ya lo he entendido mejor  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
 

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!¡.