Discussion :

[AlfMan34]

Bonjour,

Je soumet la problématique sur laquelle je travaille depuis 2 jours à votre sagacité.

Voici le fichier en entrée :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
<root>
<ligne>B</ligne>
<ligne>A</ligne>
<ligne>A</ligne>
<ligne>R</ligne>
<ligne>B</ligne>
<ligne>A</ligne>
<ligne>B</ligne>
<ligne>A</ligne>
<ligne>A</ligne>
<ligne>A</ligne>
</root>

et je dois générer un fichier contenant des bons de commande (B) et des lignes article (A) et de remise (R) sous la forme suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
<root>

<bonDeCommande>
<ligneArticle />
<ligneArticle />
<ligneRemise />
</bonDeCommande>

<bonDeCommande>
<ligneArticle />
</bonDeCommande>

<bonDeCommande>
<ligneArticle />
<ligneArticle />
<ligneArticle />
</bonDeCommande>

</root>

Je vous passe les attributs qui sont hors sujets. J'ai essayé de nombreuses possibilités et je sais que pour séparer 2 éléments il faudra passer un following-sibling::ligne[.,1,1] = 'B' mais à chacune de mes tentatives j'ajoute à mon fichier de sortie la totalité des lignes articles et non uniquement celles précédant la ligne 'B' suivante...

Le but est vous l'avez compris de transformer un fichier plat généré par un gros système incapable de générer autre chose que des infos en ligne texte (ex: date colonne 2 à colonne 10...) en un fichier XML exploitable.

L'idéal serait de pouvoir mettre le fichier brut de fonderie en entrée

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
B
A
A
R
B
A
B
A
A
A

mais là, dites-moi si je me trompe, le parser XSL sera incapable de faire quoi que ce soit s'il n'y a pas au moins une balise <root>

Si quelqu'un a l'idée lumineuse qui va bien, ce sera sympa...

Merci d'avance !!!!

[datrinite]

Je ne vois pas l'intérêt de faire du xsl sur un fichier plat.
En perl :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
open(FILE,"tonFichier');
$firstDone=0;
while(<FILE>) {
  if (m/B/) {
    print "</bonDeCommande>\n" if $firstDone;
    print "<bonDeCommande>\n";
    $firstDone
  }
  if (m/A/) {
    print "<ligneArticle />\n";
  }
  if (m/R/) {
    print "<ligneRemise/>\n";
  }
}
print "</bonDeCommande>\n";
close FILE;

[polymorphisme]

Bonjour,

Je ne vois pas l'intérêt de faire du xsl sur un fichier plat.

C'est pour lui donner une structure non linéaire.

En revanche, je ne vois pas l'intérêt d'écrire du Perl dans un forum sur Java

[datrinite]

L'intérêt, c'est d'apporter une solution au problème de AlfMan.
Je n'avais pas de solution xsl.