leer archivo y sumar
Publicado por Moradazo (1 intervención) el 24/01/2024 06:11:15
Buenas,
Tengo esta información en un archivo:
10,100
11,300
12,50
11,50
10,30
10,200
12,150
Necesito un procedimiento para que sume las columnas de la derecha cuando el de la izquierda sea el mismo, ejemplo:
10 sumará 100, luego el 10 repite con 30 y luego con 200, para que al final quede en un textbox así:
10 = 230
Y así con cada número de la izquierda de la coma.
Tengo un FOR que recorre los números del 10 al 20, luego un objReader que lee todo el archivo.
For total = 10 To 20
Do While objReader_win1.Peek() <> -1
sLinea1 = objReader_win1.ReadLine()
Dp = sLinea1.Split(",")
If sLinea1.StartsWith(total) Then
numero = numero + Dp(1)
End If
Loop
TB_resultados.Text = TB_resultados.Text & total & " = " & numero & vbNewLine
Next
objReader_win1.Close()
El resultado que me da es que si suma el primer numero pero los demás me los deja en cero, consejos?
Muchas gracias,
Tengo esta información en un archivo:
10,100
11,300
12,50
11,50
10,30
10,200
12,150
Necesito un procedimiento para que sume las columnas de la derecha cuando el de la izquierda sea el mismo, ejemplo:
10 sumará 100, luego el 10 repite con 30 y luego con 200, para que al final quede en un textbox así:
10 = 230
Y así con cada número de la izquierda de la coma.
Tengo un FOR que recorre los números del 10 al 20, luego un objReader que lee todo el archivo.
For total = 10 To 20
Do While objReader_win1.Peek() <> -1
sLinea1 = objReader_win1.ReadLine()
Dp = sLinea1.Split(",")
If sLinea1.StartsWith(total) Then
numero = numero + Dp(1)
End If
Loop
TB_resultados.Text = TB_resultados.Text & total & " = " & numero & vbNewLine
Next
objReader_win1.Close()
El resultado que me da es que si suma el primer numero pero los demás me los deja en cero, consejos?
Muchas gracias,
Valora esta pregunta
0