使用XQuery从XML到CSV的转换

Question

我有一个XML文件，我需要将它转换为XQuery。考虑一个简单的组XML的：

books[book] 
book[@isbn, title, descrption] 

如：

<books> 
    <book isbn="1590593049"> 
     <title>Extending Flash MX 2004</title> 
     <description> 
     Using javascript alongwith actionscript 3.0 and mxml.</description> 
    </book> 
    <book isbn="0132149184"> 
     <title>Java Software Solutions</title> 
     <description> 
      Complete book full of case studies on business solutions and design concepts while building mission critical 
      business applications. 
     </description> 
    </book> 

如何将它使用XQuery转换成CSV格式？ CSV由Microsoft Excel使用，

所以它将由逗号（，）分隔，字符和特殊字符应该被转义。

Answer 1

纯的XPath 2.0表达式：

for $b in /*/book 
    return 
     concat(escape-html-uri(string-join(($b/@isbn, 
              $b/title, 
              $b/description 
             ) 
              /normalize-space(), 
             ",") 
          ), 
      codepoints-to-string(10)) 

XSLT 2 - 基于验证：

<xsl:stylesheet version="2.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform"> 
<xsl:output omit-xml-declaration="yes" indent="yes"/> 

<xsl:template match="/"> 
    <xsl:sequence select= 
    "for $b in /*/book 
     return 
     concat(escape-html-uri(string-join(($b/@isbn, 
              $b/title, 
              $b/description 
              ) 
               /normalize-space(), 
              ',') 
           ), 
       codepoints-to-string(10))"/> 
</xsl:template> 
</xsl:stylesheet> 

当这个变换所提供的XML文档施加（从校正其畸形）：

<books> 
    <book isbn="1590593049"> 
     <title>Extending Flash MX 2004</title> 
     <description> 
     Using javascript alongwith actionscript 3.0 and mxml.</description> 
    </book> 
    <book isbn="0132149184"> 
     <title>Java Software Solutions</title> 
     <description> 
      Complete book full of case studies on business solutions and design concepts while building mission critical 
      business applications. 
     </description> 
    </book> 
</books> 

想要的，正确的结果产生：

1590593049,Extending Flash MX 2004,Using javascript alongwith actionscript 3.0 and mxml. 
0132149184,Java Software Solutions,Complete book full of case studies on business solutions and design concepts while building mission critical business applications. 

更新：

在评论中OP已要求任何文本逗号由报价和（包围之后）任何报价被两个报价取代，最后，如果报告结果包含wholw，它必须包含（单个）报价。

这里是产生此纯的XPath 2.0表达式：

for $b in /*/book, 
    $q in codepoints-to-string(34), 
    $NL in codepoints-to-string(10), 
    $isbn in normalize-space(replace($b/@isbn, ',', concat($q,',',$q))), 
    $t in normalize-space(replace($b/title, ',', concat($q,',',$q))), 
    $d in normalize-space(replace($b/description, ',', concat($q,',',$q))), 
    $res in 
    escape-html-uri(string-join(($isbn,$t,$d), ',')), 
    $res2 in replace($res, $q, concat($q,$q)) 
    return 
    if(contains($res2, $q)) 
     then concat($q, $res2, $q, $NL) 
     else concat($res2, $NL) 

当该XPath表达式对这种评估（扩展用一个新的测试例）的XML文档：

<books> 
    <book isbn="1590593049"> 
     <title>Extending Flash MX 2004</title> 
     <description> 
     Using javascript alongwith actionscript 3.0 and mxml.</description> 
    </book> 
    <book isbn="0132149184"> 
     <title>Java Software Solutions</title> 
     <description> 
      Complete book full of case studies on business solutions and design concepts while building mission critical 
      business applications. 
     </description> 
    </book> 
    <book isbn="XX1234567"> 
     <title>Quotes and comma</title> 
     <description> 
      Hello, World from "Ms-Excel" 
     </description> 
    </book> 
</books> 

想要的，会产生正确的结果：

1590593049,Extending Flash MX 2004,Using javascript alongwith actionscript 3.0 and mxml. 
0132149184,Java Software Solutions,Complete book full of case studies on business solutions and design concepts while building mission critical business applications. 
"XX1234567,Quotes and comma,Hello"","" World from ""Ms-Excel""" 

Answer 2

假设你的XML是在变量$books，你可以在一个新行使用此创建每本书节点CSV文件：

declare function local:my-replace($input) { 
    for $i in $input 
    return '"' || replace($i, '"', '""') || '"' 
}; 
for $book in $books//book 
return string-join(local:my-replace(($book/@isbn, $book/title, $book/description)), ",") || '
' 

string-join地连接了不同的字符串，本地函数my-replace在替换值根据你的规格的顺序。