Hier werden die Unterschiede zwischen zwei Versionen angezeigt.
tustep:loesungen:kopieren [2018/07/25 16:21] Daniel Zang angelegt |
tustep:loesungen:kopieren [2021/03/16 05:34] |
||
---|---|---|---|
Zeile 1: | Zeile 1: | ||
- | **Vorbemerkung: | ||
- | ---- | ||
- | [[tustep: | ||
- | ---- | ||
- | ====== Kopieren einer Datei ohne Veränderung der Daten ====== | ||
- | - {{files_open: | ||
- | < | ||
- | # | ||
- | #= 2. Die Zieldatei ' | ||
- | # | ||
- | |||
- | #= 3. Datei ' | ||
- | # | ||
- | |||
- | 2. Datei wird beim Kopieren **neu durchnummeriert**\\ | ||
- | < | ||
- | #= evtl. vorhandene Daten in der Zieldatei werden gelöscht (LOESCHEN=+) | ||
- | |||
- | # | ||
- | |||
- | ====== Kopieren einzelner Texteinheiten nach Satznummern ====== | ||
- | - {{files_open: | ||
- | \\ \\ Aus der Datei ' | ||
- | < | ||
- | nr+ | ||
- | *eof</ | ||
- | ► Mit dem Parameter **nr+** werden die Seiten-Zeilen-Nummern (auch Bereiche) der Sätze angegeben, die kopiert werden sollen; die einzelnen Angaben müssen durch **Apostroph** getrennt werden. Die Sätze werden in der **Reihenfolge** eingelesen, in der die Seiten-Zeilen-Nummern angegeben sind. Mehrfachnennungen und Überlappungen sind möglich.\\ \\ | ||
- | ====== Kopieren einzelner Texteinheiten nach Bedingungen ====== | ||
- | - {{files_open: | ||
- | \\ \\ \\ 1. Aus der Datei ' | ||
- | < | ||
- | zf+ | ||
- | *eof</ | ||
- | b. die **Zeichenfolgen** " | ||
- | zf+ | ||
- | c. die **Wörter** " | ||
- | < | ||
- | alternativ: | ||
- | zf+ | ||
- | zf+ | ||
- | 2. Aus der Datei ' | ||
- | < | ||
- | aa |< | ||
- | zf+ | ||
- | *eof</ | ||
- | ====== Kopieren mit Zusammenfassen best. Sätze ====== | ||
- | - {{files_open: | ||
- | < | ||
- | < | ||
- | Text Text < | ||
- | < | ||
- | < | ||
- | Text Text | ||
- | < | ||
- | **Skript**\\ | ||
- | < | ||
- | # | ||
- | aa |< | ||
- | za |< | ||
- | *eof</ | ||
- | |||
- | **Erklärung: | ||
- | ====== Kopieren mit Manipulation der Satznummern 1 ====== | ||
- | - {{files_open: | ||
- | < | ||
- | |||
- | 1.1 < | ||
- | 1.2 < | ||
- | 1.3 < | ||
- | 1.4 < | ||
- | 1.5 < | ||
- | 1.6 < | ||
- | 1.7 < | ||
- | **Script: | ||
- | < | ||
- | sa |< | ||
- | *eof</ | ||
- | |||
- | ====== Kopieren mit Manipulation der Satznummern 2 ====== | ||
- | - {{files_open: | ||
- | < | ||
- | |||
- | 1.1 < | ||
- | 1.2 < | ||
- | 1.3 < | ||
- | 1.4 < | ||
- | 1.5 < | ||
- | 1.6 < | ||
- | 1.7 < | ||
- | 1.8 < | ||
- | 1.9 < | ||
- | **Script: | ||
- | < | ||
- | nr 1 1000 | ||
- | zf+ | ||
- | al |< | ||
- | el |</ | ||
- | liv i0 | ||
- | rr s11 = i0; s12 = 0; s13 = 1; | ||
- | spn 3 | ||
- | *eof</ | ||
- | ► **Erklärung: | ||
- | ====== Kopieren mit Vergleichstext / Merk-Vergleichstext ====== | ||
- | - {{files_open: | ||
- | < | ||
- | < | ||
- | < | ||
- | < | ||
- | < | ||
- | < | ||
- | < | ||
- | < | ||
- | **Skript**\\ | ||
- | < | ||
- | # | ||
- | av 1 | ||
- | ev 1 | ||
- | vgl | ||
- | xx 1 | ||
- | ak1 | ||
- | ek1 | ||
- | spn 23 | ||
- | sp2 3 5 | ||
- | *eof</ | ||
- | **Erklärung: | ||
- | ====== Kopieren mit Abfrage ====== | ||
- | - {{files_open: | ||
- | < | ||
- | oder | ||
- | xx |eingabe|ausgabe|</ | ||
- | ausgeführt werden soll.\\ \\ **Einfache Lösung** (Skript: N. Bohnert): | ||
- | < | ||
- | $$? "Soll ein Asterisk angefügt werden? (Ja/ | ||
- | # | ||
- | $$ IF ("< | ||
- | xx |eingabe|ausgabe*| | ||
- | $$ ELSE | ||
- | xx |eingabe|ausgabe| | ||
- | $$ END IF | ||
- | *eof* | ||
- | *eof</ | ||
- | \\ **Lösung mit Frage im Pop-up-Fenster mit Schaltflächen** (Skript: M. Trauth): | ||
- | < | ||
- | $$ MODE TUSCRIPT, {} | ||
- | |||
- | SET system = SYSTEM() | ||
- | IF (system .EQ. " | ||
- | SET frage = * | ||
- | DATA ====================================== | ||
- | DATA ==== | ||
- | DATA ====================================== | ||
- | SET antwort = QUESTION (" | ||
- | ELSE | ||
- | ASK " | ||
- | END IF | ||
- | MODE DATA | ||
- | # | ||
- | $$ IF (antwort .AB. " | ||
- | xx |eingabe|ausgabe*| | ||
- | $$ ELSE | ||
- | xx |eingabe|ausgabe| | ||
- | $$ END IF | ||
- | *eof* | ||
- | *eof</ | ||
- | ► Die Frage nach dem Betriebssystem ('' | ||
- | ---- | ||
- | [[tustep: |