{"id":255,"date":"2010-09-08T21:46:10","date_gmt":"2010-09-09T04:46:10","guid":{"rendered":"http:\/\/192.168.1.2\/wordpress\/?p=255"},"modified":"2013-03-13T17:30:59","modified_gmt":"2013-03-14T00:30:59","slug":"vocabulary-database","status":"publish","type":"post","link":"http:\/\/cywang.no-ip.org\/wordpress\/?p=255","title":{"rendered":"Vocabulary Database"},"content":{"rendered":"

\n\tFeatures:\n<\/p>\n

    \n
  1. \n\t\tImport vocabularies from Dr.eye<\/a> and Merriam-Webster<\/a> online dictionary\n\t<\/li>\n
  2. \n\t\tInstall KK phonics font in your system\n\t<\/li>\n
  3. \n\t\tSupport pronunciation through internet\n\t<\/li>\n<\/ol>\n

    \n\t \n<\/p>\n

    <\/p>\n

    \n\t\"GRE\"<\/a>\n<\/p>\n

    \r\n\/\/---------------------------------------------------------------------------\r\n\r\n#include <vcl.h>\r\n#include <shlwapi.h>\r\n#include <GdiPlus.h>\r\n#pragma comment( lib, "shlwapi.lib")\r\n#pragma comment( lib, "gdiplus.lib")\r\n\r\nTForm1 *Form1;\r\nbool bChangeFontSize = false;\r\n\/\/---------------------------------------------------------------------------\r\nAnsiString url="http:\/\/www.dreye.com\/axis\/ddict.jsp?w=";\r\nAnsiString search_word,actual_word,multi_word;\r\nAnsiString play_path;\r\n\r\nAnsiString phonetic[67];\r\nint batch_flag=0;\r\nAnsiString *batch_vocabulary;\r\nint vocabulary_count=0;\r\nint vocabulary_index=0;\r\n\r\nVocabulary *words;\r\nvector<Vocabulary> vector_words;\r\n\r\nAnsiString SearchHistory;\r\nint inc = 1; \/\/multiple meanings\r\n\r\nbool bOpenSite = false; \r\n\r\nAnsiString PreStr[30];\r\nAnsiString SelVoc[200];\r\nint preNum = 18;\r\nint SelNum = 0;\r\nint currentPos = 0;\r\n\r\nAnsiString *BatchVoc;\r\nint batch_num = 0;\r\nint iBatchCurrentPos = 0;\r\nbool bBatchAutoInsert = false;\r\nbool bBatchMultiVoc = false;     \r\n\r\nAnsiString *FangVoc;\r\nint Fang_num = 0;\r\nint iFangCurrentPos = 0;\r\nbool bFangSemiAutoUpdate = false;  \r\nbool bFangAutoUpdate = false;    \r\nbool bNewFang = false;    \r\n\r\nAnsiString OriginalList;\r\n\/\/---------------------------------------------------------------------------\r\nvoid __fastcall TForm1::SetFontStyle(TRichEdit *RichEdit,int start, int length)\r\n{\r\n int r;\r\n AnsiString S;\r\n S=RichEdit->Text;\r\n TTextAttributes   *AText   =   new   TTextAttributes(RichEdit,atSelected);\r\n RichEdit->SelStart = start;\r\n RichEdit->SelLength = length;\r\n AText->Name   =   "Be Young's Phonetic Symbol";\r\n if(bChangeFontSize)\r\n  AText->Size   =   iFontSize;\r\n else\r\n  AText->Size   =   12;\r\n}\r\n\/\/---------------------------------------------------------------------------\r\nvoid __fastcall TForm1::GetData(int MSearch)\r\n{\r\n if(Edt_Voc->Text != "")\r\n {\r\n  if(MSearch == 0)\r\n   Memo_Dreye->Clear();\r\n\r\n  \r\n  AnsiString search_word=Edt_Voc->Text.LowerCase();\r\n  AnsiString body,final_search_word;\r\n  if(search_word.Pos(" ")>0)\r\n  {\r\n   AnsiString tmp = search_word;\r\n   final_search_word = StringReplace(tmp.c_str(), " ", "%20", TReplaceFlags() << rfReplaceAll).c_str();\r\n  }\r\n  else\r\n   final_search_word = search_word;\r\n  try\r\n  {\r\n   Application->ProcessMessages();\r\n   body=IdHTTP1->Get(url+final_search_word);\r\n   Application->ProcessMessages();\r\n  }\r\n  catch(EIdHTTPProtocolException &e)\r\n  {;}\r\n\r\n  words[0].explain=body.c_str();\r\n  Application->ProcessMessages();\r\n  AnsiString del_to_mp3_path="param name=\\"FileName\\" value=\\"";\r\n  words[0].explain.erase(0,words[0].explain.find(del_to_mp3_path.c_str())+del_to_mp3_path.Length());\r\n  play_path=words[0].explain.substr(0,words[0].explain.find("\\">")).c_str();\r\n\r\n  AnsiString title = "<div class=ptitle>";\r\n  if(words[0].explain.find(title.c_str())!=string::npos)\r\n   words[0].explain.erase(0,words[0].explain.find(title.c_str())+title.Length());\r\n\r\n  AnsiString play_str="onclick=\\"PlayAU()\\">";\r\n  if(words[0].explain.find(play_str.c_str())!=string::npos)\r\n   words[0].explain.erase(0,words[0].explain.find(play_str.c_str())+play_str.Length());\r\n\r\n  actual_word=words[0].explain.substr(0,words[0].explain.find("<")).c_str();\r\n  actual_word=actual_word.Trim();\r\n\r\n\r\n  multi_word=actual_word;\r\n\r\n  AnsiString sup_start="<sup>";\r\n  AnsiString sup_end="<\/sup>";\r\n  if(words[0].explain.find(sup_start.c_str())!=string::npos)\r\n  {\r\n   Application->ProcessMessages();\r\n   AnsiString tmp=words[0].explain.substr(words[0].explain.find(sup_start.c_str()),words[0].explain.find(sup_end.c_str())).c_str();\r\n   tmp=StringReplace(tmp.c_str(), sup_start.c_str(), "@", TReplaceFlags() << rfReplaceAll).c_str();\r\n   tmp=tmp.SubString(0,tmp.Pos("<")-1);\r\n   multi_word=actual_word+tmp;\r\n   Edt_Voc->Text=multi_word;\r\n   Panel4->Visible = true;\r\n   bBatchMultiVoc = true; \r\n   if(!bFangAutoUpdate)\r\n    ShowMessage("Multiple Meanings");\r\n  }\r\n  else\r\n  {\r\n   Panel4->Visible = false;\r\n   bBatchMultiVoc = false;\r\n  }\r\n\r\n  if(actual_word.LowerCase()!=search_word.LowerCase())\r\n  {\r\n   if(final_search_word.Pos("@")<1) \r\n   {\r\n              bBatchMultiVoc = true;\r\n    if(!bFangAutoUpdate)\r\n     ShowMessage("\u627e\u4e0d\u5230\uff1a"+search_word+". \u76f8\u4f3c\u5b57\uff1a"+actual_word);\r\n   }\r\n  }\r\n\r\n  if(inc>1 && StrToInt(multi_word.SubString(multi_word.Pos("@")+1,1).c_str())==1 )l\r\n  {\r\n   Btn_Next->Enabled = false;\r\n   Edt_Voc->Text = Edt_Voc->Text.SubString(0,Edt_Voc->Text.Pos("@")-1);\r\n   inc--;\r\n   return;\r\n  }\r\n  else\r\n   Btn_Next->Enabled = true;\r\n\r\n  if(inc<=0)\r\n  {\r\n   inc = 1;\r\n   return;\r\n  }\r\n\r\n  words[0].explain.erase(0,words[0].explain.find("KK: [")+6);\r\n\r\n\r\n  words[0].explain.insert(0,"[");\r\n  if(words[0].explain.find("<div id=\\"rad\\">")!=string::npos)\r\n   words[0].explain.erase(words[0].explain.find(\"
    \"),words[0].explain.length());\r\n\r\n  AnsiString image_src;\r\n  image_src="<img border=0 align=absbottom src=\\"http:\/\/www.dreye.com\/tw\/dict\/IMAGES\/DIC\/PN\/";\r\n  if( words[0].explain.find(image_src.c_str())!=string::npos)\r\n  {\r\n   string tmp_kk=words[0].explain.substr(0,words[0].explain.find("DJ: [")-4); \r\n\r\n   \/\/ShowMessage(words[0].explain.c_str());\r\n   AnsiString kk_str;\r\n   kk_str=StringReplace(tmp_kk.c_str(), image_src, "", TReplaceFlags() << rfReplaceAll);\r\n   kk_str=StringReplace(kk_str, ".GIF\\">", "][", TReplaceFlags() << rfReplaceAll);\r\n   kk_str=StringReplace(kk_str, "[]", "", TReplaceFlags() << rfReplaceAll);\r\n   kk_str=StringReplace(kk_str, "<br>", "", TReplaceFlags() << rfReplaceAll);\r\n   kk_str=kk_str.Trim();\r\n   if( words[0].explain.find("img border=0 align=absbottom src=\\"http:\/\/www.dreye.com\/tw\/dict\/IMAGES\/DIC\/PN\/")!=string::npos)\r\n    kk_str=StringReplace(kk_str.c_str(), "img border=0 align=absbottom src=\\"http:\/\/www.dreye.com\/tw\/dict\/IMAGES\/DIC\/PN\/", "", TReplaceFlags() << rfReplaceAll);\r\n   kk_str = StringReplace(kk_str.c_str(), "\\n", "", TReplaceFlags() << rfReplaceAll).t_str(); \r\n   kk_str = StringReplace(kk_str.c_str(), "[]", "", TReplaceFlags() << rfReplaceAll).t_str();\r\n   words[0].kk=kk_str;\r\n  }\r\n  else\r\n  {\r\n   words[0].kk = "";\r\n  }\r\n  \/\/words[0].word=search_word;\r\n  words[0].word=actual_word;\r\n  words[0].explain.erase(0,words[0].explain.find("<\/div>")+6); \r\n\r\n  string del_str[12];\r\n  del_str[0]="<\/span><\/div>";\r\n  del_str[1]="<div class=peng>";\r\n  del_str[2]="<div class=pchi>";\r\n  del_str[3]="<ol>";\r\n  del_str[4]="<\/ol>";\r\n  del_str[5]="<li>";\r\n  del_str[6]="<\/li>";\r\n  del_str[7]="<div class=pcixin>";\r\n  del_str[8]="<\/div>";\r\n  del_str[9]="\u3002<div class=pexplain>";\r\n  del_str[10]="<div class=\\"break\\">";\r\n  del_str[11]="<div class=pexplain>";\r\n  while(words[0].explain.find(del_str[1])!=string::npos)\r\n  {\r\n   Application->ProcessMessages();\r\n   words[0].explain.erase(words[0].explain.find(del_str[1]),words[0].explain.find(del_str[0])-words[0].explain.find(del_str[1]));\r\n   words[0].explain.erase(words[0].explain.find(del_str[0]),del_str[0].length());\r\n   words[0].explain.erase(words[0].explain.find(del_str[2]),words[0].explain.find(del_str[0])-words[0].explain.find(del_str[2]));\r\n   words[0].explain.erase(words[0].explain.find(del_str[0]),del_str[0].length());\r\n  }\r\n  if(words[0].explain.find(del_str[10])!=string::npos)\r\n  {\r\n   words[0].explain.erase(words[0].explain.find(del_str[10]),words[0].explain.length());\r\n  }\r\n\r\n  for(int i=3;i<=6;i++)\r\n  {\r\n   while(words[0].explain.find(del_str[i])!=string::npos)\r\n   {\r\n    words[0].explain.erase(words[0].explain.find(del_str[i]),del_str[i].length());\r\n   }\r\n  }\r\n  words[0].explain=StringReplace(words[0].explain.c_str(), "\\n", "", TReplaceFlags() << rfReplaceAll).t_str(); \r\n  words[0].explain=StringReplace(words[0].explain.c_str(), del_str[7].c_str(), "<div class=pcixin>", TReplaceFlags() << rfReplaceAll).t_str();\r\n  words[0].explain=StringReplace(words[0].explain.c_str(), del_str[8].c_str(), "\u3002", TReplaceFlags() << rfReplaceAll).t_str();\r\n  words[0].explain=StringReplace(words[0].explain.c_str(), del_str[9].c_str(), "", TReplaceFlags() << rfReplaceAll).t_str();\r\n  words[0].explain=StringReplace(words[0].explain.c_str(), del_str[7].c_str(), "", TReplaceFlags() << rfReplaceAll).t_str();\r\n  words[0].explain=StringReplace(words[0].explain.c_str(), del_str[11].c_str(), "", TReplaceFlags() << rfReplaceAll).t_str();\r\n\r\n  AnsiString cixing[2];\r\n  cixing[0]="a.";\r\n  cixing[1]="ad.";\r\n  words[0].explain=StringReplace(words[0].explain.c_str(), cixing[0].c_str(), "adj.", TReplaceFlags() << rfReplaceAll).t_str();\r\n  words[0].explain=StringReplace(words[0].explain.c_str(), cixing[1].c_str(), "adv.", TReplaceFlags() << rfReplaceAll).t_str();\r\n\r\n\r\n  if(words[0].explain.find("<br>")!=string::npos)\r\n   words[0].explain.erase(words[0].explain.find(\"
    \"),words[0].explain.length());\r\n\r\n  Memo_Dreye->Lines->Add(words[0].explain.c_str());\r\n\r\n  \/\/set phonetic\r\n  SetPhoneticTable();\r\n\r\n  int kk_count=0;\r\n  AnsiString phonetic_str="";\r\n  while(words[0].kk.Pos(\"]")>0)\r\n  {\r\n         Application->ProcessMessages();\r\n   phonetic_str+=phonetic[words[0].kk.SubString(2,3).ToInt()];\r\n   words[0].kk.Delete(1,5);\r\n   kk_count++;\r\n  }\r\n  Edt_KK->Text = "[\" + phonetic_str + \"]";\r\n\r\n  IdHTTP1->Disconnect();\r\n\r\n  if(!CheckBox_EE->Checked)\r\n  {\r\n   \/\/ Get Webster\r\n   AnsiString web_voc = Edt_Voc->Text;\r\n   if(web_voc.Pos("@")>0)\r\n    web_voc = web_voc.SubString(1,web_voc.Pos("@")-1);\r\n   AnsiString wikiurl="http:\/\/kaoshi.wobuxihuan.org\/w\/index.php?title="+web_voc+"&amp;action=edit&amp;section=1";\r\n\r\n            try\r\n   {\r\n    AnsiString webster_body=IdHTTP2->Get(wikiurl);\r\n    words[0].webster = webster_body.c_str();\r\n\r\n    AnsiString pos_tmp = words[0].webster.c_str();\r\n    if(pos_tmp.Pos("Webster")>0)\r\n    {\r\n     words[0].webster.erase(0,words[0].webster.find("Webster Collegiate <\/span><\/h3>")+31);\r\n     words[0].webster.erase(words[0].webster.find(\"    \")-words[0].webster.find("<a name=\\".E8.AE.B0.E5.BF.86")+7);\r\n\r\n\r\n     AnsiString web_temp = words[0].webster.c_str();\r\n\r\n     while(web_temp.Pos("<")>0)\r\n     {\r\n      int start_pos = web_temp.Pos("<");\r\n      int end_pos = web_temp.Pos(">");\r\n      web_temp = web_temp.Delete(start_pos,end_pos - start_pos +1);\r\n     }\r\n     while(web_temp.Pos("&nbsp;")>0)\r\n     {\r\n      int start_pos = web_temp.Pos("&nbsp;");\r\n      web_temp = web_temp.Delete(start_pos,6);\r\n     }\r\n     while(web_temp.Pos("&lt;")>0)\r\n     {\r\n      int start_pos = web_temp.Pos("&lt;");\r\n      web_temp = web_temp.Delete(start_pos,4);\r\n     }\r\n     while(web_temp.Pos("[sup]")>0)\r\n     {\r\n      int start_pos = web_temp.Pos("[sup]");\r\n      web_temp = web_temp.Delete(start_pos,5);\r\n     }\r\n     while(web_temp.Pos("[\/sup]")>0)\r\n     {\r\n      int start_pos = web_temp.Pos("[\/sup]");\r\n      web_temp = web_temp.Delete(start_pos,6);\r\n     }\r\n     RichEdit1->Text = web_temp;\r\n     Memo_Webster->Text = RichEdit1->Text;\r\n    }\r\n   }\r\n   catch(EIdHTTPProtocolException &e)\r\n   {;}\r\n\r\n\r\n  }\r\n  if(CheckBox_Root->Checked)\r\n  {\r\n   AnsiString actual_word2;\r\n   bool isPrestr = false;\r\n   int  prePos=19;\r\n   AnsiString strRoot;\r\n   for(int x=0;x<preNum;x++)\r\n   {\r\n    \/\/PreStr\r\n    if( Edt_Voc->Text.SubString(1,PreStr[x].Length()) ==  PreStr[x])\r\n    {\r\n     isPrestr = true;\r\n     prePos = x;\r\n     break;\r\n    }\r\n   }\r\n   if(isPrestr)\r\n   {\r\n    strRoot = Edt_Voc->Text.SubString(PreStr[prePos].Length() + 1,Edt_Voc->Text.Length()-PreStr[prePos].Length() + 1);\r\n    try\r\n    {\r\n     Application->ProcessMessages();\r\n     body=IdHTTP1->Get(url+strRoot);\r\n     Application->ProcessMessages();\r\n    }\r\n    catch(EIdHTTPProtocolException &e)\r\n    {;}\r\n\r\n    words[1].explain=body.c_str();\r\n    Application->ProcessMessages();\r\n    AnsiString del_to_mp3_path="param name=\\"FileName\\" value=\\"";\r\n    words[1].explain.erase(0,words[1].explain.find(del_to_mp3_path.c_str())+del_to_mp3_path.Length());\r\n\r\n    AnsiString title = "<div class=ptitle>";\r\n    if(words[1].explain.find(title.c_str())!=string::npos)\r\n     words[1].explain.erase(0,words[1].explain.find(title.c_str())+title.Length());\r\n\r\n    AnsiString play_str="onclick=\\"PlayAU()\\">";\r\n    if(words[1].explain.find(play_str.c_str())!=string::npos)\r\n     words[1].explain.erase(0,words[1].explain.find(play_str.c_str())+play_str.Length());\r\n\r\n    actual_word2=words[1].explain.substr(0,words[1].explain.find("<")).c_str();\r\n    actual_word2=actual_word2.Trim();\r\n\r\n\r\n    multi_word=actual_word2;\r\n\r\n    AnsiString sup_start="<sup>";\r\n    AnsiString sup_end="<\/sup>";\r\n    if(words[1].explain.find(sup_start.c_str())!=string::npos)\r\n    {\r\n     Application->ProcessMessages();\r\n     AnsiString tmp=words[1].explain.substr(words[1].explain.find(sup_start.c_str()),words[1].explain.find(sup_end.c_str())).c_str();\r\n     tmp=StringReplace(tmp.c_str(), sup_start.c_str(), "@", TReplaceFlags() << rfReplaceAll).c_str();\r\n     tmp=tmp.SubString(0,tmp.Pos("<")-1);\r\n     multi_word=actual_word2+tmp;\r\n     Memo_Memo->Lines->Add(strRoot + " ");\r\n     if(!bFangAutoUpdate)\r\n      ShowMessage("Multiple Meanings");\r\n    }\r\n    else\r\n    {\r\n     bool notFound = false;\r\n\r\n     if(actual_word2.LowerCase()!=strRoot.LowerCase())\r\n     {\r\n      if(final_search_word.Pos("@")<1) \r\n       notFound = true;\r\n     }\r\n     if(!notFound)\r\n     {\r\n      words[1].explain.erase(0,words[1].explain.find("KK: [")+6);\r\n\r\n      words[1].explain.insert(0,"[");\r\n      if(words[1].explain.find("<div id=\\"rad\\">")!=string::npos)\r\n       words[1].explain.erase(words[1].explain.find(\"
    \"),words[1].explain.length());\r\n\r\n      AnsiString image_src;\r\n      image_src="<img border=0 align=absbottom src=\\"http:\/\/www.dreye.com\/tw\/dict\/IMAGES\/DIC\/PN\/";\r\n      if( words[1].explain.find(image_src.c_str())!=string::npos)\r\n      {\r\n       string tmp_kk=words[1].explain.substr(0,words[1].explain.find("DJ: [")-4); \r\n\r\n       AnsiString kk_str;\r\n       kk_str=StringReplace(tmp_kk.c_str(), image_src, "", TReplaceFlags() << rfReplaceAll);\r\n       kk_str=StringReplace(kk_str, ".GIF\\">", "][", TReplaceFlags() << rfReplaceAll);\r\n       kk_str=StringReplace(kk_str, "[]", "", TReplaceFlags() << rfReplaceAll);\r\n       kk_str=StringReplace(kk_str, "<br>", "", TReplaceFlags() << rfReplaceAll);\r\n       kk_str=kk_str.Trim();\r\n       if( words[1].explain.find("img border=0 align=absbottom src=\\"http:\/\/www.dreye.com\/tw\/dict\/IMAGES\/DIC\/PN\/")!=string::npos)\r\n        kk_str=StringReplace(kk_str.c_str(), "img border=0 align=absbottom src=\\"http:\/\/www.dreye.com\/tw\/dict\/IMAGES\/DIC\/PN\/", "", TReplaceFlags() << rfReplaceAll);\r\n       kk_str = StringReplace(kk_str.c_str(), "\\n", "", TReplaceFlags() << rfReplaceAll).t_str(); \r\n       kk_str = StringReplace(kk_str.c_str(), "[]", "", TReplaceFlags() << rfReplaceAll).t_str(); \r\n       words[1].kk=kk_str;\r\n      }\r\n      else\r\n      {\r\n       words[1].kk = "";\r\n      }\r\n      \/\/words[1].word=search_word;\r\n      words[1].word=actual_word2;\r\n      words[1].explain.erase(0,words[1].explain.find("<\/div>")+6); \r\n\r\n      string del_str[12];\r\n      del_str[0]="<\/span><\/div>";\r\n      del_str[1]="<div class=peng>";\r\n      del_str[2]="<div class=pchi>";\r\n      del_str[3]="<ol>";\r\n      del_str[4]="<\/ol>";\r\n      del_str[5]="<li>";\r\n      del_str[6]="<\/li>";\r\n      del_str[7]="<div class=pcixin>";\r\n      del_str[8]="<\/div>";\r\n      del_str[9]="\u3002<div class=pexplain>";\r\n      del_str[10]="<div class=\\"break\\">";\r\n      del_str[11]="<div class=pexplain>";\r\n      while(words[1].explain.find(del_str[1])!=string::npos)\r\n      {\r\n       Application->ProcessMessages();\r\n       words[1].explain.erase(words[1].explain.find(del_str[1]),words[1].explain.find(del_str[0])-words[1].explain.find(del_str[1]));\r\n       words[1].explain.erase(words[1].explain.find(del_str[0]),del_str[0].length());\r\n       words[1].explain.erase(words[1].explain.find(del_str[2]),words[1].explain.find(del_str[0])-words[1].explain.find(del_str[2]));\r\n       words[1].explain.erase(words[1].explain.find(del_str[0]),del_str[0].length());\r\n      }\r\n      if(words[1].explain.find(del_str[10])!=string::npos)\r\n      {\r\n       words[1].explain.erase(words[1].explain.find(del_str[10]),words[1].explain.length());\r\n      }\r\n\r\n      for(int i=3;i<=6;i++)\r\n      {\r\n       while(words[1].explain.find(del_str[i])!=string::npos)\r\n       {\r\n        words[1].explain.erase(words[1].explain.find(del_str[i]),del_str[i].length());\r\n       }\r\n      }\r\n      words[1].explain=StringReplace(words[1].explain.c_str(), "\\n", "", TReplaceFlags() << rfReplaceAll).t_str();\r\n      words[1].explain=StringReplace(words[1].explain.c_str(), del_str[7].c_str(), "<div class=pcixin>", TReplaceFlags() << rfReplaceAll).t_str();\r\n      words[1].explain=StringReplace(words[1].explain.c_str(), del_str[8].c_str(), "\u3002", TReplaceFlags() << rfReplaceAll).t_str();\r\n      words[1].explain=StringReplace(words[1].explain.c_str(), del_str[9].c_str(), "", TReplaceFlags() << rfReplaceAll).t_str();\r\n      words[1].explain=StringReplace(words[1].explain.c_str(), del_str[7].c_str(), "", TReplaceFlags() << rfReplaceAll).t_str();\r\n      words[1].explain=StringReplace(words[1].explain.c_str(), del_str[11].c_str(), "", TReplaceFlags() << rfReplaceAll).t_str();\r\n\r\n      AnsiString cixing[2];\r\n      cixing[0]="a.";\r\n      cixing[1]="ad.";\r\n      words[1].explain=StringReplace(words[1].explain.c_str(), cixing[0].c_str(), "adj.", TReplaceFlags() << rfReplaceAll).t_str();\r\n      words[1].explain=StringReplace(words[1].explain.c_str(), cixing[1].c_str(), "adv.", TReplaceFlags() << rfReplaceAll).t_str();\r\n\r\n\r\n      if(words[1].explain.find("<br>")!=string::npos)\r\n       words[1].explain.erase(words[1].explain.find(\"
    \"),words[1].explain.length());\r\n      AnsiString RootAdd = strRoot + " " + words[1].explain.c_str();\r\n      if(Memo_Memo->Text.Pos(RootAdd)<1)\r\n       Memo_Memo->Lines->Add(strRoot + " " + words[1].explain.c_str());\r\n      else\r\n       ShowMessage("Data Exist");\r\n     }\r\n    }\r\n    IdHTTP1->Disconnect();\r\n   }\r\n  }\r\n\r\n  \r\n }\r\n}\r\n\/\/---------------------------------------------------------------------------\r\nvoid __fastcall TForm1::Btn_AddClick(TObject *Sender)\r\n{\r\n if(Edit_RB_List->Text == "0")\r\n {\r\n  CheckBox_RB->Checked = false;\r\n  CheckBox_EL->Checked = true; \r\n }\r\n Label_NextProgress->Caption = "";\r\n \r\n int source = 0x00;\r\n if(CheckBox_RB->Checked)\r\n  source += 0x01;\r\n if(CheckBox_BL->Checked)\r\n  source += 0x02;\r\n if(CheckBox_BK->Checked)\r\n  source += 0x04;\r\n if(CheckBox_EL->Checked)\r\n  source += 0x08;\r\n\r\n AnsiString voc = Edt_Voc->Text;\r\n AnsiString kk = Edt_KK->Text;\r\n AnsiString explain = Memo_Explain->Text;\r\n AnsiString memory = Edit_Mem->Text;\r\n AnsiString notice = Edit_Note->Text;\r\n AnsiString sameroot = Edit_Same->Text;\r\n AnsiString antonym = Edit_Antonym->Text;\r\n AnsiString reference = Edit_Ref->Text;\r\n AnsiString like = Edit_Like->Text;\r\n AnsiString derive = Edit_Derive->Text;\r\n AnsiString example = Edit_Example->Text;\r\n AnsiString phrase = Edit_Phrase->Text;\r\n AnsiString term = Edit_Term->Text;\r\n AnsiString dreye = Memo_Dreye->Text;\r\n AnsiString othermemo = Memo_Memo->Text;\r\n AnsiString webster = Memo_Webster->Text;\r\n\r\n AnsiString tmp_webster;\r\n for(int i=0;i<Memo_Webster->Lines->Count;i++)\r\n {\r\n  if(Memo_Webster->Lines->Strings[i] != "")\r\n   tmp_webster = tmp_webster + Memo_Webster->Lines->Strings[i] + "\\n";\r\n }\r\n webster = tmp_webster;\r\n\r\n\r\n int frequency = Edit_Freq->Text.ToInt();\r\n\r\n int RB_List = Edit_RB_List->Text.ToInt();\r\n\r\n int mark=0;\r\n if(CheckBox_Mark->Checked)\r\n  mark = 1;\r\n\r\n int forecast=0;\r\n if(CheckBox_Forecast->Checked == true)\r\n  forecast = 1;\r\n\r\n ADOTable1->Active=false;\r\n ADOConnection1->Open();\r\n ADOQuery1->Close();\r\n ADOQuery1->Open();\r\n\r\n AnsiString temp_explain;\r\n temp_explain = explain;\r\n if(temp_explain.Pos("'")>0)\r\n  explain = StringReplace(temp_explain.c_str(), "'", "''", TReplaceFlags() << rfReplaceAll).c_str();\r\n\r\n AnsiString temp_othermemo;\r\n temp_othermemo = othermemo;\r\n if(temp_othermemo.Pos("'")>0)\r\n  othermemo = StringReplace(temp_othermemo.c_str(), "'", "''", TReplaceFlags() << rfReplaceAll).c_str();\r\n\r\n AnsiString temp_example;\r\n temp_example = example;\r\n if(temp_example.Pos("'")>0)\r\n  example = StringReplace(temp_example.c_str(), "'", "''", TReplaceFlags() << rfReplaceAll).c_str();\r\n\r\n AnsiString temp_webster;\r\n temp_webster = webster;\r\n if(temp_webster.Pos("'")>0)\r\n  webster = StringReplace(temp_webster.c_str(), "'", "''", TReplaceFlags() << rfReplaceAll).c_str();\r\n\r\n AnsiString temp_dreye;\r\n temp_dreye = dreye;\r\n if(temp_dreye.Pos("'")>0)\r\n  dreye = StringReplace(temp_dreye.c_str(), "'", "''", TReplaceFlags() << rfReplaceAll).c_str();\r\n\r\n AnsiString tmp_memo;\r\n for(int i=0;i<Memo_Memo->Lines->Count;i++)\r\n {\r\n  if(Memo_Memo->Lines->Strings[i] != "")\r\n   tmp_memo = tmp_memo + Memo_Memo->Lines->Strings[i] + "\\n";\r\n }\r\n othermemo = tmp_memo;\r\n\r\n ADOQuery1->SQL->Text=\r\n  "insert into VocDB( "\r\n   "WORD, KK, RB_LIST, EXPLAIN, MARK, SOURCE, MEMORY, "\r\n   "NOTICE, ROOT, ANTONYM, REFERENCE, CONTOUR, DERIVE, EXAMPLE, "\r\n   "PHRASE, DREYE, OTHERMEMO, FREQUENCE_BLACK, CATEGORY, FORECAST, TERM, WEBSTER) "\r\n   " values('"+\r\n     voc + "', '" + kk + "', '" + IntToStr(RB_List) + "', '" + explain + "', '" + IntToStr(mark) + "', '" + IntToStr(source) + "', '" + memory + "', '" +\r\n     notice + "', '" + sameroot + "', '" + antonym + "', '" + reference + "', '" + like + "', '" + derive + "', '" + example + "', '" +\r\n     phrase + "', '" + dreye + "', '" + othermemo + "', '" + IntToStr(frequency) + "', '" + category + "', '" + IntToStr(forecast)+ "', '" + term+ "', '" + webster+"')";\r\n\r\n ADOQuery1->ExecSQL();\r\n Form1->ADOQuery1->Close();\r\n\r\n TStrings *List=new TStringList;\r\n ADOConnection1->GetTableNames(List);\r\n ADOQuery1->Close();\r\n ADOQuery1->SQL->Text="select * from VocDB order by  RB_LIST, WORD";\r\n ADOQuery1->ExecSQL();\r\n ADOQuery1->Open();\r\n StatusBar1->Panels->Items[0]->Text ="\u76ee\u524d\u5171\u6709 " + IntToStr(ADOQuery1->RecordCount) + " \u500b\u55ae\u5b57";\r\n GridSize();\r\n ADOQuery1->Last(); \r\n\r\n Button7->OnClick(Sender);\r\n Panel4->Visible = false;\r\n\r\n Edit_Freq->Text = 0;\r\n\r\n bOpenSite = false;\r\n Edt_Voc->SetFocus();\r\n Btn_Add->Enabled = false;\r\n}\r\n\/\/---------------------------------------------------------------------------\r\nvoid __fastcall TForm1::DBGrid1DblClick(TObject *Sender)\r\n{\r\n\r\n GridSize();\r\n if(ADOQuery1->RecordCount > 0)\r\n {\r\n  Btn_Update->Enabled = true;\r\n  if(RadioButton_FirstUpper->Checked)\r\n   Edt_Voc->Text = DBGrid1->DataSource->DataSet->FieldByName("WORD")->AsString.SubString(1,1).UpperCase() +\r\n       DBGrid1->DataSource->DataSet->FieldByName("WORD")->AsString.SubString(2,DBGrid1->DataSource->DataSet->FieldByName("WORD")->AsString.Length()-1);\r\n  else if(RadioButton_UpperCase->Checked)\r\n   Edt_Voc->Text = DBGrid1->DataSource->DataSet->FieldByName("WORD")->AsString.UpperCase();\r\n  else if(RadioButton_LowerCase->Checked)\r\n   Edt_Voc->Text = DBGrid1->DataSource->DataSet->FieldByName("WORD")->AsString.LowerCase();\r\n  else if(RadioButton_Default->Checked)\r\n            Edt_Voc->Text = DBGrid1->DataSource->DataSet->FieldByName("WORD")->AsString;\r\n  Edt_KK->Text = DBGrid1->DataSource->DataSet->FieldByName("KK")->AsString;\r\n  Edit_RB_List->Text = DBGrid1->DataSource->DataSet->FieldByName("RB_LIST")->AsString;\r\n  Memo_Explain->Text = DBGrid1->DataSource->DataSet->FieldByName("EXPLAIN")->AsString;\r\n  Edit_Mem->Text = DBGrid1->DataSource->DataSet->FieldByName("MEMORY")->AsString;\r\n  Edit_Note->Text = DBGrid1->DataSource->DataSet->FieldByName("NOTICE")->AsString;\r\n  Edit_Same->Text = DBGrid1->DataSource->DataSet->FieldByName("ROOT")->AsString;\r\n  Edit_Antonym->Text = DBGrid1->DataSource->DataSet->FieldByName("ANTONYM")->AsString;\r\n  Edit_Ref->Text = DBGrid1->DataSource->DataSet->FieldByName("REFERENCE")->AsString;\r\n  Edit_Like->Text = DBGrid1->DataSource->DataSet->FieldByName("CONTOUR")->AsString;\r\n  Edit_Derive->Text = DBGrid1->DataSource->DataSet->FieldByName("DERIVE")->AsString;\r\n  Edit_Example->Text = DBGrid1->DataSource->DataSet->FieldByName("EXAMPLE")->AsString;\r\n  Edit_Phrase->Text = DBGrid1->DataSource->DataSet->FieldByName("PHRASE")->AsString;\r\n  Memo_Dreye->Text = DBGrid1->DataSource->DataSet->FieldByName("DREYE")->AsString;\r\n  Memo_Memo->Text = DBGrid1->DataSource->DataSet->FieldByName("OTHERMEMO")->AsString;\r\n  Edit_Term->Text = DBGrid1->DataSource->DataSet->FieldByName("TERM")->AsString;\r\n  Memo_Webster->Text = DBGrid1->DataSource->DataSet->FieldByName("WEBSTER")->AsString;\r\n\r\n  int source = DBGrid1->DataSource->DataSet->FieldByName("SOURCE")->AsInteger;\r\n\r\n  CheckBox_RB->Checked = false;\r\n  CheckBox_BL->Checked = false;\r\n  CheckBox_BK->Checked = false;\r\n  CheckBox_EL->Checked = false;\r\n\r\n  if(source&0x01)\r\n   CheckBox_RB->Checked = true;\r\n  if(source&0x02)\r\n   CheckBox_BL->Checked = true;\r\n  if(source&0x04)\r\n   CheckBox_BK->Checked = true;\r\n  if(source&0x08)\r\n   CheckBox_EL->Checked = true;\r\n\r\n\r\n  int mark = DBGrid1->DataSource->DataSet->FieldByName("MARK")->AsInteger;\r\n  if(mark == 0)\r\n   CheckBox_Mark->Checked = false;\r\n  else\r\n   CheckBox_Mark->Checked = true;\r\n\r\n  int forecast = DBGrid1->DataSource->DataSet->FieldByName("FORECAST")->AsInteger;\r\n  if(forecast == 0)\r\n   CheckBox_Forecast->Checked = false;\r\n  else\r\n   CheckBox_Forecast->Checked = true;\r\n\r\n  Edit_Freq->Text = DBGrid1->DataSource->DataSet->FieldByName("FREQUENCE_BLACK")->AsInteger;\r\n }\r\n}\r\n\/\/---------------------------------------------------------------------------\r\nvoid __fastcall TForm1::Btn_AutoSearchRootClick(TObject *Sender)\r\n{\r\n AnsiString body,final_search_word;\r\n bool isPrestr = false;\r\n int  prePos=19;\r\n AnsiString strRoot;\r\n for(int x=0;x<preNum;x++)\r\n {\r\n  \/\/PreStr\r\n  if( Edt_Voc->Text.SubString(1,PreStr[x].Length()) ==  PreStr[x])\r\n  {\r\n   isPrestr = true;\r\n   prePos = x;\r\n   break;\r\n  }\r\n\r\n }\r\n if(isPrestr)\r\n {\r\n  strRoot = Edt_Voc->Text.SubString(PreStr[prePos].Length() + 1,Edt_Voc->Text.Length()-PreStr[prePos].Length() + 1);\r\n  try\r\n  {\r\n   Application->ProcessMessages();\r\n   body=IdHTTP1->Get(url+strRoot);\r\n   Application->ProcessMessages();\r\n  }\r\n  catch(EIdHTTPProtocolException &e)\r\n  {;}\r\n\r\n  words[2].explain=body.c_str();\r\n  Application->ProcessMessages();\r\n  AnsiString del_to_mp3_path="param name=\\"FileName\\" value=\\"";\r\n  words[2].explain.erase(0,words[2].explain.find(del_to_mp3_path.c_str())+del_to_mp3_path.Length());\r\n  play_path=words[2].explain.substr(0,words[2].explain.find("\\">")).c_str();\r\n\r\n\r\n  AnsiString title = "<div class=ptitle>";\r\n  if(words[2].explain.find(title.c_str())!=string::npos)\r\n   words[2].explain.erase(0,words[2].explain.find(title.c_str())+title.Length());\r\n\r\n  AnsiString play_str="onclick=\\"PlayAU()\\">";\r\n  if(words[2].explain.find(play_str.c_str())!=string::npos)\r\n   words[2].explain.erase(0,words[2].explain.find(play_str.c_str())+play_str.Length());\r\n\r\n  actual_word=words[2].explain.substr(0,words[2].explain.find("<")).c_str();\r\n  actual_word=actual_word.Trim();\r\n\r\n\r\n  multi_word=actual_word;\r\n\r\n  AnsiString sup_start="<sup>";\r\n  AnsiString sup_end="<\/sup>";\r\n  if(words[2].explain.find(sup_start.c_str())!=string::npos)\r\n  {\r\n   Application->ProcessMessages();\r\n   AnsiString tmp=words[2].explain.substr(words[2].explain.find(sup_start.c_str()),words[2].explain.find(sup_end.c_str())).c_str();\r\n   tmp=StringReplace(tmp.c_str(), sup_start.c_str(), "@", TReplaceFlags() << rfReplaceAll).c_str();\r\n   tmp=tmp.SubString(0,tmp.Pos("<")-1);\r\n   multi_word=actual_word+tmp;\r\n   Memo_Memo->Lines->Add(strRoot + " ");\r\n   if(!bFangAutoUpdate)\r\n    ShowMessage("Multiple Meanings");\r\n  }\r\n  else\r\n  {\r\n   bool notFound = false;\r\n\r\n   if(actual_word.LowerCase()!=strRoot.LowerCase())\r\n   {\r\n    if(final_search_word.Pos("@")<1) \r\n     notFound = true;\r\n   }\r\n   if(!notFound)\r\n   {\r\n    words[2].explain.erase(0,words[2].explain.find("KK: [")+6);\r\n\r\n\r\n    words[2].explain.insert(0,"[");\r\n    if(words[2].explain.find("<div id=\\"rad\\">")!=string::npos)\r\n     words[2].explain.erase(words[2].explain.find(\"
    \"),words[2].explain.length());\r\n\r\n\r\n    AnsiString image_src;\r\n    image_src="<img border=0 align=absbottom src=\\"http:\/\/www.dreye.com\/tw\/dict\/IMAGES\/DIC\/PN\/";\r\n    if( words[2].explain.find(image_src.c_str())!=string::npos)\r\n    {\r\n     string tmp_kk=words[2].explain.substr(0,words[2].explain.find("DJ: [")-4); \r\n\r\n \r\n     AnsiString kk_str;\r\n     kk_str=StringReplace(tmp_kk.c_str(), image_src, "", TReplaceFlags() << rfReplaceAll);\r\n     kk_str=StringReplace(kk_str, ".GIF\\">", "][", TReplaceFlags() << rfReplaceAll);\r\n     kk_str=StringReplace(kk_str, "[]", "", TReplaceFlags() << rfReplaceAll);\r\n     kk_str=StringReplace(kk_str, "<br>", "", TReplaceFlags() << rfReplaceAll);\r\n     kk_str=kk_str.Trim();\r\n     if( words[2].explain.find("img border=0 align=absbottom src=\\"http:\/\/www.dreye.com\/tw\/dict\/IMAGES\/DIC\/PN\/")!=string::npos)\r\n      kk_str=StringReplace(kk_str.c_str(), "img border=0 align=absbottom src=\\"http:\/\/www.dreye.com\/tw\/dict\/IMAGES\/DIC\/PN\/", "", TReplaceFlags() << rfReplaceAll);\r\n     kk_str = StringReplace(kk_str.c_str(), "\\n", "", TReplaceFlags() << rfReplaceAll).t_str();\r\n     kk_str = StringReplace(kk_str.c_str(), "[]", "", TReplaceFlags() << rfReplaceAll).t_str();\r\n     words[2].kk=kk_str;\r\n    }\r\n    else\r\n    {\r\n     words[2].kk = "";\r\n    }\r\n  \r\n    words[2].word=actual_word;\r\n    words[2].explain.erase(0,words[2].explain.find("<\/div>")+6);\r\n\r\n    string del_str[12];\r\n    del_str[0]="<\/span><\/div>";\r\n    del_str[1]="<div class=peng>";\r\n    del_str[2]="<div class=pchi>";\r\n    del_str[3]="<ol>";\r\n    del_str[4]="<\/ol>";\r\n    del_str[5]="<li>";\r\n    del_str[6]="<\/li>";\r\n    del_str[7]="<div class=pcixin>";\r\n    del_str[8]="<\/div>";\r\n    del_str[9]="\u3002<div class=pexplain>";\r\n    del_str[10]="<div class=\\"break\\">";\r\n    del_str[11]="<div class=pexplain>";\r\n    while(words[2].explain.find(del_str[1])!=string::npos)\r\n    {\r\n     Application->ProcessMessages();\r\n     words[2].explain.erase(words[2].explain.find(del_str[1]),words[2].explain.find(del_str[0])-words[2].explain.find(del_str[1]));\r\n     words[2].explain.erase(words[2].explain.find(del_str[0]),del_str[0].length());\r\n     words[2].explain.erase(words[2].explain.find(del_str[2]),words[2].explain.find(del_str[0])-words[2].explain.find(del_str[2]));\r\n     words[2].explain.erase(words[2].explain.find(del_str[0]),del_str[0].length());\r\n    }\r\n    if(words[2].explain.find(del_str[10])!=string::npos)\r\n    {\r\n     words[2].explain.erase(words[2].explain.find(del_str[10]),words[2].explain.length());\r\n\r\n    }\r\n\r\n    for(int i=3;i<=6;i++)\r\n    {\r\n     while(words[2].explain.find(del_str[i])!=string::npos)\r\n     {\r\n      words[2].explain.erase(words[2].explain.find(del_str[i]),del_str[i].length());\r\n     }\r\n    }\r\n    words[2].explain=StringReplace(words[2].explain.c_str(), "\\n", "", TReplaceFlags() << rfReplaceAll).t_str(); \/\/ \u6e05\u9664\u63db\u884c\u5b57\u5143\r\n    words[2].explain=StringReplace(words[2].explain.c_str(), del_str[7].c_str(), "<div class=pcixin>", TReplaceFlags() << rfReplaceAll).t_str();\r\n    words[2].explain=StringReplace(words[2].explain.c_str(), del_str[8].c_str(), "\u3002", TReplaceFlags() << rfReplaceAll).t_str();\r\n    words[2].explain=StringReplace(words[2].explain.c_str(), del_str[9].c_str(), "", TReplaceFlags() << rfReplaceAll).t_str();\r\n    words[2].explain=StringReplace(words[2].explain.c_str(), del_str[7].c_str(), "", TReplaceFlags() << rfReplaceAll).t_str();\r\n    words[2].explain=StringReplace(words[2].explain.c_str(), del_str[11].c_str(), "", TReplaceFlags() << rfReplaceAll).t_str();\r\n\r\n    AnsiString cixing[2];\r\n    cixing[0]="a.";\r\n    cixing[1]="ad.";\r\n    words[2].explain=StringReplace(words[2].explain.c_str(), cixing[0].c_str(), "adj.", TReplaceFlags() << rfReplaceAll).t_str();\r\n    words[2].explain=StringReplace(words[2].explain.c_str(), cixing[1].c_str(), "adv.", TReplaceFlags() << rfReplaceAll).t_str();\r\n\r\n\r\n    if(words[2].explain.find("<br>")!=string::npos)\r\n     words[2].explain.erase(words[2].explain.find(\"
    \"),words[2].explain.length());\r\n\r\n    AnsiString RootAdd = strRoot + " " + words[2].explain.c_str();\r\n    if(Memo_Memo->Text.Pos(RootAdd)<1)\r\n     Memo_Memo->Lines->Add(strRoot + " " + words[2].explain.c_str());\r\n    else\r\n     ShowMessage("Data Exist");\r\n   }\r\n  }\r\n  IdHTTP1->Disconnect();\r\n }\r\n}\r\n\/\/---------------------------------------------------------------------------<\/pre>\n
    \n\t <\/p>\n","protected":false},"excerpt":{"rendered":"
    Features: Import vocabularies from Dr.eye and Merriam-Webster online dictionary Install KK phonics font in your system Support pronunciation through internet  <\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_exactmetrics_skip_tracking":false,"_exactmetrics_sitenote_active":false,"_exactmetrics_sitenote_note":"","_exactmetrics_sitenote_category":0,"footnotes":""},"categories":[7,14],"tags":[],"class_list":["post-255","post","type-post","status-publish","format-standard","hentry","category-cc","category-projects"],"_links":{"self":[{"href":"http:\/\/cywang.no-ip.org\/wordpress\/index.php?rest_route=\/wp\/v2\/posts\/255","targetHints":{"allow":["GET"]}}],"collection":[{"href":"http:\/\/cywang.no-ip.org\/wordpress\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/cywang.no-ip.org\/wordpress\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/cywang.no-ip.org\/wordpress\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"http:\/\/cywang.no-ip.org\/wordpress\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=255"}],"version-history":[{"count":7,"href":"http:\/\/cywang.no-ip.org\/wordpress\/index.php?rest_route=\/wp\/v2\/posts\/255\/revisions"}],"predecessor-version":[{"id":305,"href":"http:\/\/cywang.no-ip.org\/wordpress\/index.php?rest_route=\/wp\/v2\/posts\/255\/revisions\/305"}],"wp:attachment":[{"href":"http:\/\/cywang.no-ip.org\/wordpress\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=255"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/cywang.no-ip.org\/wordpress\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=255"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/cywang.no-ip.org\/wordpress\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=255"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}