DMUG-Archiv 2013

Frühere   Chronologischer Index   Spätere
Vorherige   Thematischer Index   Nächste

Re: HTML-Tabellen in Mma-Tabellen auslesen

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.



Verweise:
Frühere   Chronologischer Index   Spätere
Vorherige   Thematischer Index   Nächste

DMUG DMUG-Archiv, http://www.mathematica.ch/archiv.html