Tema: Me Ayudan ?
Ver Mensaje Individual
  #6 (permalink)  
Antiguo 24/11/2009, 14:11
andresdaniel
 
Fecha de Ingreso: noviembre-2009
Mensajes: 3
Antigüedad: 15 años, 4 meses
Puntos: 0
Exclamación Respuesta: Me Ayudan ?

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()