人気のあるキーワード

using System;
using System.IO; 
using System.Net;
using System.Collections;
using System.Text.RegularExpressions;

public class Test 
{
	public static void Main()
	{
		string		s;
		int			forum = 7;
		int			k = 0;
		Hashtable	h = new Hashtable();
		WebClient wc = new WebClient();
		while (true)
		{
			s = "http://www.atmarkit.co.jp/bbs/phpBB/viewforum.php?forum=" + forum + "&start=" + k;
			Console.WriteLine(s);
			Byte[] b = wc.DownloadData(s); 
			s = (string)System.Text.Encoding.GetEncoding("euc-jp").GetString(b);
			k += 50;
			MatchCollection mc = Regex.Matches(s,"forum=" + forum + "&[0-9]+\\">(.*?)</a>"
				+ ".*?size=\\"2\\">([0-9]+)</font>.*?size=\\"2\\">([0-9]+)</font>",RegexOptions.Singleline);
			if (mc.Count == 0) break;
			foreach (Match m in mc)
			{
				int	n = int.Parse(m.Groups[3].Value);
				foreach (Match mm in Regex.Matches(m.Groups[1].Value,"[a-zA-Z.]+"))
				{
					s = mm.Value.ToLower();
					if (s.Length == 1 || s == "...") continue;
					object o = h[s];
					h[s] = n + (o == null ? 0 : (int)o);
				}
			}
		}
		wc.Dispose();
		SortedList sl = new SortedList();
		foreach (DictionaryEntry de in h) sl[-(int)de.Value] = de.Key;
		k = 0;
		string fnam = "result.txt";
		StreamWriter sw = new StreamWriter(fnam);
		foreach (DictionaryEntry de in sl)
		{
			sw.WriteLine("{0,3} {1,6} {2}",++k,-(int)de.Key,de.Value);
		}
		sw.Close();
		System.Diagnostics.Process.Start(fnam);
	}
}