Tally[Characters[Import["file.txt","Text"]]]