Me Ayudan ?

[andresdaniel]

Hola gente, antes que nada me precento, ya que soy nuevo.
Soy Daniel de Argentina.

Le cuento le profesor de programacion empezo a enceñarnos Visual.net pero con ejercicios muy faciles. Y de repente nos dio un ejercicio mas complicado, y la verdad que necesitaria de su ayuda para poderlo hacer. Quisas a Ustedes les parece que es facil.

EJ: Corte de control

Tengo esta informacion (supuestamente ya escrita en un txt a la hora de utilizarla en el Visual)

|Proveedor|Producto|Cantidad|Precio|

|Juan | Sal | 10 | 5 |

|Juan | Azucar | 5 | 2 |

|Pedro | Miel | 1 | 3 |

|Pedro | Cacao | 4 | 4 |

|Maria | Manteca | 5 | 3 |


Me Piden: Suma de la cantidad de productos por cada Prveedor. (ejemplo: Juan: 15)
Multiplicar cantidad por precio del Proveedor. (ejemplo: Juan: 60...10*5+5*2=60)
Y por Ultimo. Cantidad de Proveedores (ejemplo: 3 Juan, Pedro y Maria)

Espero sus ayudas y/o codigos.

Un Abraso.

PD: Disculpen la "tabla que hice, es que no me dejan subir img por que soy nuevo. jejeje

[David]

Hola, andresdaniel.

Traslado el tema a una sección que encaja mejor con tu pregunta.
Tema trasladado desde la sección de Visual Basic clásico.

Saludos.

[eledgarr]

Necesitaras un objeto System.IO.StreamReader

por ejemplo

Dim MiStreamReader As System.IO.StreamReader

con el abriras tu archivo txt

MiStreamReader = New System.IO.StreamReader("aqui tu archivo")

ya abierto necesitas un ciclo que lo recorra, por ejemplo

Dim Linea as String
Dim Arreglo() as String

Do

Linea = MiStreamReader.ReadLine() 'lee la linea

Arreglo=Linea.Split("|") 'esto te reconoce el caracter | como el separador y te dara tus cuatro elementos separados en el array con lo cual ya los podras 'manipular

Loop Until linea Is Nothing

'cierra el archivo
MiStreamReader.Close()

ya con eso puedes trabajar si aun tienes dudas checa esto
http://support.microsoft.com/kb/302309/es

[RsOfT]

Una forma mucho más fácil de manejar los valores de cada línea sería:

Código:

 
strLinea = "|Juan | Sal | 10 | 5 |"
 
strNombre = strLinea.split("|"c).GetValue(0) '-> Esto de devolverá Juan
strProducto = strLinea.split("|"c).GetValue(1) '-> Esto de devolverá Sal
dblCant = strLinea.split("|"c).GetValue(2) '-> Esto de devolverá 10
dblPrecio = strLinea.split("|"c).GetValue(3) '-> Esto de devolverá 5
dblTotal = dblCant * dblPrecio

[Peterpay]

adicional a esto que dice RSOFt no se te olvide hacer el casteo correspondiente de string a double si fuera necesario

[andresdaniel]

Bueno, Muchas gracias a los que me fueron ayudando.

He llegado al resultado de que ejecuto mi codigo y me dice la cantidad de proveedores que tengo.

estos son mis proveedores.

Juan;sal;10;2
Juan;azucar;2;2
Mario;leche;2;3

entonses como resultado me dice:
Proveedor Juan
Cantidad de Preoveedores 2
Proveedor Mario
Cantidad de proveedores 1

Supongo que esto es lo que me pide parte del ejercicio.

ahora, como sigo, porque tambien necesito.
- sumar las cantidades en el ej:

Juan;sal;10;2
Juan;azucar;2;2
Mario;leche;2;3

seria Juan: 12
Mario :2
y esto como se hace?

bueno, les muestro mi codigo de "Cantidad de Proveedores"

Dim reader As New IO.StreamReader("C:\MiLista.txt")
Dim v As String()
Dim cuenta_proveedor As Integer
Dim salir As Boolean = False
Dim proveedor As String = String.Empty

v = reader.ReadLine().Split(";"c) 'lee la linea

While Not salir


proveedor = v(0) 'esto te reconoce el caracter | como el separador y te dara tus cuatro elementos separados en el array con lo cual ya los podras 'manipular
cuenta_proveedor = 0
ListBox1.Items.Add(String.Format(" Proveedor {0}", proveedor))
While Not salir AndAlso proveedor = v(0)
cuenta_proveedor = cuenta_proveedor + 1
If reader.EndOfStream Then
salir = True
Else
v = reader.ReadLine().Split(";"c)
End If

End While
ListBox1.Items.Add(String.Format(" Cantidad de proveedores {0}", cuenta_proveedor))
End While
'cierra el archivo
reader.Close()

[andresdaniel]

Me Ayudan...la verdad que ya no se como seguir. por mas que intente no se me ocurre como seguir.

Espero sus S.O.S

Saludos-