C#

should be
my town
      1
......
my town
      9
my town
     10
.....
my town
    100

but it looks like
my town
      1
.....
my town
      9
my town
      10

Sharkadder wrote:

p.s. saying try csvparser isn't what i want, nor is saying "you need to use this third party program", it can be done with the standard built in c# librarys

String[] split = yourFile.ReadLine().Split(',');
Int32 num = split.Count;

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;

namespace CountTest {
    class Program {
        static void Main(string[] args) {
            String test = "1,2,2,3,3,3,4,4,4,4,5,5,5,5,5,6,6,6,6,6,6,7,7,7,7,7,7,7,8,8,8,8,8,8,8,8,9,9,9,9,9,9,9,9,9";
            List<bucket> items = new List<bucket>();
            String[] split = test.Split(',');
            foreach (String s in split) {
                Bucket b = new Bucket{ Key = s, Count = 1}; // if we have a key it's count is already 1
                Bucket searchedBucket = items.Find(new Predicate<bucket>(bkt => b.Key.Equals(bkt.Key)));
                if (searchedBucket == null) { // add it in new
                    items.Add(b);
                } else { // increment
                    searchedBucket.Count++;
                }
            }
            //print to console
            items.ForEach(new Action<bucket>(b => Console.WriteLine(b.ToString())));

            Console.ReadLine();
        }
    }

    public class Bucket {
        public string Key;
        public Int32 Count;
        public override string ToString() {
            return String.Format("{0} {1}{2}", Count, Key, Count > 1 ? "'s" : "");
        }
    }
      
}
/* OUTPUT
1 1
2 2's
3 3's
4 4's
5 5's
6 6's
7 7's
8 8's
9 9's

*/

</bucket></bucket></bucket></bucket>

Dim itemCounts As Dictionary(Of String, Integer)

'open file and read a line here...
Dim values() As String = lineRead.Split(New Char() {","c})
For Each value As String In values
    If itemCounts.ContainsKey(value) Then
        ' If the key is already in the collection, up the count by 1.
        itemCounts(value) += 1
    Else
        ' If the key doesn't exist yet, add the key with the count of 1.
        itemCounts.Add(value, 1)
    End If
Next
...
Return itemCounts