(* List of Russian names from mycoweb.narod.ru *)

maintainRussianMycoweb := (
url = "http://mycoweb.narod.ru/fungi/Russian_list.html";
file = "mushrooms-russian-mycoweb.htm"; 
match0 = 
  "\:041f\:043e\:0438\:0441\:043a \
\:0438\:0437\:043e\:0431\:0440\:0430\:0436\:0435\:043d\:0438\:0439 \
\:043d\:0430 \:0441\:0430\:0439\:0442\:0435" ~~ __ ~~ 
   "\:0418\:0441\:043f\:043e\:043b\:044c\:0437\:0443\:044e\:0442\:0441\
\:044f \:0442\:0435\:0445\:043d\:043e\:043b\:043e\:0433\:0438\:0438";
match = RegularExpression[
   "(?i)(?s)<li><a class=\"list\" \
href=\"\\s*(.{3,50}?)[.]html\">\\s*(.*?)\\s*((</a)|(<script>))"];
matcha = 
  RegularExpression[
   "(?i)(?s)<li><a class=\"list\" \
href=\".{3,50}?\">\\s*(.{3,50}?)\\s*</a><script>poisk[(]\"\\s*(.{3,50}?)\\s*\"[)]</script>"];
urlsave[url, file, textcondit];
text = Import[file, "TEXT"];
text = StringCases[text, match0];
If[text === {}, Print["Error: no match: ", match0]];
text = text[[1]];
data = StringCases[text, match -> {"$1", "$2"}];
dataa = StringCases[text, matcha -> {"$2", "$1"}];
data = Join[data, dataa];
data = Table[
   {name, trans} = dat;
   name = StringReplace[name, "_" .. -> " "]; 
   If[Length[StringSplit[name]] == 2(*&&Length[StringSplit[
    trans]]\[Equal]2*), {name, trans}, ""], {dat, data}];
data = Select[data, # =!= "" &];
data = Table[
   {name, syns} = dat;
   syns = StringReplace[syns, RegularExpression["<.*?>"] -> ""];
   {name, syns}, {dat, data}];
Print["Found ", Length[data], " names in file ", file, " -> rusnames4"];
printnames[data // TableForm];
rusnames4 = updatenames[data];
);