13 lines
616 B
Text
13 lines
616 B
Text
url = "http://rosettacode.org/wiki/Reports:Tasks_not_implemented_in_Mathematica";
|
|
html = Import[url, "XMLObject"];
|
|
pos = Position[html, XMLElement["div", {"class" -> "mw-content-ltr", "dir" -> "ltr", "lang" -> "en"}, ___]];
|
|
pos = First[pos];
|
|
data = Extract[html, pos];
|
|
pos = Position[data, XMLElement["li", {}, {XMLElement["a", {"shape" -> "rect", "href" -> _, "title" -> x_}, {x_}]}]];
|
|
data = Extract[data, pos];
|
|
data = data[[All, -1, -1, 2]];
|
|
data = {"title", "href"} /. # & /@ %;
|
|
data[[All, 2]] = "http://rosettacode.org" <> # & /@ data[[All, 2]];
|
|
newb = data[[All, 1]];
|
|
data = Hyperlink @@@ data;
|
|
data // Column
|