(* List of Russian names from ecosystema.ru *)

maintainRussianEcosystema := (
url = "http://www.ecosystema.ru/04materials/guides/01fungi.htm";
file = "mushrooms-russian-ecosystema.htm";
match0 = 
  "(\:0432\:0438\:0434\:044b \:043f\:0440\:0438\:0432\:0435\:0434\
\:0435\:043d\:044b \:0432 \:0430\:043b\:0444\:0430\:0432\:0438\:0442\
\:043d\:043e\:043c \:043f\:043e\:0440\:044f\:0434\:043a\:0435)" ~~ __ \
~~ "\:041f\:043e\:043b\:043d\:044b\:0435 \:043e\:043f\:0438\:0441\
\:0430\:043d\:0438\:044f \:0438 \:0443\:043c\:0435\:043d\:044c\:0448\
\:0435\:043d\:043d\:044b\:0435";
match = RegularExpression[
   "(?i)(?s)<tr>\\s*<td>\\s*.*?\\s*</td>\\s*<td>\\s*(.*?)\\s*</td>\\s*<td>\\s*(.*?)\\s*</td>\\s*</tr>"];
urlsave[url, file, textcondit];
text = Import[file, "TEXT", CharacterEncoding -> "WindowsCyrillic"];
text = StringCases[text, match0];
If[text === {}, Print["Error: no match: ", match0]];
text = text[[1]];
data = StringCases[text, match -> {"$2", "$1"}];
Print["Found ", Length[data], " names in file ", file, " -> rusnames1"];
printnames[data // TableForm];
rusnames1 = updatenames[data];
);