(* 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]; );