Re: HTML-Tabellen in Mma-Tabellen auslesen

["Udo und Susanne Krause" <su.krause@XXXXXXX.ch>]

Hallo Gunter,

nachdem man mit

In[16]:= Clear[mx]
mx = Import[
   "http://www.pvlighthouse.com.au/Resources/Photovoltaic%20materials/\
Refractive%20index/Refractive%20index.aspx", {"HTML", "Data"}];

In[23]:= Position[mx, "Wavelength"]

Out[23]= {{2, 2, 1, 2, 1, 1}, {2, 2, 1, 2, 1, 3}}

spoekengekiekt hat, wuergelt man

In[36]:= Remove[woyschHtml]
woyschHtml[s_String] := Block[{mx = Import[s, {"HTML", "Data"}], t},
  t = mx[[Sequence @@ Drop[First[Position[mx, "Wavelength"]], -2]]];
  TableForm[Drop[t, 2], TableHeadings -> {None, t[[1]]}]
  ]

mit

In[38]:=  
woyschHtml["http://www.pvlighthouse.com.au/Resources/Photovoltaic%\
20materials/Refractive%20index/Refractive%20index.aspx"]

die Tabelle leidlich heraus.
Bei Verwendung von Grid[] koennen Sie jede einzelne Wabe behuebschen.

Gruss
Udo.

> das
>
> matrix=Flatten[Import["http://www.pvlighthouse.com.au/Resources/Photovoltaic%20materials/Refractive%20index/Refractive%20index.aspx",{"HTML","Data"}]/.{__String}:>Sequence[]//.{a___,s_String,b___}:>{a,b}//.{}:>Sequence[],4
> ];
> MatrixForm@matrix
>
> geht. Etwas heuristisch, aber na ja.