我有一个XML文件,我在F#中打开这样的文件:
let Bookmarks(xmlFile:string) =
let xml = XDocument.Load(xmlFile)
一旦我拥有XDocument,我需要使用LINQ to XML导航它并提取所有特定标签。我的部分解决方案是:
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文件中提取特定标记?
答案 0 :(得分: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&lt; | xname“,无论如何”)。
答案 1 :(得分: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)))