Analyze Words in a Block of Text
StringCases allows you to pick out specific strings, including words, from text.
words = ToLowerCase[StringCases[Import["ExampleData/USConstitution.txt"], WordCharacter..]];Length[words]Length[Union[words]]ListLogPlot[Sort[Last /@ Tally[words]], PlotRange -> All]Take[Sort[Reverse /@ Tally[words]], -10]