[Tustep-Liste] Datei in Unterverzeichnis lesen und zusammenkopieren

[wolfram.schneider-lastin at phil.uzh.ch]

 Lieber Thomas

Ich habe dein untenstehendes Skript - bevor ich es ins Wiki stelle - ausprobiert.

Es hat funktioniert in einem Verzeichnis, in dem sich nur zwei XML-Dateien befanden; in einem anderen, in dem sich 14 XML-Dateien befanden, ist es mit folgendem Fehler ausgestiegen:

"Satz wird zu lang (379541 > 64000 - abgeschnitten
WRITE/ADJUST
CLOSE wegen vorangehender Fehler nicht ausgeführt"

Herr Neumann sprach ja von mehreren hundert Dateien in seinem Verzeichnis. Aber vielleicht ist nicht die Anzahl der Dateien entscheidend (sonst hätte Herr Neumann wohl schon reklamiert), sondern ihre Beschaffenheit.

Wie kann das Skript so gestaltet werden, dass es in jedem Fall funktioniert?

Herzliche Grüße aus Zürich

Wolfram Schneider-Lastin

Das Skript von Herrn Ott ("'Weiß auf Schwarz setzen") befindet sich jetzt im Wiki.

---

Dr. Wolfram Schneider-Lastin
Universität Zürich
Leiter der Abteilung E-Learning an der Philosophischen Fakultät
Koordinator für Computerphilologie
1. Vorsitzender der International TUSTEP User Group (ITUG)
Rämistrasse 69
CH-8001 Zürich

Tel.:  +41 - 44 - 634 50 82
       (wenn keine Antwort: +41 - 44 - 252 07 67)

Mail: wolfram.schneider-lastin at phil.uzh.ch
Web:  http://www.phil.uzh.ch/fakultaet/elearning.html

-----tustep-liste-bounces at lists.uni-wuerzburg.de schrieb: -----
An: tustep-liste at itug.de
Von: Thomas Kollatz 
Gesendet von: tustep-liste-bounces at lists.uni-wuerzburg.de
Datum: 16.10.2013 10:21
Betreff: Re: [Tustep-Liste] Datei in Unterverzeichnis lesen und	zusammenkopierne

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

Lieber Herr Neumann, 
ich habe es mit den XML-Dateien meines Mainzer workshops  (der demnächst auch im Wiki sein wird, spätestens in meinem Herbsturlaub) einmal ausprobiert, herzliche Grüße
THOMAS KOLLATZ

$$! ziel=xml2tustep.tf
$$ MODE TUSCRIPT,{}
- Dateinamen aus Standardprojekt und -träger
files=FILE_NAMES (-std-,-std-)

- xml-Dateien herausfiltern
xmlfiles=FILTER (files,":*.xml:",-)
sz_xml=SIZE(xmlfiles)
IF (sz_xml==0) STOP

- Einlesen der XML-Dateien und in TUSTEP Zieldatei schreiben
 ERROR/STOP CREATE (ziel,seq-o,-std-)
 ERROR/STOP ERASE  (ziel)

COMPILE
 ACCESS z: WRITE/RECORDS     $ziel s.z/u, text
  LOOP file=xmlfiles
   ERROR/STOP OPEN (file,READ,-std-)
    ACCESS q: READ/RECORDS/UTF8 $file s,text
     LOOP/9999999
      READ/NEXT/EXIT q
      WRITE/ADJUST z
     ENDLOOP
    ENDACCESS q
   ERROR/STOP CLOSE (file)
  ENDLOOP
 ENDACCESS/PRINT z
ENDCOMPILE

Am 16.10.2013 um 07:52 schrieb Thomas Neumann <tho.neumann at gmx.de>:
Diskussionsforum Tustep-Liste
Weitere Informationen: www.itug.de
------------------------------------------------------------

Hallo Liste,  
ein kleines Problem.  
Ausgangslage: Mehrere hundert xml-Dateien befinden sich in einem Unterverzeichnis eines Projektes.  
1. Alle XML-Dateien auflisten und in eine TUSTEP-Datei schreiben (im Projektverzeichnis)  
2. Alle Dateien alphabetisch nacheinander in einen TUSTEP-Datei kopieren.  
TUSCRIPT wäre die richtige Wahl, oder?  
In diesem Kontext noch eine Frage zu: 
FILE_NAMES (+,-std-)  
Wie ist das Format für eine direkte Pfadangebe auf einem Windows-System für Parameter 2 (hier "-std-")?  
Ein direkter Pfad funktioniert nicht, oder?  
   
Dank in die Runde.  
Lg Thomas Neumann  
    
-------------------------------------
 Dr. Thomas Neumann
 Hertfelderstrasse 12
 73733 Esslingen
 -------------------------------------
 mail tho.neumann at gmx.de
 fax +4932121431182
 -------------------------------------
 www.thomas-neumann.com
 www.caroline-fouque.de
 www.hoererlebnis.de
 ------------------------------------- 
------------------------------------------------------------
Tustep-Liste at itug.de
https://lists.uni-wuerzburg.de/mailman/listinfo/tustep-liste


 
drs Thomas Kollatz  - wissenschaftlicher Mitarbeiter / research assistant
Salomon Ludwig Steinheim-Institut fuer deutsch-juedische Geschichte
D-45127 Essen * Edmund-Koerner-Platz 2 * T  0201-82162910  * skype kollatzthomas
HP http://www.steinheim-institut.de/wiki/index.php/Mitarbeiter:Thomas_Kollatz

===  Projekte / projects ===
Epigraphische Datenbank <http://www.steinheim-institut.de/cgi-bin/epidat>
RiR - Relationen im Raum <https://dev2.dariah.eu/wiki/display/RIRPUB/RiR>
DARIAH-DE <http://de.dariah.eu>
=== btw / sonst noch ===
TUSTEP-TUSCRIPT module on Rosetta Code <http://rosettacode.org/wiki/Category:TUSCRIPT>  
 
------------------------------------------------------------
Tustep-Liste at itug.de
https://lists.uni-wuerzburg.de/mailman/listinfo/tustep-liste
-------------- nächster Teil --------------
Ein Dateianhang mit HTML-Daten wurde abgetrennt...
URL: <https://lists.itug.de/pipermail/tustep-liste/attachments/20131018/e0d58752/attachment.htm>