Ver Mensaje Individual
  #2 (permalink)  
Antiguo 15/12/2008, 03:23
Avellaneda
Colaborador
 
Fecha de Ingreso: enero-2008
Ubicación: Unas veces aquí, otras veces allí
Mensajes: 1.482
Antigüedad: 16 años, 3 meses
Puntos: 37
Respuesta: Porque me da este error?

Cita:
Iniciado por magTpeak Ver Mensaje
Me dice "el subindice esta fuera del intervalo" y me colorea esta linea:
Código:
Textf(c).Text = tabla(c)
Codigo completo:
....
Gracias de antemano!
Fíjate que solo estás cargando en el vector la última línea del archivo.
Prueba así:

Código:
Open openfile.FileName For Input As #1
' cargamos el archivo entero en la variable "config"
config = Input(LOF(1), #1)
Close #1
' eliminamos los caracteres de retorno de carro.
config = Replace(config, vbNewLine, "")
' cargamos los datos en el vector "tabla"
tabla = Split(config, "text=")
' y mostramos los datos en los TextBox
For c = 1 To 12 'Step 1 <- esta instrucción no es necesaria
    Textf(c) = tabla(c)
Next
Tienes que verificar que el vector tiene los mismos elementos que el array de Textf.