Je veux convertir CSV en XML en utilisant XQuery sur BaseX (actuellement en utilisant BaseX v9.4.1). Avec les colonnes séparées par des tabulations, le fichier CSV Configuration.tsv ( entrée ) ressemble à ceci:

Datasets    Autosar             Fibex           TSS0001  TSS0002  TSS0003
DS0001      AutosarFoo01.arxml  FibexFoo01.xml  x        x  
DS0002      AutosarFoo02.arxml  FibexFoo02.xml  x                 x
DS0003      AutosarFoo03.arxml  FibexFoo03.xml  x                 x

Le script a tssid comme paramètre d'entrée. Le paramètre tssid := TSS0001 du résultat attendu XML est:

<database name="DS0001" autosar="AutosarFoo01.arxml" fibex="FibexFoo01.arxml"/>
<database name="DS0002" autosar="AutosarFoo02.arxml" fibex="FibexFoo02.arxml"/>
<database name="DS0003" autosar="AutosarFoo03.arxml" fibex="FibexFoo03.arxml"/>

Et avec tssid := TSS0003:

<database name="DS0002" autosar="AutosarFoo02.arxml" fibex="FibexFoo02.arxml"/>
<database name="DS0003" autosar="AutosarFoo03.arxml" fibex="FibexFoo03.arxml"/>

Le script fonctionne bien mais la troisième valeur d'attribut (fibex) est manquante, donc la sortie ressemble différemment à ceci:

<database name="DS0001" autosar="AutosarFoo01.arxml" fibex=""/>
<database name="DS0002" autosar="AutosarFoo02.arxml" fibex=""/>
<database name="DS0003" autosar="AutosarFoo03.arxml" fibex=""/>

Ou avec tssid := TSS0003:

<database name="DS0002" autosar="AutosarFoo02.arxml" fibex=""/>
<database name="DS0003" autosar="AutosarFoo03.arxml" fibex=""/>

Je ne trouve pas quelque chose qui ne va pas avec ce code?!? :

xquery version "3.1" encoding "utf-8";

declare namespace test="unittest";

declare namespace map="http://www.w3.org/2005/xpath-functions/map";

declare variable $test:tssid := 'TSS0003';

declare variable $test:testsuitesfile := '/Users/ms/Projekte/UnitTests/Configuration.tsv';

declare variable $test:options := map { 'header' : 'yes', 'format' : 'attributes', 'separator' : 'tab' };

declare variable $test:xml := csv:doc($test:testsuitesfile,$test:options);

(: get the positions :)

declare variable $test:positionDataId := 1 ;

declare variable $test:positionTssCheck := $test:xml/csv/record[position() = 1]/entry[text() = $test:tssid]/count(./preceding-sibling::entry) + 1 ;

declare variable $test:positionAutosar := $test:xml/csv/record[position() = 1]/entry[text() = 'Autosar']/count(./preceding-sibling::entry) + 1 ;

declare variable $test:positionFibex := $test:xml/csv/record[position() = 1]/entry[text() = 'Fibex']/count(./preceding-sibling::entry) + 1 ;

declare variable $test:dbsetbycsv as map(*) := map:merge(for $record in $test:xml/csv/record[entry[position() = $test:positionTssCheck and text()='x']] return map:entry($record/entry[position() = $test:positionDataId]/text(),<database name="{$record/entry[position() = $test:positionDataId]/text()}" autosar="{$record/entry[position() = $test:positionAutosar]/text()}" fibex="{$record/entry[position() = $test:positionFibex]/text()}"/>));

declare variable $test:dbset := $test:dbsetbycsv;

declare function test:dump() {
  for-each(
    map:keys($test:dbset),
    function($k) { 
      $test:dbset($k)
    }
  )
};

let $result := test:dump()

return($result)
0
mark61 1 sept. 2020 à 12:21

2 réponses

Meilleure réponse

C'est un bug. Corrigé maintenant avec BaseX 9.4.3 beta.

0
markusschmid 3 sept. 2020 à 05:21

Il paraît que

$xml/csv/record[entry[@name = $tssid and . = 'x']] ! <database name="{entry[@name = 'Datasets']}" autosar="{entry[@name = 'Autosar']}" fibex="{entry[@name = 'Fibex']}"/>

Peut suffire, étant donné que les éléments entry ont des attributs name.

0
Martin Honnen 1 sept. 2020 à 12:21