VB.net - группировка идентичных значений, затем обработка результата

Question

Я нашел несколько похожих вопросов, но ни один из них не попал в то, что я искал. Допустим, у меня есть массив из 10 значений для фруктов:

fruit(1) = "apple" 
fruit(2) = "orange" 
fruit(3) = "banana" 
fruit(4) = "cherry" 
fruit(5) = "peach" 
fruit(6) = "" 
fruit(7) = "" 
fruit(8) = "" 
fruit(9) = "" 
fruit(10) = "" 

теперь у меня есть заявление, в котором говорится, что фрукты (6) = «яблоко», что делает массив:

fruit(1) = "apple" 
fruit(2) = "orange" 
fruit(3) = "banana" 
fruit(4) = "cherry" 
fruit(5) = "peach" 
fruit(6) = "apple" 
fruit(7) = "" 
fruit(8) = "" 
fruit(9) = "" 
fruit(10) = "" 

Я хочу иметь суб, который будет группировать подобные предметы и хранить его только один раз. Итак,

fruit(1) = "2 x apple" 
fruit(2) = "orange" 
fruit(3) = "banana" 
fruit(4) = "cherry" 
fruit(5) = "peach" 
fruit(6) = "" 
fruit(7) = "" 
fruit(8) = "" 
fruit(9) = "" 
fruit(10) = "" 

, а затем в следующий раз, когда я добавлю яблоко, оно переходит в «3 x яблоко» и так далее.

так в псевдо-код я хочу его

look for duplicate values 
count how many duplicates 
alter the original item 
delete all but the newly altered entry 

, что это самый простой и самый элегантный способ сделать это в vb.net? есть ли способ сделать это без LINQ?

Answer 1

@the_lotus правильно, вы можете использовать словарь

Dim fruits As New Dictionary(Of String, Integer) 

    Sub AddFruit(fruitname As String) 
     If fruits.ContainsKey(fruitname) Then 
     fruits.Item(fruitname) += 1 
     Else 
     fruits.Add(fruitname, 1) 
     End If 
    End Sub 

А потом вернуться

Function NumberOfFruit(fruitname As String) As String 
     Return fruits.Item(fruitname) & " x " & fruitname 
    End Function