Programación General > Visual Basic 6.0 e inferiores
Re: Sumar Columna - Archivo de Texto
(1/1)
WalterGD:
Hice un programa para controlar el gasto de internet, me genera un archivo de texto con lo siguiente.
Fecha;Hora;Tiempo;Pulsos;Pesos
04/04/2003;14:29;0:01;1;0,05672
04/04/2003;15:45;0:22;7;0,39704
05/04/2003;13:15;0:46;14;0,79408
05/04/2003;17:52;0:08;5;0,2836
05/04/2003;21:19;0:26;4;0,22688
como puedo hacer por para sumar todo lo que corresponde a la columna Pesos por ejemplo?
desde ya muchas gracias. :comp:
JuanK:
carga los datos en un grid, o en un datagrid..en fin en una de sus varianetes que lo permita, y recorre las celdas para sumarlo.
Tambien puedes definir un array de enteros, y llenarlo dentro de un While para al final sumar sus nodos..
Tambien.. puedes realizar una funcion que te lea un segmneto determinado del archivo, almacenar el valor en una variable, volver a leer del archivo y acumularlo en la variable..y asi sucesivamente...
No se si esto ha resuelto tu pregunta o si por lo menos te ha servido de ayuda para que la resuelvas.
suerte
juank
WalterGD:
Gracias por la respuesta, lo que pasa es que estoy tratando de hacerlo sin agregar ningun control, solo con el codigo que valla leyendo el texto, mirando ejemplos de codigos hice esto que funciona, falta ordenarlo un poco, tengan en cuenta que no se mucho de programacion.
Function Calcular()
Pesos = 0
fnum = FreeFile
fname = App.Path & "2003-4-Abril.txt"
Open fname For Input As #fnum
Input #fnum, MaxBook
ReDim BookInfos(0 To MaxBook)
For i = 0 To MaxBook
With BookInfos(i)
Input #fnum, .Fecha, .Hora, .Tiempo, .Pulsos, .Pesos
Pesos = Pesos + .Pesos
End With
Next i
Close #fnum
GastoTotal_lbl.Caption = Pesos
Conexiones_lbl.Caption = MaxBook
GastoPromedio_lbl.Caption = Pesos / MaxBook
Dim hoy, Faltan
hoy = Format(Now, "mm")
Faltan = 31 - hoy
Label5 = GastoTotal_lbl.Caption + GastoPromedio_lbl.Caption * Faltan
End Function
.
Navegación
Ir a la versión completa