从 xml 标签中提取 csv 内容

Question

我有一个源xml如下

<rest-adapter-response>
  <metadata>
    <status>success</status>
  </metadata>
  <status-line>
    <code>200</code>
    <reason>OK</reason>
  </status-line>
  <header-lines>
    <Cache-Control>private, max-age=0</Cache-Control>
    <Transfer-Encoding>chunked</Transfer-Encoding>
    <Content-Type>application/octet-stream</Content-Type>
    <Expires>Thu, 25 Apr 2019 08:51:55 GMT</Expires>
    <Last-Modified>Fri, 10 May 2019 08:51:55 GMT</Last-Modified>
    <Server>Microsoft-IIS/10.0</Server>
    <X-SharePointHealthScore>1</X-SharePointHealthScore>
    <X-SP-SERVERSTATE>ReadOnly=0</X-SP-SERVERSTATE>
    <DATASERVICEVERSION>3.0</DATASERVICEVERSION>
    <X-Download-Options>noopen</X-Download-Options>
    <Content-Disposition>attachment</Content-Disposition>
    <SPClientServiceRequestDuration>224</SPClientServiceRequestDuration>
    <X-AspNet-Version>4.0.30319</X-AspNet-Version>
    <SPRequestGuid>de31db9e-70cb-8000-7fba-6c3e85d9c810</SPRequestGuid>
    <request-id>de31db9e-70cb-8000-7fba-6c3e85d9c810</request-id>
    <MS-CV>ntsx3stwAIB/umw+hdnIEA.0</MS-CV>
    <Strict-Transport-Security>max-age=31536000</Strict-Transport-Security>
    <X-FRAME-OPTIONS>SAMEORIGIN</X-FRAME-OPTIONS>
    <X-Powered-By>ASP.NET</X-Powered-By>
    <MicrosoftSharePointTeamServices>16.0.0.8824</MicrosoftSharePointTeamServices>
    <X-Content-Type-Options>nosniff</X-Content-Type-Options>
    <X-MS-InvokeApp>1; RequireReadOnly</X-MS-InvokeApp>
    <P3P>CP="ALL IND DSP COR ADM CONo CUR CUSo IVAo IVDo PSA PSD TAI TELo OUR SAMo CNT COM INT NAV ONL PHY PRE PUR UNI"</P3P>
    <Date>Fri, 10 May 2019 08:51:55 GMT</Date>
  </header-lines>
  <message-body>
    <non-xml-data-response>COA,COA Acct Desc,Acct Prefix,Revaluation Acct,Mapping Changes - Additions( A )  Deletions ( D ) Changes ( C ),MJE,OIM Recon,Comments for difference:10000274,"Citibank, Operating, USD, 31165975",1000,10009999,A,,X,10000374,"Citibank, Clearing, USD, 31165975",1000,10009999,A,,X,10006604,"HSBC, Operating, SAR, SA0345000000003179660002",1000,10009999,A,,X,10006605,"Citibank, Operating, ZAR, 0202099009",1000,10009999,A,,X,123,,,456,,,,</non-xml-data-response>
  </message-body>
</rest-adapter-response>

XML 上方是共享点 Web 服务的响应，该服务尝试读取 csv 文件并给出这样的响应。正如您在上面的响应 xml 中看到的那样，csv 数据确实出现了，但是在一个名为 <message-body> 的 xmltag 中，并且在每一行格式之后也丢失了新行！

现在我需要重新创建 csv !!。最糟糕的是，在我收到这种格式的工具中，我有能力编写 xslt 和 xml！不能使用托管语言代码或库。 也只有 xslt 1.0。

有一个这样的问题 question on creating csv from xml，但这与我的要求有点不同。我刚刚学习 xslt 和 xpath ，有人可以帮助我吗？

下面是请求的输出： click here to view the csv format

Answer 1

如果假设标题行以冒号结尾并且每个数据行中有 7 个值*，则可以使用以下样式表：

XSLT 1.0

<xsl:stylesheet version="1.0" 
xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
<xsl:output method="text" encoding="UTF-8"/>

<xsl:template match="/rest-adapter-response">
    <xsl:variable name="csv" select="message-body/non-xml-data-response" />
    <!-- header -->
    <xsl:value-of select="substring-before($csv, ':')" />
    <xsl:text>:&#10;</xsl:text> 
    <!-- data -->
    <xsl:call-template name="restore-csv">
        <xsl:with-param name="text" select="substring-after($csv, ':')"/>
    </xsl:call-template>
</xsl:template>

<xsl:template name="restore-csv">
    <xsl:param name="text"/>
    <xsl:param name="i" select="1"/>
    <xsl:choose>
        <xsl:when test="contains($text, ',')">
            <xsl:variable name="value">
                <xsl:choose>
                    <xsl:when test="starts-with($text, '&quot;')">
                        <xsl:text>"</xsl:text>
                        <xsl:value-of select="substring-before(substring-after($text, '&quot;'), '&quot;')"/>
                        <xsl:text>"</xsl:text>
                    </xsl:when>
                    <xsl:otherwise>
                        <xsl:value-of select="substring-before($text, ',')"/>
                    </xsl:otherwise>
                </xsl:choose>
            </xsl:variable> 
            <!-- output -->         
            <xsl:value-of select="$value"/>
            <xsl:choose>
                <xsl:when test="$i mod 7 = 0">
                    <xsl:text>&#10;</xsl:text>
                </xsl:when>
                <xsl:otherwise>
                    <xsl:text>,</xsl:text>
                </xsl:otherwise>
            </xsl:choose>
            <!-- recursive call -->
            <xsl:call-template name="restore-csv">
                <xsl:with-param name="text">
                    <xsl:choose>
                        <xsl:when test="starts-with($text, '&quot;')">
                            <xsl:value-of select="substring-after(substring-after($text, '&quot;'), '&quot;,')"/>
                        </xsl:when>
                        <xsl:otherwise>
                            <xsl:value-of select="substring-after($text, ',')"/>
                        </xsl:otherwise>
                    </xsl:choose>
                </xsl:with-param>
                <xsl:with-param name="i" select="$i + 1"/>
           </xsl:call-template>
        </xsl:when>
        <xsl:otherwise>
            <xsl:value-of select="$text"/>
        </xsl:otherwise>
    </xsl:choose>
</xsl:template>

</xsl:stylesheet>

应用于您的输入示例，结果将是：

结果

COA,COA Acct Desc,Acct Prefix,Revaluation Acct,Mapping Changes - Additions( A )  Deletions ( D ) Changes ( C ),MJE,OIM Recon,Comments for difference:
10000274,"Citibank, Operating, USD, 31165975",1000,10009999,A,,X
10000374,"Citibank, Clearing, USD, 31165975",1000,10009999,A,,X
10006604,"HSBC, Operating, SAR, SA0345000000003179660002",1000,10009999,A,,X
10006605,"Citibank, Operating, ZAR, 0202099009",1000,10009999,A,,X
123,,,456,,,

---

这可能需要更多的工作来处理引用值中可能的转义双引号。

---

--
(*) 这里奇怪的是标题行有8个值，而数据行只有7个。