(* List of Russian names from mycology.su *)
maintainRussianNovosibirsk := (
url = "http://mycology.su/glossary-rus";
file = "mushrooms-russian-novosibirsk.htm";
match0 =
"
\:0421\:0438\:0441\:0442\:0435\:043c\:0430\:0442\:0438\:043a\
\:0430: \:0420\:0443\:0441\:0441\:043a\:0438\:0435 \:043d\:0430\:0437\
\:0432\:0430\:043d\:0438\:044f
" ~~ __ ~~
"\:0421\:043e\:0433\:043b\:0430\:0448\:0435\:043d\:0438\:0435";
match = RegularExpression[
"(?i)(?s)\\s*(.*?)\\s*[(]\\s*(.*?)\\s*[)]\\s*"];
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 -> {"$2", "$1"}];
rustransls = Select[data, StringFreeQ[#[[1]], " "] &];
data = Select[data, ! StringFreeQ[#[[1]], " "] &];
Print["Found ", Length[data], " names in file ", file, " -> rustransls, rusnames3"];
printnames[data // TableForm];
rusnames3 = updatenames[data];
);