Programación General > Visual Basic 6.0 e inferiores

 Manejo De Archivos

(1/1)

Fernando_P:
Hola a todos,
tengo un problema y deseo que alguien me pueda ayudar.

Resulta que debo trabajar con un archivo plano(txt), en el cual las columnas representan años y las filas son los dias de cada año, y se almacenan datos para cada dia, el formato es el siguiente:

               año1    año2    año3    ...    año n

dia1           23        25       105.3          200.25

...
...

dia 365      5.27     3          300              245


cada datos esta separado poor una tabulacion. lo que necesito es crear a partir de este archivo un vector que me tome los datos de cada año, obviamnete hay añops bisiestos por lo que algunos vectores tendran largo 366 y otros 365, necesito ir creando dinamicamente estos vectores, porque necesito trabajar con los datos por año, la cantidad de años tambien pude ser variable, es decir, puede haber atchivos con datos de 30 años, 10, 15, 25, etc. Como hago esto?

Cualquier ayuda me ayudaria, ya que hasta ahora no he logrado crear el vector.

desde ya muchas gracias.

Saludos a todos.

Brroz:
Hola Fernando_P.

Hay una función que te puede ir que ni pintada, es Split.

Almacena los datos de cada registro en una variable string, y luego usa split para obtener cada campo (dices que están separados por tabulaciones)  como un elemento de una matriz de tipo variant, algo así:


--- Código: Text --- Dim  intCanal As BooleanintCanal = FreeFileOpen "C:\Ruta\Archivo.txt" For Input As #intCanaldim var1 AS variant, str1 As StringDim intAnho As integer, intDia as integerDo until EOF(intCanal)   Line Input #intCanal, str1   intDia = intDia + 1   var1 = Split(str1, Chr(9))   For intAnho = 0 To UBound(var1)        MsgBox "Día: " & intDia & vbcrlf _        & "Año: " & intAnho + 1 & vbcrlf _        & "Valor: " & var1(intAnho)   Next intAnhoLoopClose #intCanal  
Suerte.

Navegación

[0] Índice de Mensajes