2

初歩的な質問ですみません.普段XPathしか使っていません.LINQ to XMLを使用した場合、次のXPathと同等の結果を得るにはどう書いたら良いのでしょうか?

Imports System.Xml
Imports System.Xml.XPath
Imports Sgml
...
Dim sgml As SgmlReader = New SgmlReader()
sgml.DocType = "HTML"
sgml.Href = "http://www.data.jma.go.jp/obd/stats/data/mdrr/synopday/data1s.html"
sgml.IgnoreDtd = True
Dim htmlDoc As XDocument = XDocument.Load(sgml)
Dim nsTable As NameTable = New NameTable
Dim nsMgr As XmlNamespaceManager = New XmlNamespaceManager(nsTable)
nsMgr.AddNamespace("xhtml", "http://www.w3.org/1999/xhtml")
Dim targetTrs As IEnumerable(Of XElement) = htmlDoc.XPathSelectElements("//xhtml:table[@class = 'o1']//xhtml:tr[@class != 'o1h']", nsMgr)

気象庁の気象データから地点毎の最高気温を取得しようとしています.このプログラムはなんとか動きましたが、LINQで書けばどうなるのかがよくわかりません.

以上 よろしくお願いします.

2 件の回答 2

4

Visual BasicではXML対応しているため、別の記述が可能です。
まず、XML名前空間についてはImport構文で指定可能です。

Imports <xmlns:xhtml="http://www.w3.org/1999/xhtml">

次に//xhtml:tableについてはXML子孫軸プロパティで指定可能です。

Dim htmlDoc As XDocument = XDocument.Load(sgml)
Dim targetTables As IEnumerable(Of XElement) = htmlDoc...<xhtml:table>

次に[@class = 'o1']についてはWhereを使えますがその際XML属性軸プロパティが使えます。

Dim targetTables As IEnumerable(Of XElement) = htmlDoc...<xhtml:table> _
    .Where(Function(e) e.@class = "o1")

最後にクエリ構文を使用することでシンプルになります。

Imports <xmlns:xhtml="http://www.w3.org/1999/xhtml">
...
Dim htmlDoc As XDocument = XDocument.Load(sgml)
Dim targetTrs As IEnumerable(Of XElement) = _
    From table In htmlDoc...<xhtml:table> _
    Where table.@class = "o1" _
    From tr In table...<xhtml:tr> _
    Where tr.@class <> "o1h" _
    Select tr

なお、pgrhoさんの回答のXName.Getですが、XML名前空間を別途指定する2引数バージョンの他に、XML名前空間を含むXML名を指定することができる1引数バージョンも存在します。その上で、文字列からXNameへの暗黙の型キャストも用意されているため

d.Descendants("{http://www.w3.org/1999/xhtml}table") _
...

と記述できます。この方法はC#言語でも使用でき便利です。

3
  • クエリーでFrom/Whereの入れ子というのはWEBを当たっていても気が付きませんでした.こちらの方がXPathやっていてSQLも少しは知っているレベルの立場からすると身近でわかりやすいですね.勉強になりました.
    – tmakita
    Commented 2016年8月17日 0:48
  • @tmakita さん、クエリ構文の説明へリンクしました。その中でFrom句の解説ではFrom句を入れ子・ネストする方法についても言及されています。
    – sayuri
    Commented 2016年8月17日 1:13
  • @ sayuri さん、クエリ構文の説明拝見しました.今まで何故このようなページを探し当てられなかったのかと思います...!
    – tmakita
    Commented 2016年8月17日 7:33
4

XPathの//はXLINQのDescendants拡張メソッドに対応します。この場合はXML名前空間が設定されているのでXNameを明示的に作成する必要があります。
[]にはLINQのWhereを使用し、XElement.Attributeメソッドで属性を取得します。

Dim d = XDocument.Parse(html)

Dim targetTrs = d.Descendants(XName.Get("table", "http://www.w3.org/1999/xhtml")) _
                     .Where(Function(e) e.Attribute("class")?.Value = "o1") _
                 .Descendants(XName.Get("tr", "http://www.w3.org/1999/xhtml")) _
                     .Where(Function(e) e.Attribute("class")?.Value <> "o1h")
1
  • predicateは.whereでそのように書くのですね.大変勉強になりました!
    – tmakita
    Commented 2016年8月16日 16:47

この質問に回答するには、ログインする必要があります。

求めていた回答ではありませんか? のタグが付いた他の質問を参照する。