¿Cómo cuento estos datos?

Hola amigo, uso visual studio 2010, visual basic. ¿ como cuento valores numéricos repetidos que están dentro de una listbox? Los valores son del tipo String
le explico: Hay estos datos dentro de una listbox, 00 01 00 10 00 01 01 10 00 20 30 10 00 01
00 y así hasta 80 datos, necesito que la formula me haga lo siguiente:
00 se repite 6 veces
01 se repite 4 veces
10 se repite 3 veces
y así sucesivamente con cada dato que se repita.
ya tengo la formula para cargar la listbox.

ListBox1.Items.Add(TextBox17.Text & TextBox21.Text)

Private
Sub txtImprimir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtImprimir.Click
Dim i As String
For i = 0 To Me.ListBox1.Items.Count - 1
Select Case i
Case i = "00"
TextBox500.Text = i + 1
End Select
Next
End Sub

Esta formula no me da ningun resultado

1 Respuesta

Respuesta
1

Esa pregunta ya me la haz hecho, ¿algo te falta?

Lo que pasa es que la formula no me hace el conteo de los items, solo me cuenta el total de items dentro del listbox.

Ponme el código que estás utilizando.

Hazlo de esta manera.

Private
Sub btnLlenar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLlenar.Click
ListBox1.Items.Add(TextBox8.Text & TextBox9.Text)
ListBox1.Items.Add(TextBox8.Text & TextBox11.Text)
ListBox1.Items.Add(TextBox8.Text & TextBox12.Text)
ListBox1.Items.Add(TextBox9.Text & TextBox8.Text)
ListBox1.Items.Add(TextBox9.Text & TextBox11.Text)
ListBox1.Items.Add(TextBox9.Text & TextBox12.Text)
ListBox1.Items.Add(TextBox9.Text & TextBox10.Text)
ListBox1.Items.Add(TextBox9.Text & TextBox13.Text)
ListBox1.Items.Add(TextBox10.Text & TextBox9.Text)
ListBox1.Items.Add(TextBox10.Text & TextBox12.Text)
ListBox1.Items.Add(TextBox10.Text & TextBox13.Text)
ListBox1.Items.Add(TextBox11.Text & TextBox8.Text)
ListBox1.Items.Add(TextBox11.Text & TextBox9.Text)
ListBox1.Items.Add(TextBox11.Text & TextBox12.Text)
ListBox1.Items.Add(TextBox11.Text & TextBox14.Text)
ListBox1.Items.Add(TextBox11.Text & TextBox15.Text)
ListBox1.Items.Add(TextBox12.Text & TextBox8.Text)
ListBox1.Items.Add(TextBox12.Text & TextBox9.Text)
ListBox1.Items.Add(TextBox12.Text & TextBox10.Text)
ListBox1.Items.Add(TextBox12.Text & TextBox11.Text)
ListBox1.Items.Add(TextBox12.Text & TextBox13.Text)
ListBox1.Items.Add(TextBox12.Text & TextBox14.Text)
ListBox1.Items.Add(TextBox12.Text & TextBox15.Text)
ListBox1.Items.Add(TextBox12.Text & TextBox16.Text)
ListBox1.Items.Add(TextBox13.Text & TextBox9.Text)
ListBox1.Items.Add(TextBox13.Text & TextBox10.Text)
ListBox1.Items.Add(TextBox13.Text & TextBox15.Text)
ListBox1.Items.Add(TextBox13.Text & TextBox16.Text)
ListBox1.Items.Add(TextBox14.Text & TextBox11.Text)
ListBox1.Items.Add(TextBox14.Text & TextBox12.Text)
ListBox1.Items.Add(TextBox14.Text & TextBox15.Text)
ListBox1.Items.Add(TextBox15.Text & TextBox11.Text)
ListBox1.Items.Add(TextBox15.Text & TextBox12.Text)
ListBox1.Items.Add(TextBox15.Text & TextBox13.Text)
ListBox1.Items.Add(TextBox15.Text & TextBox14.Text)
ListBox1.Items.Add(TextBox15.Text & TextBox16.Text)

Private
Sub txtImprimir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtImprimir.Click
Dim total As Integer
For Each Me.item In ListBox1.Items
If item = "00" Then
End If
total = item + 1
Next
TextBox500.Text = total

Private
 Sub txtImprimir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtImprimir.Click
Dim total As Integer
For Each Me.item In ListBox1.Items
If item = "00" Then
End If
 total = item + 1
Next
 TextBox500.Text = total
ListBox1.Items.Add(TextBox8.Text & TextBox9.Text)
 ListBox1.Items.Add(TextBox8.Text & TextBox11.Text)
 ListBox1.Items.Add(TextBox8.Text & TextBox12.Text)
 ListBox1.Items.Add(TextBox9.Text & TextBox8.Text)
 ListBox1.Items.Add(TextBox9.Text & TextBox11.Text)
 ListBox1.Items.Add(TextBox9.Text & TextBox12.Text)
 ListBox1.Items.Add(TextBox9.Text & TextBox10.Text)
 ListBox1.Items.Add(TextBox9.Text & TextBox13.Text)
 ListBox1.Items.Add(TextBox10.Text & TextBox9.Text)
 ListBox1.Items.Add(TextBox10.Text & TextBox12.Text)
 ListBox1.Items.Add(TextBox10.Text & TextBox13.Text)
 ListBox1.Items.Add(TextBox11.Text & TextBox8.Text)
 ListBox1.Items.Add(TextBox11.Text & TextBox9.Text)
 ListBox1.Items.Add(TextBox11.Text & TextBox12.Text)
 ListBox1.Items.Add(TextBox11.Text & TextBox14.Text)
 ListBox1.Items.Add(TextBox11.Text & TextBox15.Text)
 ListBox1.Items.Add(TextBox12.Text & TextBox8.Text)
 ListBox1.Items.Add(TextBox12.Text & TextBox9.Text)
 ListBox1.Items.Add(TextBox12.Text & TextBox10.Text)
 ListBox1.Items.Add(TextBox12.Text & TextBox11.Text)
 ListBox1.Items.Add(TextBox12.Text & TextBox13.Text)
 ListBox1.Items.Add(TextBox12.Text & TextBox14.Text)
 ListBox1.Items.Add(TextBox12.Text & TextBox15.Text)
 ListBox1.Items.Add(TextBox12.Text & TextBox16.Text)
 ListBox1.Items.Add(TextBox13.Text & TextBox9.Text)
 ListBox1.Items.Add(TextBox13.Text & TextBox10.Text)
 ListBox1.Items.Add(TextBox13.Text & TextBox15.Text)
 ListBox1.Items.Add(TextBox13.Text & TextBox16.Text)
 ListBox1.Items.Add(TextBox14.Text & TextBox11.Text)
 ListBox1.Items.Add(TextBox14.Text & TextBox12.Text)
 ListBox1.Items.Add(TextBox14.Text & TextBox15.Text)
 ListBox1.Items.Add(TextBox15.Text & TextBox11.Text)
 ListBox1.Items.Add(TextBox15.Text & TextBox12.Text)
 ListBox1.Items.Add(TextBox15.Text & TextBox13.Text)
 ListBox1.Items.Add(TextBox15.Text & TextBox14.Text)
 ListBox1.Items.Add(TextBox15.Text & TextBox16.Text)

Sigues haciéndolo mal, en la respuesta de la otra pregunta yo te expliqué como hacerlo paso a paso pero no haz hecho nada de eso.

¿Hay algo que no entiendas en lo que explico?

¿Por qué no haces lo que te explico?

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas