using?System;
using?System.Collections.Generic;
using?System.ComponentModel;
using?System.Data;
using?System.Drawing;
using?System.Linq;
using?System.Text;
using?System.Windows.Forms;
using?System.IO;
using?System.xml;

namespace?Felomeng.VSMSimilarity
{
????public?partial?class?Form1?:?Form
????{
????????private?double?borderNumber?=?0.5;
????????private?string?corpusFolder?=?Application.StartupPath;
????????///?

????????///?語料文件名
????????///?

????????private?List?fileNames?=?new?List（）;
????????///?

????????///?降維表
????????///?

????????private?List?reducingKeys?=?new?List（）;
????????///?

????????///?文章的詞典（降維后）
????????///?

????????private?Dictionary>?textsDictionaries?=?new?Dictionary>（）;
????????//Dictionary?wordFrequency?=?new?Dictionary（）;
????????public?Form1（）
????????{
????????????InitializeComponent（）;
????????}

????????private?void?browse_Click（object?sender?EventArgs?e）
????????{
????????????AsignDir（）;
????????????if?（File.Exists（Application.StartupPath?+?“\\Dictionaries.xml“））
????????????{
????????????????DialogResult?result?=?MessageBox.Show（“詞典已存在，再替換現有詞典嗎？“?+?Environment.NewLine
????????????????????+?“單擊是替換，否使用剛統計的詞典，單擊取消使用原有“?“已經有詞典“?MessageBoxButtons.YesNoCancel）;
????????????????switch?（result）
????????????????{
????????????????????case?DialogResult.Yes:
????????????????????????File.Delete（Application.StartupPath?+?“\\Dictionaries.xml“）;
????????????????????????SaveDictionaries（）;
????????????????????????break;
????????????????????case?DialogResult.Cancel:?
????????????????????????LoadDictionaries（Application.StartupPath?+?“\\Dictionaries.xml“）;
????????????????????????this.corpusDir.Text?=?“使用原有詞典！“;
????????????????????????break;
????????????????}
????????????}
????????????else
????????????{
????????????????SaveDictionaries（）;
????????????}
????????}

????????private?void?AsignDir（）
????????{
????????????FolderBrowserDialog?browse?=?new?FolderBrowserDialog（）;
????????????browse.Description?=?“指定源語料所在文件夾“;
????????????if?（browse.ShowDialog（）?==?DialogResult.OK）
????????????{
????????????????this.corpusDir.Text?=?browse.SelectedPath;
????????????????GetAllDirectories（browse.SelectedPath）;
????????????}
????????}

????????private?void?SaveDictionaries（）
????????{
????????????StreamWriter?write?=?new?StreamWriter（Application.StartupPath?+?“\\Dictionaries.xml“?true?Encoding.GetEncoding（“gb2312“））;
????????????write.WriteLine（“l?version=\“1.0\“?encoding=\“GB2312\“?>“）;
????????????write.WriteLine（““）;
????????????foreach?（KeyValuePair>?dictionary?in?textsDictionaries）
????????????{
????????????????foreach?（KeyValuePair?dict?in?dictionary.Value）
????????????????{
????????????????????write.WriteLine（“\t