SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: Fernando_P en Miércoles 11 de Febrero de 2004, 19:24

Título: Manejo De Archivos
Publicado por: Fernando_P en Miércoles 11 de Febrero de 2004, 19:24

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.

Título: Re: Manejo De Archivos
Publicado por: Brroz en Jueves 12 de Febrero de 2004, 09:03

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

1.  
2. Dim  intCanal As Boolean
3. intCanal = FreeFile
4. Open "C:\Ruta\Archivo.txt" For Input As #intCanal
5. dim var1 AS variant, str1 As String
6. Dim intAnho As integer, intDia as integer
7. Do until EOF(intCanal)
8.    Line Input #intCanal, str1
9.    intDia = intDia + 1
10.    var1 = Split(str1, Chr(9))
11.    For intAnho = 0 To UBound(var1)
12.         MsgBox "Día: " & intDia & vbcrlf _
13.         & "Año: " & intAnho + 1 & vbcrlf _
14.         & "Valor: " & var1(intAnho)
15.    Next intAnho
16. Loop
17. Close #intCanal
18.  
19.  

Suerte.