From schaelkle at zdv.uni-tuebingen.de Fri Apr 1 08:37:13 2011 From: schaelkle at zdv.uni-tuebingen.de (=?utf-8?Q?Kuno_Sch=C3=A4lkle?=) Date: Fri, 1 Apr 2011 08:37:13 +0200 Subject: [Tustep-Liste] Editor - Zahlenwerte suchen In-Reply-To: <4D949B0E.9020004@saw-leipzig.de> References: <20110318101147.13982ewls8vsqnkj@webmail.uni-tuebingen.de><5FDEE0EE48E246879C9492AE621547FA@SeckXP> <4D949B0E.9020004@saw-leipzig.de> Message-ID: <14DC11011FC54710BF85FE26026C051D@bimbo> Lieber Herr Carls, >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ich möchte einheitlich alle Bereichsangaben, die sich lediglich um den Wert eins unterscheiden, finden. Gibt es eine Möglichkeit, im Editor nach direkt aufeinander folgenden Zahlenwerten zu suchen - also: 1-2, 37-38, 1001-1002 - nicht aber 1-3, 36-40, 1000-1002. <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< im Editor ließe sich das nur sehr umständlich realisieren. Möglicher Ausweg: Mit TUSCRIPT die betroffenen Zahlenpaare kennzeichnen und dann im Editor diese Kennzeichnung suchen: $$! quelle, ziel $$- $$ MODE TUSCRIPT SET status = CHECK (quelle, READ, TUSTEP) ERROR/STOP "QUELLE: ", status SET status = CHECK (ziel, WRITE, TUSTEP) ERROR/STOP "ZIEL: ", status SET status = UNIQUE (quelle, ziel) ERROR/STOP "Datei ", status, " ist mehrfach angegeben" COMPILE BUILD S_TABLE ttab = ":<>>/-<>>/:" ACCESS q: READ/STREAM/RECORDS "{quelle}" ... sn.zn/un, aken + text/ttab + eken, typ ACCESS z: WRITE/ERASE/STREAM "{ziel}" ... sn.zn/un, aken + text + eken LOOP/999999 READ/NEXT/EXIT q IF (typ.EQ.4) THEN SET egal = SPLIT (text, ":-:", z1, z2) SET zz = z1 + 1 IF (zz.EQ.z2) SET text = CONCAT ("[[", text, "]]") ENDIF WRITE z ENDLOOP ENDACCESS/PRINT q ENDACCESS/PRINT z ENDCOMPILE Damit werden alle betroffenen Zahlenpaare in [[ und ]] eingeschlossen. Mit der Tabelle ttab werden Zahlenpaare als "Trennzeichen" definiert. Immer wenn ein solches Trennzeichen auftritt (typ=4), werden die beiden Zahlen auf z1 und z2 aufgeteilt und dann abgefragt, ob die beiden Werte unmittelbar aufeinander folgen. Herzliche Grüße Ihr Kuno Schaelkle From carls at saw-leipzig.de Fri Apr 1 09:15:22 2011 From: carls at saw-leipzig.de (Wieland Carls) Date: Fri, 01 Apr 2011 09:15:22 +0200 Subject: [Tustep-Liste] Editor - Zahlenwerte suchen In-Reply-To: <14DC11011FC54710BF85FE26026C051D@bimbo> References: <20110318101147.13982ewls8vsqnkj@webmail.uni-tuebingen.de><5FDEE0EE48E246879C9492AE621547FA@SeckXP> <4D949B0E.9020004@saw-leipzig.de> <14DC11011FC54710BF85FE26026C051D@bimbo> Message-ID: <4D957B8A.7020700@saw-leipzig.de> Leipzig, 1. April 2011 ________________________________________________________________ Lieber Herr Seck! Lieber Hans-Werner! Lieber Herr Schälkle! Vielen Dank für Ihre schnelle Hilfe! Bevor ich die Lösung von Hans-Werner Bartz ausprobieren konnte, habe ich mich davon überzeugen lassen, dass ich mit dem kleinen TUSCRIPT-Programm von Herrn Schälkle am schnellsten zum Ziel komme. Programm kopiert, quelle und ziel eingesetzt, ausgeführt, fertig! Eine manuelle Weiterverarbeitung im Editor ist nun kein Problem mehr. Vielleicht wäre dies ein Fall für die Beispielprogrammsammlung. Mein Anliegen war, einheitlich alle Verweise auf einen Seitenbereich, in dem sich die Seitenzahlen nur um den Wert eins unterscheiden (n-n+1), in 'erste Zahl f.' auszutauschen. Ein Austausch in umgekehrte Richtung ist mit einem leicht abgewandelten TUSCRIPT-Programm sicher auch problemlos zu erreichen. Mit herzlichen Grüßen, Wieland Carls ________________________________________________________________ Dr. Wieland Carls Sächsische Akademie der Wissenschaften zu Leipzig Arbeitsstelle: „Das sächsisch-magdeburgische Recht als kulturelles Bindeglied zwischen den Rechtsordnungen Ost- und Mitteleuropas“ Postfach 100 440 – 04004 Leipzig Karl-Tauchnitz-Straße 1 04107 Leipzig T: +49 341 7 11 53 27 F: +49 341 7 11 53 44 carls at saw-leipzig.de www.magdeburger-recht.eu _________________________________________________________________ Am 01.04.2011 08:37, schrieb Kuno Schälkle: > Diskussionsforum Tustep-Liste > Weitere Informationen: www.itug.de > ------------------------------------------------------------ > > Lieber Herr Carls, > >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> > ich möchte einheitlich alle Bereichsangaben, die sich lediglich um den > Wert eins unterscheiden, finden. Gibt es eine Möglichkeit, im Editor > nach direkt aufeinander folgenden Zahlenwerten zu suchen - also: 1-2, > 37-38, 1001-1002 - nicht aber 1-3, 36-40, 1000-1002. > <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< > > im Editor ließe sich das nur sehr umständlich realisieren. > > Möglicher Ausweg: Mit TUSCRIPT die betroffenen Zahlenpaare > kennzeichnen und dann im Editor diese Kennzeichnung suchen: > > > $$! quelle, ziel > $$- > $$ MODE TUSCRIPT > > SET status = CHECK (quelle, READ, TUSTEP) > ERROR/STOP "QUELLE: ", status > > SET status = CHECK (ziel, WRITE, TUSTEP) > ERROR/STOP "ZIEL: ", status > > SET status = UNIQUE (quelle, ziel) > ERROR/STOP "Datei ", status, " ist mehrfach angegeben" > > COMPILE > > BUILD S_TABLE ttab = ":<>>/-<>>/:" > > ACCESS q: READ/STREAM/RECORDS "{quelle}" ... > sn.zn/un, aken + text/ttab + eken, typ > ACCESS z: WRITE/ERASE/STREAM "{ziel}" ... > sn.zn/un, aken + text + eken > > LOOP/999999 > READ/NEXT/EXIT q > IF (typ.EQ.4) THEN > SET egal = SPLIT (text, ":-:", z1, z2) > SET zz = z1 + 1 > IF (zz.EQ.z2) SET text = CONCAT ("[[", text, "]]") > ENDIF > WRITE z > ENDLOOP > > ENDACCESS/PRINT q > ENDACCESS/PRINT z > > ENDCOMPILE > > Damit werden alle betroffenen Zahlenpaare in [[ und ]] eingeschlossen. > > Mit der Tabelle ttab werden Zahlenpaare als "Trennzeichen" definiert. > Immer wenn ein solches Trennzeichen auftritt (typ=4), werden die > beiden Zahlen auf z1 und z2 aufgeteilt und dann abgefragt, ob die > beiden Werte unmittelbar aufeinander folgen. > > Herzliche Grüße > Ihr Kuno Schaelkle > > ------------------------------------------------------------ > Tustep-Liste at itug.de > https://lists.uni-wuerzburg.de/mailman/listinfo/tustep-liste From schaelkle at zdv.uni-tuebingen.de Fri Apr 1 09:46:04 2011 From: schaelkle at zdv.uni-tuebingen.de (=?utf-8?Q?Kuno_Sch=C3=A4lkle?=) Date: Fri, 1 Apr 2011 09:46:04 +0200 Subject: [Tustep-Liste] Editor - Zahlenwerte suchen In-Reply-To: <4D957B8A.7020700@saw-leipzig.de> References: <20110318101147.13982ewls8vsqnkj@webmail.uni-tuebingen.de><5FDEE0EE48E246879C9492AE621547FA@SeckXP> <4D949B0E.9020004@saw-leipzig.de><14DC11011FC54710BF85FE26026C051D@bimbo> <4D957B8A.7020700@saw-leipzig.de> Message-ID: Lieber Herr Carls, >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> Mein Anliegen war, einheitlich alle Verweise auf einen Seitenbereich, in dem sich die Seitenzahlen nur um den Wert eins unterscheiden (n-n+1), in 'erste Zahl f.' auszutauschen. <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< das erreichen Sie, wenn Sie die Zeile IF (zz.EQ.z2) SET text = CONCAT ("[[", text, "]]") durch die Zeile IF (zz.EQ.z2) SET text = CONCAT (z1, " f.") ersetzen. Herzliche Grüße Ihr Kuno Schaelkle ============================================================== > Möglicher Ausweg: Mit TUSCRIPT die betroffenen Zahlenpaare > kennzeichnen und dann im Editor diese Kennzeichnung suchen: > > > $$! quelle, ziel > $$- > $$ MODE TUSCRIPT > > SET status = CHECK (quelle, READ, TUSTEP) > ERROR/STOP "QUELLE: ", status > > SET status = CHECK (ziel, WRITE, TUSTEP) > ERROR/STOP "ZIEL: ", status > > SET status = UNIQUE (quelle, ziel) > ERROR/STOP "Datei ", status, " ist mehrfach angegeben" > > COMPILE > > BUILD S_TABLE ttab = ":<>>/-<>>/:" > > ACCESS q: READ/STREAM/RECORDS "{quelle}" ... > sn.zn/un, aken + text/ttab + eken, typ > ACCESS z: WRITE/ERASE/STREAM "{ziel}" ... > sn.zn/un, aken + text + eken > > LOOP/999999 > READ/NEXT/EXIT q > IF (typ.EQ.4) THEN > SET egal = SPLIT (text, ":-:", z1, z2) > SET zz = z1 + 1 > IF (zz.EQ.z2) SET text = CONCAT ("[[", text, "]]") > ENDIF > WRITE z > ENDLOOP > > ENDACCESS/PRINT q > ENDACCESS/PRINT z > > ENDCOMPILE > > Damit werden alle betroffenen Zahlenpaare in [[ und ]] eingeschlossen. > > Mit der Tabelle ttab werden Zahlenpaare als "Trennzeichen" definiert. > Immer wenn ein solches Trennzeichen auftritt (typ=4), werden die > beiden Zahlen auf z1 und z2 aufgeteilt und dann abgefragt, ob die > beiden Werte unmittelbar aufeinander folgen. From carls at saw-leipzig.de Fri Apr 1 09:59:43 2011 From: carls at saw-leipzig.de (Wieland Carls) Date: Fri, 01 Apr 2011 09:59:43 +0200 Subject: [Tustep-Liste] Editor - Zahlenwerte suchen In-Reply-To: References: <20110318101147.13982ewls8vsqnkj@webmail.uni-tuebingen.de><5FDEE0EE48E246879C9492AE621547FA@SeckXP> <4D949B0E.9020004@saw-leipzig.de><14DC11011FC54710BF85FE26026C051D@bimbo> <4D957B8A.7020700@saw-leipzig.de> Message-ID: <4D9585EF.1040304@saw-leipzig.de> Leipzig, 1. April 2011 ________________________________________________________________ Lieber Herr Schälkle, vielen Dank für die Optimierung! Ich werde es so machen, aber erst nachdem ich überprüft habe, dass - bis auf wenige Ausnahmen - die unmittelbar aufeinander folgenden Zahlenwerte tatsächlich Seitenzahlen sind. Die wenigen Ausnahmen (Jahreszahlen, Bandangaben etc.) mache ich im Editor wieder rückgängig. Deshalb lasse ich auch die doppelten eckigen Klammern in der Programmzeile drin. Nochmals herzliche Grüße, Ihr Wieland Carls ________________________________________________________________ Dr. Wieland Carls Sächsische Akademie der Wissenschaften zu Leipzig Arbeitsstelle: „Das sächsisch-magdeburgische Recht als kulturelles Bindeglied zwischen den Rechtsordnungen Ost- und Mitteleuropas“ Postfach 100 440 – 04004 Leipzig Karl-Tauchnitz-Straße 1 04107 Leipzig T: +49 341 7 11 53 27 F: +49 341 7 11 53 44 carls at saw-leipzig.de www.magdeburger-recht.eu _________________________________________________________________ Am 01.04.2011 09:46, schrieb Kuno Schälkle: > Diskussionsforum Tustep-Liste > Weitere Informationen: www.itug.de > ------------------------------------------------------------ > > Lieber Herr Carls, > >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> > Mein Anliegen war, einheitlich alle Verweise auf einen Seitenbereich, in > dem > sich die Seitenzahlen nur um den Wert eins unterscheiden (n-n+1), in > 'erste Zahl f.' auszutauschen. > <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< > > das erreichen Sie, wenn Sie die Zeile > IF (zz.EQ.z2) SET text = CONCAT ("[[", text, "]]") > durch die Zeile > IF (zz.EQ.z2) SET text = CONCAT (z1, " f.") > ersetzen. > > Herzliche Grüße > Ihr Kuno Schaelkle > > ============================================================== From stahl at germanistik.uni-wuerzburg.de Mon Apr 4 20:11:54 2011 From: stahl at germanistik.uni-wuerzburg.de (stahl at germanistik.uni-wuerzburg.de) Date: Mon, 04 Apr 2011 20:11:54 +0200 Subject: [Tustep-Liste] Spalten mit Strichen Message-ID: <20110404201154.98012mki6ugvio6i@webmail.uni-wuerzburg.de> Liebe Listen-Leserinnen und -Leser, ich möchte mit #SATZ u.a. Tabellen setzen, die ungefähr solch eine Struktur haben aa | bb | cc | dd | ee aa | bb | cc | dd | ee aa | bb | cc | dd | ee aa | bb | cc | dd | ee wobei sich die senkrechten Striche berühren und somit eine durchgehende vertikale Linie erzeugen sollen. Wenn nun kein Seitenhöhenausgleich im Spiel ist, trifft dies auch zu, woraus sich die Frage ergibt: Wie kann ich denn vor und nach derartigen Tabellen den Seitenhöhenausgleich aus- und anschalten? Oder soll ich überhaupt ganz anders vorgehen? Beste Grüße P.Stahl From recker at uni-trier.de Tue Apr 5 09:25:50 2011 From: recker at uni-trier.de (Ute Recker-Hamm) Date: Tue, 05 Apr 2011 09:25:50 +0200 Subject: [Tustep-Liste] Spalten mit Strichen In-Reply-To: <20110404201154.98012mki6ugvio6i@webmail.uni-wuerzburg.de> References: <20110404201154.98012mki6ugvio6i@webmail.uni-wuerzburg.de> Message-ID: <20110405092550.wkxe6tdc0w4scggg@webmail.uni-trier.de> Lieber Peter, zur Zeit setze ich auch gerade einige Tabellen und erzeuge die "Linien zwischen gemerkten Punkten" mit "&!/(Punkt1, Punkt2, Linienstärke)". Deine Tabelle würde dann wie folgt aussehen: $$$ aa @(20)&!M(V1) bb @(20) cc @(20) dd @(20) ee @(20) $$$ aa @(20) bb @(20) cc @(20) dd @(20) ee @(20) $$$ aa @(20) bb @(20) cc @(20) dd @(20) ee @(20) $$$ aa @(20)&!M(V9)&!/(V1,V9,1) bb @(20) cc @(20) dd @(20) ee @(20) In Zeile 1 wird der erste Merkpunkt V1 mit &!M(V1) definiert. Hier müssten die übrigen Spalten ebenfalls Merkpunkte erhalten. In der letzten Zeile wird am Anfgang der zweiten Spalte ein neuer Merkpunkt V9 definiert, gleich anschließend wird die Linie zwischen V1 und V9 gezogen. Die übrigen Linien dann analog. Das Ergebnis wird Dich vielleicht nicht zufriedenstellen, weil die Linie auf der Grundlinie der ersten Tabellenzeile beginnt. Den Schreibstahl ein bisschen verschieben, bringt Anhilfe: $$$aa @(20)&!(:20)&!M(V1)&!(:00) bb @(20) cc @(20) dd @(20) ee @(20) Das Ganze ist alles andere als elegant und ich bin gespannt, ob es bessere Lösungen gibt. Viele Grüße in die Runde, Ute Recker-Hamm From f.seck at t-online.de Tue Apr 5 13:43:36 2011 From: f.seck at t-online.de (F.Seck) Date: Tue, 5 Apr 2011 13:43:36 +0200 Subject: [Tustep-Liste] Spalten mit Strichen References: <20110404201154.98012mki6ugvio6i@webmail.uni-wuerzburg.de> <20110405092550.wkxe6tdc0w4scggg@webmail.uni-trier.de> Message-ID: <404CCB624DB74F6C9CEA90DE58879F11@SeckXP> Liebe Frau Recker-Hamm, lieber Herr Stahl, das Ziehen von Linien zwischen gemerkten Punkten ist sicher eine gute Methode, bei schrägen Linien, die man ja auch manchmal braucht - wenn auch nicht Tabellen - wohl die einzig mögliche. Ich habe es mir etwa einfacher gemacht und stelle zur Diskussion: 1. In der letzten Zeile (ggf. letzten Zeile der Seite) waagerechte Position der Linie definieren, z.B. &=080 2. Schreibstrahl je nach Geschmack nach oben verschieben, z.B. um 3 p: &!(:16) 3. Linie für die ganze Tabellenhöhe aus einem einzigen senkrechten Strich | bilden, dessen Höhe verändert wird, z.B. &!k(84:10). Mehr als 99 kann man nicht angeben; wenn die Tabelle höher ist als 99 Punkt, muß man die Codes angeeigneter Stelle wiederholen. Würde man nur &!(84) angeben, so würde der Strich zu breit, die Breite hinge von der Höhe ab. 4. Zurückschalten auf eingestellte Schriftgröße mit &!k{, auf die Schriftlinie mit &!(:). Der gesamte Code für eine 84p hohe senkrechte Linie, beginnend 80p vom linken Rand und 3p unter der Grundlinie der Tabelle, ist also &=080&!(:16)&!k(84:10)|&!k{&!(:) Bei der zweiten Linie braucht man nur die waagerechte Position zu ändern, z.B. &=160&!(:16)&!k(84:10)|&!k{&!(:) Mit folgenden Daten erhalte ich für 10+2 p ein brauchbares Ergebnis: $$$ text $$$ text $$$ text $$$ text $$$ text $$$ text $$$ text &=080&!(:14)&!k(84:10)|&!k{&!(:)__ Text Text Text &=160&!(:14)&!k(84:10)|&!k{&!(:) Text Mit freundlichen Grüßen Friedrich Seck ------------------------------------------------ Dr. Friedrich Seck Erlenweg 18 72076 Tübingen Telefon: (0 70 71) 96 49 40 Telefax auf Anfrage ----- Original Message ----- From: "Ute Recker-Hamm" To: Sent: Tuesday, April 05, 2011 9:25 AM Subject: Re: [Tustep-Liste] Spalten mit Strichen Diskussionsforum Tustep-Liste Weitere Informationen: www.itug.de ------------------------------------------------------------ Lieber Peter, zur Zeit setze ich auch gerade einige Tabellen und erzeuge die "Linien zwischen gemerkten Punkten" mit "&!/(Punkt1, Punkt2, Linienstärke)". Deine Tabelle würde dann wie folgt aussehen: $$$ aa @(20)&!M(V1) bb @(20) cc @(20) dd @(20) ee @(20) $$$ aa @(20) bb @(20) cc @(20) dd @(20) ee @(20) $$$ aa @(20) bb @(20) cc @(20) dd @(20) ee @(20) $$$ aa @(20)&!M(V9)&!/(V1,V9,1) bb @(20) cc @(20) dd @(20) ee @(20) In Zeile 1 wird der erste Merkpunkt V1 mit &!M(V1) definiert. Hier müssten die übrigen Spalten ebenfalls Merkpunkte erhalten. In der letzten Zeile wird am Anfgang der zweiten Spalte ein neuer Merkpunkt V9 definiert, gleich anschließend wird die Linie zwischen V1 und V9 gezogen. Die übrigen Linien dann analog. Das Ergebnis wird Dich vielleicht nicht zufriedenstellen, weil die Linie auf der Grundlinie der ersten Tabellenzeile beginnt. Den Schreibstahl ein bisschen verschieben, bringt Anhilfe: $$$aa @(20)&!(:20)&!M(V1)&!(:00) bb @(20) cc @(20) dd @(20) ee @(20) Das Ganze ist alles andere als elegant und ich bin gespannt, ob es bessere Lösungen gibt. Viele Grüße in die Runde, Ute Recker-Hamm ------------------------------------------------------------ Tustep-Liste at itug.de https://lists.uni-wuerzburg.de/mailman/listinfo/tustep-liste From stahl at germanistik.uni-wuerzburg.de Tue Apr 5 21:01:55 2011 From: stahl at germanistik.uni-wuerzburg.de (stahl at germanistik.uni-wuerzburg.de) Date: Tue, 05 Apr 2011 21:01:55 +0200 Subject: [Tustep-Liste] Spalten mit Strichen In-Reply-To: <404CCB624DB74F6C9CEA90DE58879F11@SeckXP> References: <20110404201154.98012mki6ugvio6i@webmail.uni-wuerzburg.de> <20110405092550.wkxe6tdc0w4scggg@webmail.uni-trier.de> <404CCB624DB74F6C9CEA90DE58879F11@SeckXP> Message-ID: <20110405210155.16557hr0sv6wzdib@webmail.uni-wuerzburg.de> Liebe Ute, lieber Herr Seck, für die nützlichen Hinweise, die in meine Lösung eingegangen sind, möchte ich mich vielmals bedanken, Aus der alten Tabelle $$$/$$$ &=090 &!m(11)Ab____ &!m(21)|___ &!m(12)eb____ &!m(22)|___ &!m(13)ib____ &!m(23)|___ &!m(14)ob____ &!m(24)|___ &!m(15)ub $$$ &!p(11)Ba &!p(21)| &!p(12)be &!p(22)| &!p(13)bi &!p(23)| &!p(14)bo &!p(24)| &!p(15)bu wurde neu nun $$$/$$$ &=090 &!m(11)Ab____ &!m(21)&!k(12:10)|&!k{___ &!m(12)eb____ &!m(22)&!k(12:10)|&!k{___ &!m(13)ib____ &!m(23)&!k(12:10)|&!k{___ &!m(14)ob____ &!m(24)&!k(12:10)|&!k{___ &!m(15)ub $$$ &!p(11)Ba &!p(21)&!k(12:10)|&!k{ &!p(12)be &!p(22)&!k(12:10)|&!k{ &!p(13)bi &!p(23)&!k(12:10)|&!k{ &!p(14)bo &!p(24)&!k(12:10)|&!k{ &!p(15)bu was den Zweck genau erfüllt. Die Lösung mit einer einzigen durchgehenden Linie ist reizvoll, in diesem Fall aber nicht praktikabel, da mitten in der langen Tabelle ein Seitenumbruch erfolgt. Mit herzilchen Grüßen Peter Stahl