0

我正在尝试将 F# 用于我需要运行的实用程序作业之一。

从包含 xml 配置文件的目录中，我想识别包含特定节点的所有文件，并且在找到匹配项时，我想在同一个文件中插入一个兄弟节点。我已经编写了代码片段来识别所有文件，现在我有一个文件序列，我想对其进行迭代并搜索属性并在必要时附加。

open System.Xml.Linq

let byElementName elementToSearch = XName.Get(elementToSearch)

let xmlDoc = XDocument.Load(@"C:\\Some.xml")
xmlDoc.Descendants <| byElementName "Elem"
|> Seq.collect(fun(riskElem) -> riskElem.Attributes <| byElementName "type" )
|> Seq.filter(fun(pvAttrib) -> pvAttrib.Value = "abc")
|> Seq.map(fun(pvAttrib) -> pvAttrib.Parent)
|> Seq.iter(printfn "%A")

我想要做的是代替最后一个 printf，添加另一个类型"Elem"的节点type = "abc2"

    <Product name="Node" inheritsfrom="Base">
      <SupportedElems>
        <Elem type="abc" methodology="abcmeth" />
        <Elem type="def" methodology="defmeth" />
</SupportedElems>
</Product>

结果 XML：

<Product name="Node" inheritsfrom="Base">
  <SupportedElems>
    <Elem type="abc" methodology="abcmeth" />
    <Elem type="abc2" methodology="abcmeth" /> <!-- NEW ROW TO BE ADDED HERE -->
    <Elem type="def" methodology="defmeth" />

4

2 回答 2

3

在我看来，复杂的 LINQ to XML 查询很笨拙，最好使用 XPath：

open System.Xml.Linq
open System.Xml.XPath

xmlDoc.XPathEvaluate("//Elem[@type='abc']") :?> _
|> Seq.cast<XElement>
|> Seq.iter (fun el -> 
  el.AddAfterSelf(XElement.Parse(@"<Elem type=""abc2"" methodology=""abcmeth""/>")))

之后的 XML 文档：

<Product name="Node" inheritsfrom="Base">
  <SupportedElems>
    <Elem type="abc" methodology="abcmeth" />
    <Elem type="abc2" methodology="abcmeth" />
    <Elem type="def" methodology="defmeth" />
  </SupportedElems>
</Product>
于 2012-07-16T15:49:53.080 回答
1

您的函数正确地Elem从文件中找到元素，但它不打印任何内容。您正在打印的elem.Value属性是指元素的主体，在您的情况下为空。如果您使用以下输入，则它会打印“一”和“二”：

<Product name="Node" inheritsfrom="Base"> 
  <SupportedElems> 
    <Elem type="abc" methodology="abcmeth">one</Elem>
    <Elem type="def" methodology="defmeth">two</Elem>
  </SupportedElems> 
</Product>

您可以像这样打印整个元素（而不仅仅是正文）：

let pvElement (configFile : string) =  
  let xmlDoc = XDocument.Parse configFile 
  xmlDoc.Descendants(byElementName "Elem")
  |> Seq.iter (printfn "%A")

如果您想选择一个特定元素（具有某些指定属性），然后在找到该元素时执行某些操作，您可能可以使用该Seq.tryPick函数，但这将是一个单独的问题。

于 2012-07-16T12:56:21.810 回答