一行ごとにひとつの単語、または複数の単語が並んでいるテキストファイルがあります。

【並べ替えを優先するとこんな感じ】

例えばデータファイルを aaa.txt という名前でサーバにアップして、下記シェルスクリプトを同じディレクトリに配置して countsort.sh という名前で保存して実行権を付けたとします

./countsort.sh aaa.txt

のように実行すると result.csv というファイルが出来上がります。

result.csv をWindowsに持ってきてEXCELで個数を基準にソートすれば目標を達成できると思います。

#!/bin/sh

cat $1|sed -e "s/ /\n/g"> b

cat b|sort -u > c

rm -f result.csv

FILE=c

while read d

do

echo -n $d\t >> result.csv

cat b|grep $d|wc -l >> result.csv

done < $FILE

rm -f b c

※シェルへのパスはお使いのサーバに合わせて適宜修正してください。

---

【見た感じを優先するとこんな感じ】

出現個数順に並び替えはしません。

画面に表示しておしまいです。

#!/bin/sh

cat $1|sed -e "s/ /\n/g"> b

cat b|sort -u > c

FILE=c

while read d

do

echo -n $d →

cat b|grep $d|wc -l

done < $FILE

rm -f b c

１．以下のサイトからActivePerlをインストール

　　http://www.activestate.com/activeperl/

２．以下の内容をwordcount.plという名前のテキストで適当な場所へ保存

#---wordcount.pl----

while(<>)

{

while(/(\S+)\s/gi){

$word{$1}++;

}

}

foreach $key(sort keys(%word)){

print "$key→$word{$key}\n";

}

３．単語はglossary.txtに保存して、同じディレクトリに置いておく

４．コマンドラインを開いて、保存場所に移動

５．コマンドラインから以下のように打ち込む

perl wordcount.pl glossary.txt

補足

・perl wordcount.pl glossary.txt > output.txt とすると、output.txtに書き出されます

・スクリプトはベタベタですみません・・・

エクセルのVBAで作成してみました。

・テキストファイルはEXCELと同じフォルダーにあるとしました。

　ファイル名は「単語.txt」

・集計結果はEXCELシートに表示しました。

・最後に件数の多い順で並べました。

※変数宣言は省略しています。

Sub 単語集計処理()
Dim dicT As Object
Set dicT = CreateObject("Scripting.Dictionary")
  
'--- 集計
Open ThisWorkbook.Path & "\単語.txt" For Input As #1
Do While Not (EOF(1))
　Line Input #1, 単語
　dicT(単語) = dicT(単語) + 1
Loop
Close
'--- 結果表示
For Each 単語 In dicT.Keys
　Range("A1").Offset(I, 0) = 単語
　Range("A1").Offset(I, 1) = dicT(単語)
　I = I + 1
Next
'--- 並び替え
Range("A1:B65536").Sort Key1:=Range("B1"), Order1:=xlDescending
End Sub

ちょっと追加

これならEXCEL使わなくても要望どおりの動きになると思います。

ファイルに落としたい場合はリダイレクトしてください。

#!/bin/sh

cat $1|sed -e "s/ /\n/g"> b

cat b|sort -u > c

rm -f e

FILE=c

while read d

do

echo -n "$d → " >> e

cat b|grep $d|wc -l >> e

done < $FILE

cat e|sort -k 2 -r

rm -f b c e