[Tustep-Liste] Sortiere-Frage

[Matthias Osthof]

Lieber Wolfram Brunschön,

diese Makro-Lösung ist mit heißer Nadel gestrickt, funktioniert aber für die angegebene Datenstruktur:

$$!
$$ MODE TUSCRIPT

ACCESS q: read/records "quelldatei" s.z/u, txt
ACCESS z: write/erase/records "zieldatei" s.z/u, txt
loop/99999
  read/next/exit q
  if (txt.SW."<Indexref>") then
    set h = extract (txt, 11, -11)
    set h = split (h, "|; |")
    set h = mixed_sort (h)
    set h = join (h,  "; ")
    set txt = concat ("<Indexref>", h, "</Indexref>")
  endif
  write z
endloop
ENDACCESS z
ENDACCESS q

Herzliche Grüße
Matthias Osthof  
 

-----Ursprüngliche Nachricht-----
Von: tustep-liste-bounces at lists.uni-wuerzburg.de [mailto:tustep-liste-bounces at lists.uni-wuerzburg.de] Im Auftrag von Wolfram Brunschön
Gesendet: Dienstag, 14. September 2010 21:33
An: tustep-liste at itug.de
Betreff: [Tustep-Liste] Sortiere-Frage

Diskussionsforum Tustep-Liste
Weitere Informationen: www.itug.de
------------------------------------------------------------

  Liebe TUSTEP-Gemeinde,

ich stehe beim Sortieren eines importierten Index ziemlich auf dem 
Schlauch und freue mich über Hinweise und Lösungen:

Die Ausgangsdatei hat folgende Struktur:

<document>
<lemma form="ἁπάντῃ">
<Indexref>56,11; 56,11; 2,30; 4,15; 56,11</Indexref>
</lemma>

<lemma form="ἄατος">
<Indexref>26,7; 3,19</Indexref>
</lemma>
</document>

Aufsteigend sortiert werden sollen jeweils innerhalb von 
<Indexref></Indexref> die Zahlenwerte, die in der Form <>>/,<>>/ vorliegen.

Vielen herzlichen Dank im voraus und allseits einen schönen Abend
Wolfram Brunschön.

------------------------------------------------------------
Tustep-Liste at itug.de
https://lists.uni-wuerzburg.de/mailman/listinfo/tustep-liste