[Tustep-Liste] Datei in Unterverzeichnis lesen und zusammenkopierne

[Thomas Kollatz]

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>

-------------- nächster Teil --------------
Ein Dateianhang mit HTML-Daten wurde abgetrennt...
URL: <https://lists.itug.de/pipermail/tustep-liste/attachments/20131016/ae19e0bd/attachment.htm>