7

次のように F# で開く XML ファイルがあります。

let Bookmarks(xmlFile:string) = 
    let xml = XDocument.Load(xmlFile)

XDocument を取得したら、LINQ to XML を使用して XDocument をナビゲートし、特定のタグをすべて抽出する必要があります。私の解決策の一部は次のとおりです。

let xname (tag:string) = XName.Get(tag)
let tagUrl (tag:XElement) = let attribute = tag.Attribute(xname "href")
                            attribute.Value
let Bookmarks(xmlFile:string) = 
    let xml = XDocument.Load(xmlFile)
    xml.Elements <| xname "A" |> Seq.map(tagUrl)

XML ファイルから特定のタグを抽出するにはどうすればよいですか?

4

2 に答える 2

10
#light
open System
open System.Xml.Linq

let xname s = XName.Get(s)
let bookmarks (xmlFile : string) = 
    let xd = XDocument.Load xmlFile
    xd.Descendants <| xname "bookmark"

これにより、「ブックマーク」のすべての子孫要素が検索されます。直接の子孫のみが必要な場合は、Elements メソッド (xd.Root.Elements <| xname "whatever") を使用します。

于 2008-10-12T19:12:23.057 に答える
3

警告: これまで linq-to-xml を行ったことはありませんが、このトピックに関する他の投稿を見ると、このスニペットにはコンパイルして何かを実行する F# コードが含まれているため、開始するのに役立つ場合があります。

open System.IO
open System.Xml
open System.Xml.Linq 

let xmlStr = @"<?xml version='1.0' encoding='UTF-8'?>
<doc>
    <blah>Blah</blah>
    <a href='urn:foo' />
    <yadda>
        <blah>Blah</blah>
        <a href='urn:bar' />
    </yadda>
</doc>"

let xns = XNamespace.op_Implicit ""
let a = xns + "a"
let reader = new StringReader(xmlStr)
let xdoc = XDocument.Load(reader)
let aElements = [for x in xdoc.Root.Elements() do
                 if x.Name = a then
                     yield x]
let href = xns + "href"
aElements |> List.iter (fun e -> printfn "%A" (e.Attribute(href)))
于 2008-10-12T19:03:30.937 に答える