(* List of English names from britmycolsoc.org.uk *)
maintainEnglishBMS := (
url = "http://www.britmycolsoc.org.uk/library/english-names/";
file = "mushrooms-english-BritishMycologicalSociety.htm";
match0 = "English Name(s)" ~~ __ ~~ "Non UK species";
match = RegularExpression[
"(?i)(?s)
\\s*\\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 -> {"$1", "$2"}];
data = Table[
{name, syns} = dat;
syns = StringSplit[syns, " " ... ~~ "/" ~~ " " ...];
{name, syns}, {dat, data}];
Print["Found ", Length[data], " names in file ", file, " -> engnames"];
printnames[data // TableForm];
engnames = updatenames[data];
);