xpath - 如何在 eXist-db 中使用 XQuery 和/或 XSLT 从我的 XML 创建 SVG 条形图

Question

我找不到任何现有的解决方案，因为我认为还没有其他人使用 eXist-db 来做到这一点。有人知道如何使用 eXist-db 中的 SVG 绘制条形图吗？

第一次约会:

DTD:

<?xml version="1.0" encoding="utf-8"?>
<!ELEMENT akweny (akwen+)>
<!ELEMENT akwen (nazwa, typ, powierzchnia, akweny?)>
<!ELEMENT nazwa (#PCDATA)>
<!ELEMENT typ (#PCDATA)>
<!ELEMENT powierzchnia (#PCDATA)>

以 XML 为例:

<?xml version="1.0" encoding="utf-8"?>
    <!DOCTYPE akweny SYSTEM "akweny.dtd">
    <akweny>
        <akwen>
            <nazwa>Atlantycki</nazwa>
            <typ>ocean</typ>
            <powierzchnia>106450</powierzchnia>
            <akweny>
                <akwen>
                    <nazwa>Północne</nazwa>
                    <typ>morze</typ>
                    <powierzchnia>750</powierzchnia>
                </akwen>
                <akwen>
                    <nazwa>Batyckie</nazwa>
                    <typ>morze</typ>
                    <powierzchnia>386</powierzchnia>
                    <akweny>
                        <akwen>
                            <nazwa>Botnicka</nazwa>
                            <typ>zatoka</typ>
                            <powierzchnia>117</powierzchnia>
                        </akwen>
                    </akweny>
                </akwen>
            </akweny>
        </akwen>
        <akwen>
            <nazwa>Spokojny</nazwa>
            <typ>ocean</typ>
            <powierzchnia>179700</powierzchnia>
        </akwen>
    </akweny>

我知道 eXist-db 有一些 XSLT 转换函数，例如

transform:stream-transform($node-tree as node()*, $stylesheet as item(), 
$parameters as node()?) as item()

但是我到底要怎么用它呢？我找不到任何例子。我不知道如何使用它...

这是我的链接:

bars.xq?nazwa=anyNazwa&typ=anyTyp&powierzchnia=100

它应该显示任何 nazwa , 任何 typ并且大于 powierzchnia的 100 .

这是我的简单 XQuery

let $nodes := doc('/db/Dane/akweny.xml')//akweny[ancestor::akwen/nazwa=request:get-parameter("nazwa", ()) and typ=request:get-parameter("typ", ())]
        for $x in $nodes/* 
        let $nazwa := $x/nazwa/text()
        let $typ := $x/typ/text()
        let $powierzchnia := $x/powierzchnia/text()
            where $powierzchnia >= number(request:get-parameter("powierchnia", ()))

我的问题是:

如何通过以下方式显示所选节点的所有子节点:nazwa , typ和 powierchnia以条形图的形式？

Answer 1

这是在纯 XQuery 中执行此操作的示例，这将在 eXist 或任何其他 XQuery 1.0 处理器中工作:

declare variable $local:max-graph-height := 400; (: pixels :)
declare variable $local:graph-bar-width := 120; (: pixels :)
declare variable $local:graph-bar-spacing := 10; (: pixels :)
declare variable $local:graph-text-below := 20; (: pixels :)

let $awkeny := doc("/db/Dane/akweny.xml")//akwen[xs:int(powierzchnia) gt 100]
let $max-powierzchnia := max($awkeny/powierzchnia)

return

    <svg xmlns="http://www.w3.org/2000/svg" 
        xmlns:xlink="http://www.w3.org/1999/xlink" 
        id="graph"
        height="{ $local:max-graph-height + ($local:graph-text-below * 2) }" 
        width="{ ($local:graph-bar-width + $local:graph-bar-spacing) * count($awkeny) }">

        <linearGradient x1="0%" x2="0%" y1="10%" y2="100%" id="gradient">
            <stop style="stop-color:#0000FF" offset="0"></stop>
            <stop style="stop-color:#FFFFFF" offset="1"></stop>
        </linearGradient>

        {
        for $awken at $i in $awkeny
        let $height := (xs:float($awken/*:powierzchnia) div $max-powierzchnia) * $local:max-graph-height
        let $x := ($i - 1) * ($local:graph-bar-with + $local:graph-bar-spacing)
        let $y := $local:max-graph-height - $height
        return
            (
            <rect width="{$local:graph-bar-with}" 
                height="{$height}" x="{$x}" y="{$y}" 
                fill="url(#gradient)"></rect>,
            <text x="{$x}" 
                y="{$local:max-graph-height + $local:graph-text-below}" 
                fill="red">{$awken/*:nazwa/text()}</text>
            )
        }
    </svg>

上面的 XQuery 在 awkeny.xml 上运行时会生成一个 SVG 格式的条形图，如下所示:

现在我认为您只需要在 eXist 中将其处理到您的 XQuery 中，正如您从示例中看到的那样从传入的 HTTP 请求中获取参数，但是我可以从您的问题中看出您已经知道如何做到这一点。所以你现在应该一切顺利......