From anne.auditor at uni-tuebingen.de Mon Aug 3 12:57:35 2009 From: anne.auditor at uni-tuebingen.de (Anne Auditor) Date: Mon, 03 Aug 2009 12:57:35 +0200 Subject: [Tustep-Liste] tustep nach word? Message-ID: <20090803125735.185261cll577p6zj@webmail.uni-tuebingen.de> Liebe Listenleser, in der Hoffnung, nicht allzu große allgemeine Empörung hervorzurufen: Ich wurde gefragt, ob es möglich sei, eine tustep-Datei, die irgendwann mal eine Word-Datei gewesen ist, wieder in eine solche zurückzuverwandeln. Soweit ich weiß, ist das wohl eher schwierig und mit Reibungsverlusten verbunden, aber vielleicht hat ja jemand von Ihnen einen Trick auf Lager? Vielen Dank & herzliche Grüße Anne Auditor From friedhelm.hoffmann at mail.uni-wuerzburg.de Mon Aug 3 13:18:16 2009 From: friedhelm.hoffmann at mail.uni-wuerzburg.de (Friedhelm Hoffmann) Date: Mon, 03 Aug 2009 13:18:16 +0200 Subject: [Tustep-Liste] tustep nach word? In-Reply-To: <20090803125735.185261cll577p6zj@webmail.uni-tuebingen.de> References: <20090803125735.185261cll577p6zj@webmail.uni-tuebingen.de> Message-ID: <20090803131816.4645519h45cvqans@webmail.uni-wuerzburg.de> Lieb Frau Auditor, > in der Hoffnung, nicht allzu große allgemeine Empörung > hervorzurufen: Ich wurde gefragt, ob es möglich sei, eine > tustep-Datei, die irgendwann mal eine Word-Datei gewesen ist, wieder > in eine solche zurückzuverwandeln. Soweit ich weiß, ist das wohl > eher schwierig und mit Reibungsverlusten verbunden, aber vielleicht > hat ja jemand von Ihnen einen Trick auf Lager? ich benutze in solchen Faellen das Tustep-Standardmakro *konvert. Probieren Sie, ob Ihre Daten besser direkt in eine Worddatei ausgegeben werden oder in eine rtf-Datei, die Sie dann mit Word oeffnen. Mit herzlichen Gruessen und hoffentlich moeglichst geringen "Reibungsverlusten" Friedhelm Hoffmann From stahl at germanistik.uni-wuerzburg.de Mon Aug 3 13:27:52 2009 From: stahl at germanistik.uni-wuerzburg.de (stahl at germanistik.uni-wuerzburg.de) Date: Mon, 03 Aug 2009 13:27:52 +0200 Subject: [Tustep-Liste] tustep nach word? In-Reply-To: <20090803125735.185261cll577p6zj@webmail.uni-tuebingen.de> References: <20090803125735.185261cll577p6zj@webmail.uni-tuebingen.de> Message-ID: <20090803132752.41561qk0p929hvaw@webmail.uni-wuerzburg.de> Liebe Frau Auditor, > in der Hoffnung, nicht allzu große allgemeine Empörung > hervorzurufen: Ich wurde gefragt, ob es möglich sei, eine > tustep-Datei, die irgendwann mal eine Word-Datei gewesen ist, wieder > in eine solche zurückzuverwandeln. Soweit ich weiß, ist das wohl > eher schwierig und mit Reibungsverlusten verbunden, aber vielleicht > hat ja jemand von Ihnen einen Trick auf Lager? die Rückführung in eine Word-Datei hängt wohl von der Komplexität der Daten ab. Aber vielleicht genügt schon folgendes: Im Tustep-Editor wird mit der Anweisung ez,(+1,-1) die komplette Datei in die Windows-Zwischenablage kopiert. In einer (noch leeren, neuen) Word-Datei wird die Zwischenspeicher mit Strg+V wieder ausgekippt. Viele Grüße P.Stahl From anne.auditor at uni-tuebingen.de Mon Aug 3 13:50:37 2009 From: anne.auditor at uni-tuebingen.de (Anne Auditor) Date: Mon, 03 Aug 2009 13:50:37 +0200 Subject: [Tustep-Liste] tustep nach word? In-Reply-To: <20090803132752.41561qk0p929hvaw@webmail.uni-wuerzburg.de> References: <20090803125735.185261cll577p6zj@webmail.uni-tuebingen.de> <20090803132752.41561qk0p929hvaw@webmail.uni-wuerzburg.de> Message-ID: <20090803135037.16581e9yebe5v6dp@webmail.uni-tuebingen.de> Lieber Herr Hoffmann, lieber Herr Stahl, vielen Dank für die Tips - in der Tat war die Komplexität der Daten der Grund für meine Frage, da mit ez etwas mehr, mit *konvert weniger, aber jedenfalls immer ziemliches Chaos herauskommt; wahrscheinlich muss ich halt einfach vor dem Umwandeln ordentlich aufräumen ... Ganz herzliche Grüße reihum & ggf. schöne Ferien Anne Auditor From wolfram.schneider-lastin at phil.uzh.ch Mon Aug 3 18:43:35 2009 From: wolfram.schneider-lastin at phil.uzh.ch (Wolfram Schneider-Lastin, Koord. der Philosophischen =?utf-8?Q?Fakult=C3=A4t?=) Date: Mon, 03 Aug 2009 18:43:35 +0200 Subject: [Tustep-Liste] tustep nach word? In-Reply-To: <20090803125735.185261cll577p6zj@webmail.uni-tuebingen.de> References: <20090803125735.185261cll577p6zj@webmail.uni-tuebingen.de> Message-ID: Liebe Frau Auditor Sie haben ja inzwischen von Herrn Stahl und Herrn Hofmann Antwort erhalten. Trotzdem melde auch ich mich, weil Sie ein Problem angesprochen haben, das mich schon länger beschäftigt und das ich schon seit geraumer Zeit auch bei Herrn Schälkle deponiert habe. Ich kenne eine Menge Leute, die Daten in TUSTEP erstellen und dann nach WORD exportieren wollen, sei es, dass sie Ihre Veröffentlichungen in TUSTEP schreiben, diese dann aber bei den wissenschaftlichen Zeitschriften etc. in WORD einreichen müssen, sei es, dass sie Daten nach TUSTEP importieren, dort verarbeiten und das Ergebnis nach WORD transferieren wollen/müssen. Kurz und klein: So wie es in TUSTEP ein Makro #*import gibt, so sollte es auch das Gegenstück #*export geben (das angesprochene #*konvert ist veraltet -- Ich generiere mich jedesmal, in einem Kurs darauf hinzuweisen. Kennt etwa noch jemand das dort genannte WP?). Ich bin mir bewusst (auch nach Gesprächen mit Herrn Schälkle), dass es unmöglich ist, alle Informationen, die eine reichhaltige TUSTEP-Datei enthalten kann, ins ärmliche WORD zu überführen. Daher war und ist mein Vorschlag, den Leistungsumfang eines *export-Makros klar zu benennen. Mein Vorschlag lautet: Alle Layout-Informationen, die das Makro #*satz von Herrn Seck berücksichtigt (und das sind eine ganze Menge!), bei einem Export umzusetzen, die darüber hinausgehenden Informationen aber (natürlich nicht zu unterschlagen, sondern) als nicht konvertiert zu kennzeichnen. Ich würde gern in die Runde fragen, ob das ein gangbarer Weg wäre und auf Akzeptanz stieße. Die alten TUSTEP-Hasen brauchen ein #*export sicher nicht, aber es stünde einer modernen Software wie TUSTEP gut an, wenn es auch das Gegenstück zu #*import gäbe. Ich werde nicht nur von meinen KursteilnehmerInnen immer wieder danach gefragt. Mit herzlichen Grüßen, diesmal von der Ostseeküste Wolfram Schneider-Lastin On Mon, 03 Aug 2009 12:57:35 +0200 Anne Auditor wrote: > Diskussionsforum Tustep-Liste > Weitere Informationen: www.itug.de > ------------------------------------------------------------ > > Liebe Listenleser, > > in der Hoffnung, nicht allzu große allgemeine Empörung hervorzurufen: Ich >wurde gefragt, ob es möglich sei, eine tustep-Datei, die irgendwann mal >eine Word-Datei gewesen ist, wieder in eine solche zurückzuverwandeln. >Soweit ich weiß, ist das wohl eher schwierig und mit Reibungsverlusten >verbunden, aber vielleicht hat ja jemand von Ihnen einen Trick auf Lager? > > Vielen Dank & herzliche Grüße > Anne Auditor > > ------------------------------------------------------------ > Tustep-Liste at itug.de > https://lists.uni-wuerzburg.de/mailman/listinfo/tustep-liste Dr. Wolfram Schneider-Lastin Universität Zürich Koordinator für E-Learning und Computerphilologie an der Philosophischen Fakultät Plattenstrasse 22 CH-8032 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/elearning Erreichbar in der Regel Mo 14-18, Di Mi 9-18 Uhr From friedhelm.hoffmann at mail.uni-wuerzburg.de Mon Aug 3 20:24:42 2009 From: friedhelm.hoffmann at mail.uni-wuerzburg.de (Friedhelm Hoffmann) Date: Mon, 03 Aug 2009 20:24:42 +0200 Subject: [Tustep-Liste] tustep nach word? In-Reply-To: References: <20090803125735.185261cll577p6zj@webmail.uni-tuebingen.de> Message-ID: <20090803202442.638425zss836srca@webmail.uni-wuerzburg.de> Lieber Herr Schneider-Lastin, Ihr Vorschlag scheint mir eine gute Idee zu sein. Mit vielen Gruessen reihum F. Hoffmann Zitat von "Wolfram Schneider-Lastin, Koord. der Philosophischen Fakultät" : > Diskussionsforum Tustep-Liste > Weitere Informationen: www.itug.de > ------------------------------------------------------------ > > Liebe Frau Auditor > > Sie haben ja inzwischen von Herrn Stahl und Herrn Hofmann Antwort erhalten. > > Trotzdem melde auch ich mich, weil Sie ein Problem angesprochen > haben, das mich schon länger beschäftigt und das ich schon seit > geraumer Zeit auch bei Herrn Schälkle deponiert habe. > > Ich kenne eine Menge Leute, die Daten in TUSTEP erstellen und dann > nach WORD exportieren wollen, sei es, dass sie Ihre > Veröffentlichungen in TUSTEP schreiben, diese dann aber bei den > wissenschaftlichen Zeitschriften etc. in WORD einreichen müssen, sei > es, dass sie Daten nach TUSTEP importieren, dort verarbeiten und das > Ergebnis nach WORD transferieren wollen/müssen. > Kurz und klein: So wie es in TUSTEP ein Makro #*import gibt, so > sollte es auch das Gegenstück #*export geben (das angesprochene > #*konvert ist veraltet -- Ich generiere mich jedesmal, in einem Kurs > darauf hinzuweisen. Kennt etwa noch jemand das dort genannte WP?). > > Ich bin mir bewusst (auch nach Gesprächen mit Herrn Schälkle), dass > es unmöglich ist, alle Informationen, die eine reichhaltige > TUSTEP-Datei enthalten kann, ins ärmliche WORD zu überführen. Daher > war und ist mein Vorschlag, den Leistungsumfang eines *export-Makros > klar zu benennen. > > Mein Vorschlag lautet: Alle Layout-Informationen, die das Makro > #*satz von Herrn Seck berücksichtigt (und das sind eine ganze > Menge!), bei einem Export umzusetzen, die darüber hinausgehenden > Informationen aber (natürlich nicht zu unterschlagen, sondern) als > nicht konvertiert zu kennzeichnen. > > Ich würde gern in die Runde fragen, ob das ein gangbarer Weg wäre > und auf Akzeptanz stieße. Die alten TUSTEP-Hasen brauchen ein > #*export sicher nicht, aber es stünde einer modernen Software wie > TUSTEP gut an, wenn es auch das Gegenstück zu #*import gäbe. Ich > werde nicht nur von meinen KursteilnehmerInnen immer wieder danach > gefragt. > > Mit herzlichen Grüßen, diesmal von der Ostseeküste > > Wolfram Schneider-Lastin > > > > > On Mon, 03 Aug 2009 12:57:35 +0200 > Anne Auditor wrote: >> Diskussionsforum Tustep-Liste >> Weitere Informationen: www.itug.de >> ------------------------------------------------------------ >> >> Liebe Listenleser, >> >> in der Hoffnung, nicht allzu große allgemeine Empörung >> hervorzurufen: Ich wurde gefragt, ob es möglich sei, eine >> tustep-Datei, die irgendwann mal eine Word-Datei gewesen ist, >> wieder in eine solche zurückzuverwandeln. Soweit ich weiß, ist das >> wohl eher schwierig und mit Reibungsverlusten verbunden, aber >> vielleicht hat ja jemand von Ihnen einen Trick auf Lager? >> >> Vielen Dank & herzliche Grüße >> Anne Auditor >> >> ------------------------------------------------------------ >> Tustep-Liste at itug.de >> https://lists.uni-wuerzburg.de/mailman/listinfo/tustep-liste > > Dr. Wolfram Schneider-Lastin > Universität Zürich > Koordinator für E-Learning und Computerphilologie > an der Philosophischen Fakultät > Plattenstrasse 22 > CH-8032 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/elearning > > Erreichbar in der Regel Mo 14-18, Di Mi 9-18 Uhr > > ------------------------------------------------------------ > Tustep-Liste at itug.de > https://lists.uni-wuerzburg.de/mailman/listinfo/tustep-liste Friedhelm Hoffmann From Martinellus at gmx.de Thu Aug 6 13:36:11 2009 From: Martinellus at gmx.de (Martin Hellmann) Date: Thu, 6 Aug 2009 13:36:11 +0200 Subject: [Tustep-Liste] Kopiere-Austauschtabelle Message-ID: <000e01ca168a$19870f20$2b83548d@gwi.unimuenchen.de> Liebe TUSTEP-User, Ich komme mal wieder mit einer naiven Frage, die sich aus folgender Prozedur ergibt: Ich generiere aus einer umfänglichen Datei eine umfängliche #kopiere-Parameter-xx-Austauschtabelle. Dabei kommt es (häufiger als erwartet) vor, dass ein und dasselbe Such-Ersetzungszeichenfolgenpaar in der Tabelle steht. Beim anschließenden #kopiere kommt es dann zum (eigentlich erwünschten) Programmabbruch, der mir die Doppelung anzeigt, um die ich mich dann kümmern kann. Da es nun zu sehr vielen Doppelungen kommt, hätte ich gern alle irgendwie gemeinsam gemeldet. Ich wäre auch hochzufrieden, wenn alle Doppelungen vollständig eliminiert würden, so dass der entsprechende Austausch nicht stattfindet. Zufrieden wäre ich auch, wenn der Austausch stattfindet und TUSTEP einsehen würde, dass eine identische Suchzeichenfolge kein Problem darstellt, sofern auch die Ersetzungszeichenfolge identisch ist. Gibt es dafür eine Lösung oder soll ich mir lieber eine andere Prozedur ausdenken, die dieses Problem umgeht? Viele Grüße Martin Hellmann From f.seck at t-online.de Thu Aug 6 15:30:19 2009 From: f.seck at t-online.de (F.Seck) Date: Thu, 6 Aug 2009 15:30:19 +0200 Subject: [Tustep-Liste] Kopiere-Austauschtabelle References: <000e01ca168a$19870f20$2b83548d@gwi.unimuenchen.de> Message-ID: <001301ca169a$0b78a0f0$6402a8c0@SECK2000> Lieber Herr Hellmann, versuchen Sie es doch mal mit der folgenden Kommandofolge: #SVORBEREITE,QQ,-STD-,-,+,*,,- ssl 200 *eof #SORTIERE,-STD-,-STD-,1+200'0,+,1+200 #RAUFBEREITE,-STD-,ZZ,-,+,*,-,- ssl *eof Die Datei QQ enthält die erzeugten XX-Parameter, ggf. mit Dubletten, ZZ ohne diese. Zur Erläuterung: Das Programm kann identische Sätze nur erkennen, wenn sie unmittelbar aufeinander folgen. Also müssen wir zuerst sortieren. RAUFBEREITE gibt, so wie es hier benutzt wird, identische Sätze nur einmal aus. Der Sortierschlüssel (hier 200) muß so lang sein wie der längste zu erwartende XX-Parameter. Außerdem wird erwartet, daß in jedem Satz genau eine Such- + Ersetzungszeichenfolge steht. Mit freundlichen Grüßen Friedrich Seck -------------------------------------- Dr. Friedrich Seck 72076 Tübingen, Erlenweg 18 Tel: (0 70 71) 96 49 40 Fax-Nummer auf Anfrage ----- Original Message ----- From: "Martin Hellmann" To: Sent: Thursday, August 06, 2009 1:36 PM Subject: [Tustep-Liste] Kopiere-Austauschtabelle Diskussionsforum Tustep-Liste Weitere Informationen: www.itug.de ------------------------------------------------------------ Liebe TUSTEP-User, Ich komme mal wieder mit einer naiven Frage, die sich aus folgender Prozedur ergibt: Ich generiere aus einer umfänglichen Datei eine umfängliche #kopiere-Parameter-xx-Austauschtabelle. Dabei kommt es (häufiger als erwartet) vor, dass ein und dasselbe Such-Ersetzungszeichenfolgenpaar in der Tabelle steht. Beim anschließenden #kopiere kommt es dann zum (eigentlich erwünschten) Programmabbruch, der mir die Doppelung anzeigt, um die ich mich dann kümmern kann. Da es nun zu sehr vielen Doppelungen kommt, hätte ich gern alle irgendwie gemeinsam gemeldet. Ich wäre auch hochzufrieden, wenn alle Doppelungen vollständig eliminiert würden, so dass der entsprechende Austausch nicht stattfindet. Zufrieden wäre ich auch, wenn der Austausch stattfindet und TUSTEP einsehen würde, dass eine identische Suchzeichenfolge kein Problem darstellt, sofern auch die Ersetzungszeichenfolge identisch ist. Gibt es dafür eine Lösung oder soll ich mir lieber eine andere Prozedur ausdenken, die dieses Problem umgeht? Viele Grüße Martin Hellmann ------------------------------------------------------------ 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: From matthias.osthof at t-online.de Thu Aug 6 16:16:30 2009 From: matthias.osthof at t-online.de (Matthias Osthof) Date: Thu, 6 Aug 2009 16:16:30 +0200 Subject: [Tustep-Liste] Kopiere-Austauschtabelle In-Reply-To: <000e01ca168a$19870f20$2b83548d@gwi.unimuenchen.de> References: <000e01ca168a$19870f20$2b83548d@gwi.unimuenchen.de> Message-ID: <6E1CFD2444814CA590A9392714F51DFB@LENOVOOS> Lieber Herr Hellmann Das folgende Makro liest aus der Datei params die Parameter in die Variable xx ein, sortiert diese alphabetisch, reduziert Mehrfachvorkommen von Austauschanweisungen auf eines und schreibt das Ergebnis in die Datei params zurück. Die Sortierung ist notwendig, weil die Funktion REDUCE() mehrfach vorkommende Zeichenfolgen nur dann erkennt, wenn sie unmittelbar aufeinander folgen. $$! $$ MODE TUSCRIPT SET xx = FILE ("params") SET xx = MIXED_SORT (xx) SET xx = REDUCE (xx) FILE/ERASE/PROGRAM "params" = xx Voraussetzung ist, dass jeder Parameter nur eine und nur eine komplette Austauschanweisung enthält, also xx |aaa|bbb| xx |xxx|uuu| Mit freundlichen Grüßen 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 Martin Hellmann Gesendet: Donnerstag, 6. August 2009 13:36 An: tustep-liste at itug.de Betreff: [Tustep-Liste] Kopiere-Austauschtabelle Diskussionsforum Tustep-Liste Weitere Informationen: www.itug.de ------------------------------------------------------------ Liebe TUSTEP-User, Ich komme mal wieder mit einer naiven Frage, die sich aus folgender Prozedur ergibt: Ich generiere aus einer umfänglichen Datei eine umfängliche #kopiere-Parameter-xx-Austauschtabelle. Dabei kommt es (häufiger als erwartet) vor, dass ein und dasselbe Such-Ersetzungszeichenfolgenpaar in der Tabelle steht. Beim anschließenden #kopiere kommt es dann zum (eigentlich erwünschten) Programmabbruch, der mir die Doppelung anzeigt, um die ich mich dann kümmern kann. Da es nun zu sehr vielen Doppelungen kommt, hätte ich gern alle irgendwie gemeinsam gemeldet. Ich wäre auch hochzufrieden, wenn alle Doppelungen vollständig eliminiert würden, so dass der entsprechende Austausch nicht stattfindet. Zufrieden wäre ich auch, wenn der Austausch stattfindet und TUSTEP einsehen würde, dass eine identische Suchzeichenfolge kein Problem darstellt, sofern auch die Ersetzungszeichenfolge identisch ist. Gibt es dafür eine Lösung oder soll ich mir lieber eine andere Prozedur ausdenken, die dieses Problem umgeht? Viele Grüße Martin Hellmann ------------------------------------------------------------ Tustep-Liste at itug.de https://lists.uni-wuerzburg.de/mailman/listinfo/tustep-liste From Martinellus at gmx.de Thu Aug 6 16:25:40 2009 From: Martinellus at gmx.de (Martin Hellmann) Date: Thu, 6 Aug 2009 16:25:40 +0200 Subject: [Tustep-Liste] Kopiere-Austauschtabelle In-Reply-To: <001301ca169a$0b78a0f0$6402a8c0@SECK2000> References: <000e01ca168a$19870f20$2b83548d@gwi.unimuenchen.de> <001301ca169a$0b78a0f0$6402a8c0@SECK2000> Message-ID: <000301ca16a1$c6678820$2b83548d@gwi.unimuenchen.de> Lieber Herr Seck, Großartig! Vielen Dank für die originelle Lösung, die tadellos läuft. Ich hatte zwar wieder einen Programmabbruch beim #kopiere, weil es tatsächlich einen Fall gab, bei dem die Suchzeichenfolgen identisch und die Ersetzungszeichenfolgen unterschiedlich waren, aber eben nur einen einzigen und damit echten Ausnahmefall (bei dem nämlich in den Ausgangsdaten zwei gleiche Wörter in einer Zeile stehen und zwischen beiden Wörtern ein neuer Paragraph beginnt). Freudige Grüße Martin Hellmann -------------- nächster Teil -------------- Ein Dateianhang mit HTML-Daten wurde abgetrennt... URL: From gasperlin at gasperlin.de Thu Aug 6 16:44:21 2009 From: gasperlin at gasperlin.de (Oliver Gasperlin) Date: Thu, 6 Aug 2009 16:44:21 +0200 Subject: [Tustep-Liste] Kopiere-Austauschtabelle In-Reply-To: <000e01ca168a$19870f20$2b83548d@gwi.unimuenchen.de> References: <000e01ca168a$19870f20$2b83548d@gwi.unimuenchen.de> Message-ID: <001201ca16a4$628a9f60$279fde20$@de> Lieber Herr Hellmann, hier noch eine TUSCRIPT-Lösung, die ohne Sortieren auskommt und den kleinen Vorteil hat, dass Ihre Parameter-Karten in der Reihenfolge der Ausgangsdatei stehen bleiben. #makro $$ MODE TUSCRIPT SET a = FILE ("parameter_1"), b=* LOOP/99999 SET zeilen = SIZE (a) IF (zeilen.eq.0) EXIT SET a = REMOVE (a, 1, auswahl) SET b = COLLECT (b, auswahl) ENDLOOP FILE/ERASE "parameter_2" = b *eof 1. Die Daten aus der Datei mit der "parameter_1" werden in die Variable a gelesen; die Sternvariable b wird definiert. 2. In der Schleife wird ein Satz (eine Teilzeichenfolge) nach dem (der) anderen a) aus der Variable a entfernt (REMOVE) und in die Variable auswahl geschrieben sowie b) aus der Variable auswahl in die Variable b geschrieben, wobei geprüft wird, ob dieser Satz in der Variable b schon vorhanden ist, in welch letzterem Fall er nicht hineingeschrieben wird (COLLECT). 3. Schließlich wird die Variable b in die Datei "tabelle_2" geschrieben. (Die ersten beiden Zeilen im Loop sind nur dazu da, die Schleife zu beenden, sobald in der Variable a keine Teilzeichenfolgen mehr übrig sind.) Beste Grüße Oliver Gasperlin From Martinellus at gmx.de Thu Aug 6 16:56:33 2009 From: Martinellus at gmx.de (Martin Hellmann) Date: Thu, 6 Aug 2009 16:56:33 +0200 Subject: [Tustep-Liste] Kopiere-Austauschtabelle In-Reply-To: <001301ca169a$0b78a0f0$6402a8c0@SECK2000> References: <000e01ca168a$19870f20$2b83548d@gwi.unimuenchen.de> <001301ca169a$0b78a0f0$6402a8c0@SECK2000> Message-ID: <000801ca16a6$16be8f90$2b83548d@gwi.unimuenchen.de> Lieber Matthias, lieber Herr Gasperlin, Vielen Dank für diese avancierten Lösungen und Erläuterungen. Sollte ich jetzt den Schritt zu tuscript wagen? Ich sehe jedenfalls, dass die Gemeinde mich rituell auf die höheren Weihen vorbereiten will. Herzliche Grüße Martin Hellmann -------------- nächster Teil -------------- Ein Dateianhang mit HTML-Daten wurde abgetrennt... URL: From f.seck at t-online.de Thu Aug 6 19:18:42 2009 From: f.seck at t-online.de (F.Seck) Date: Thu, 6 Aug 2009 19:18:42 +0200 Subject: [Tustep-Liste] Kopiere-Austauschtabelle References: <000e01ca168a$19870f20$2b83548d@gwi.unimuenchen.de> <001201ca16a4$628a9f60$279fde20$@de> Message-ID: <000f01ca16b9$f370d7a0$6402a8c0@SECK2000> Liebe Herren Hellmann, Osthof und Gasperlin, ich hatte natürlich erwartet, daß auch Lösungen in der Makrosprache angeboten würden. Herrn Gasperlins Lösung ist sehr lehrreich; (auf sie wäre ich bestimmt nicht gekommen); Herrn Osthofs hat den Vorzug der Kürze; man wird sie vorziehen, wenn es auf die Erhaltung der ursprünglichen Reihenfolge nicht ankommt. Wenn doch einmal - wie es ja bei Herrn Hellmann prompt war und natürlich auch bei mir schon vorgekommen ist - dieselbe Suchzeichenfolge mit verschiedenen Austauschzeichenfolgen auftritt, wird die Bearbeitung durch die alphabetische Sortierung erleichtert. Natürlich kann man sich auch eine weitergehende Lösung ausdenken, die auf den genannten Fehler hinweist. In einer Kommandoumgebung müssen die Makros (....) jedenfalls durch $$= * (o.dgl.) #MAKRO,* ..... *EOF **= $ eingeschlossen werden, damit sie erst nach den vorangehenden Kommandos ausgeführt werden. Mit besten Grüßen rundum Friedrich Seck -------------------------------------- Dr. Friedrich Seck 72076 Tübingen, Erlenweg 18 Tel: (0 70 71) 96 49 40 Fax-Nummer auf Anfrage ----- Original Message ----- From: "Oliver Gasperlin" To: ; Sent: Thursday, August 06, 2009 4:44 PM Subject: Re: [Tustep-Liste] Kopiere-Austauschtabelle Diskussionsforum Tustep-Liste Weitere Informationen: www.itug.de ------------------------------------------------------------ Lieber Herr Hellmann, hier noch eine TUSCRIPT-Lösung, die ohne Sortieren auskommt und den kleinen Vorteil hat, dass Ihre Parameter-Karten in der Reihenfolge der Ausgangsdatei stehen bleiben. #makro $$ MODE TUSCRIPT SET a = FILE ("parameter_1"), b=* LOOP/99999 SET zeilen = SIZE (a) IF (zeilen.eq.0) EXIT SET a = REMOVE (a, 1, auswahl) SET b = COLLECT (b, auswahl) ENDLOOP FILE/ERASE "parameter_2" = b *eof 1. Die Daten aus der Datei mit der "parameter_1" werden in die Variable a gelesen; die Sternvariable b wird definiert. 2. In der Schleife wird ein Satz (eine Teilzeichenfolge) nach dem (der) anderen a) aus der Variable a entfernt (REMOVE) und in die Variable auswahl geschrieben sowie b) aus der Variable auswahl in die Variable b geschrieben, wobei geprüft wird, ob dieser Satz in der Variable b schon vorhanden ist, in welch letzterem Fall er nicht hineingeschrieben wird (COLLECT). 3. Schließlich wird die Variable b in die Datei "tabelle_2" geschrieben. (Die ersten beiden Zeilen im Loop sind nur dazu da, die Schleife zu beenden, sobald in der Variable a keine Teilzeichenfolgen mehr übrig sind.) Beste Grüße Oliver Gasperlin ------------------------------------------------------------ Tustep-Liste at itug.de https://lists.uni-wuerzburg.de/mailman/listinfo/tustep-liste From matthias.osthof at t-online.de Thu Aug 6 22:29:00 2009 From: matthias.osthof at t-online.de (Matthias Osthof) Date: Thu, 6 Aug 2009 22:29:00 +0200 Subject: [Tustep-Liste] Kopiere-Austauschtabelle In-Reply-To: <000f01ca16b9$f370d7a0$6402a8c0@SECK2000> References: <000e01ca168a$19870f20$2b83548d@gwi.unimuenchen.de><001201ca16a4$628a9f60$279fde20$@de> <000f01ca16b9$f370d7a0$6402a8c0@SECK2000> Message-ID: <5CD027975D5B40C9AAF147B182E0B3C3@LENOVOOS> Lieber Herr Seck, lieber Martin, > Natürlich kann man sich auch eine weitergehende Lösung ausdenken, > die auf den genannten Fehler hinweist. Die Tabelle enthält nach dem Sortieren und Eliminieren von Mehrfacheintragungen noch Einträge der Art: xx |aaa|bbb| xx |aaa|falsch| Der LOOP isoliert bei jedem Eintrag in der Liste die Suchzeichenfolge mit EXTRACT() und vergleicht sie mit der in x_alt gespeicherten des vorangehenden Eintrags. Wenn beide identisch sind, gibt er den Parameter in einer (in dieser Form spartanischen) Meldung aus. Man könnte das Ganze benutzerfreundlicher gestalten, darauf habe ich der Übersichtlichkeit halber verzichtet. SET xx = FILE ("params") SET xx = ALPHA_SORT (xx) SET xx = REDUCE (xx) SET x_alt = "" BUILD S_TABLE trenner = ".|." LOOP lp = xx SET x_neu = EXTRACT (lp, 12, trenner) IF (x_alt.EQ.x_neu) THEN + @@@@@@@@ {lp} ENDIF SET x_alt = x_neu ENDLOOP FILE/ERASE/PROGRAM "params" = xx Einen schönen Abend wünscht 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 F.Seck Gesendet: Donnerstag, 6. August 2009 19:19 An: tustep-liste at itug.de Betreff: Re: [Tustep-Liste] Kopiere-Austauschtabelle Diskussionsforum Tustep-Liste Weitere Informationen: www.itug.de ------------------------------------------------------------ Liebe Herren Hellmann, Osthof und Gasperlin, ich hatte natürlich erwartet, daß auch Lösungen in der Makrosprache angeboten würden. Herrn Gasperlins Lösung ist sehr lehrreich; (auf sie wäre ich bestimmt nicht gekommen); Herrn Osthofs hat den Vorzug der Kürze; man wird sie vorziehen, wenn es auf die Erhaltung der ursprünglichen Reihenfolge nicht ankommt. Wenn doch einmal - wie es ja bei Herrn Hellmann prompt war und natürlich auch bei mir schon vorgekommen ist - dieselbe Suchzeichenfolge mit verschiedenen Austauschzeichenfolgen auftritt, wird die Bearbeitung durch die alphabetische Sortierung erleichtert. Natürlich kann man sich auch eine weitergehende Lösung ausdenken, die auf den genannten Fehler hinweist. In einer Kommandoumgebung müssen die Makros (....) jedenfalls durch $$= * (o.dgl.) #MAKRO,* ..... *EOF **= $ eingeschlossen werden, damit sie erst nach den vorangehenden Kommandos ausgeführt werden. Mit besten Grüßen rundum Friedrich Seck -------------------------------------- Dr. Friedrich Seck 72076 Tübingen, Erlenweg 18 Tel: (0 70 71) 96 49 40 Fax-Nummer auf Anfrage ----- Original Message ----- From: "Oliver Gasperlin" To: ; Sent: Thursday, August 06, 2009 4:44 PM Subject: Re: [Tustep-Liste] Kopiere-Austauschtabelle Diskussionsforum Tustep-Liste Weitere Informationen: www.itug.de ------------------------------------------------------------ Lieber Herr Hellmann, hier noch eine TUSCRIPT-Lösung, die ohne Sortieren auskommt und den kleinen Vorteil hat, dass Ihre Parameter-Karten in der Reihenfolge der Ausgangsdatei stehen bleiben. #makro $$ MODE TUSCRIPT SET a = FILE ("parameter_1"), b=* LOOP/99999 SET zeilen = SIZE (a) IF (zeilen.eq.0) EXIT SET a = REMOVE (a, 1, auswahl) SET b = COLLECT (b, auswahl) ENDLOOP FILE/ERASE "parameter_2" = b *eof 1. Die Daten aus der Datei mit der "parameter_1" werden in die Variable a gelesen; die Sternvariable b wird definiert. 2. In der Schleife wird ein Satz (eine Teilzeichenfolge) nach dem (der) anderen a) aus der Variable a entfernt (REMOVE) und in die Variable auswahl geschrieben sowie b) aus der Variable auswahl in die Variable b geschrieben, wobei geprüft wird, ob dieser Satz in der Variable b schon vorhanden ist, in welch letzterem Fall er nicht hineingeschrieben wird (COLLECT). 3. Schließlich wird die Variable b in die Datei "tabelle_2" geschrieben. (Die ersten beiden Zeilen im Loop sind nur dazu da, die Schleife zu beenden, sobald in der Variable a keine Teilzeichenfolgen mehr übrig sind.) Beste Grüße Oliver Gasperlin ------------------------------------------------------------ Tustep-Liste at itug.de https://lists.uni-wuerzburg.de/mailman/listinfo/tustep-liste ------------------------------------------------------------ Tustep-Liste at itug.de https://lists.uni-wuerzburg.de/mailman/listinfo/tustep-liste From trauth at uni-trier.de Sat Aug 8 18:49:18 2009 From: trauth at uni-trier.de (Michael Trauth) Date: Sat, 08 Aug 2009 18:49:18 +0200 Subject: [Tustep-Liste] Kopiere-Austauschtabelle In-Reply-To: <001201ca16a4$628a9f60$279fde20$@de> References: <000e01ca168a$19870f20$2b83548d@gwi.unimuenchen.de>, <001201ca16a4$628a9f60$279fde20$@de> Message-ID: <4A7DC8AE.31503.5797139@trauth.uni-trier.de> Lieber Oliver, von Deinem Vorschlag war ich ganz entzückt, weil mir das COLLECT als hier verwendbare (und vielleicht sogar nötige bzw. erwünschte) Funktion nicht präsent war: > $$ MODE TUSCRIPT > SET a = FILE ("parameter_1"), b=* > LOOP/99999 > SET zeilen = SIZE (a) > IF (zeilen.eq.0) EXIT > SET a = REMOVE (a, 1, auswahl) > SET b = COLLECT (b, auswahl) > ENDLOOP > FILE/ERASE "parameter_2" = b Du hast bloß nicht daran gedacht, daß das COLLECT das REMOVE schon selbst besorgt. Deine ohnehin schon kurze 9-Zeilen-Lösung läßt sich deshalb noch einmal um drei weitere Zeilen eindampfen auf: $$ MODE TUSCRIPT SET a = FILE ("quelle"), b = * LOOP tmp = a SET b = COLLECT (b, tmp) END LOOP FILE/ERASE "ziel" = b Das scheint mir im übrigen eine weitere schlagende Werbung für Tuscript zu sein, vor allem wenn man sich vergegenwärtigt, welche Klimmzüge mit parametergesteuerten Prozeduren nötig wären, um dieselbe Leistung zu realisieren. Viele Grüße reihum von Michael Trauth --------------------------------------------------------------- Dr. Michael Trauth e-mail: trauth at uni-trier.de Rechenzentrum office: Tel. 0651-201-3413 der Universitaet Fax 0651-201-3921 Universitaetsring secretary: Tel. 0651-201-3417 D-54286 Trier --------------------------------------------------------------- From f.seck at t-online.de Sat Aug 8 23:45:05 2009 From: f.seck at t-online.de (F.Seck) Date: Sat, 8 Aug 2009 23:45:05 +0200 Subject: [Tustep-Liste] Kopiere-Austauschtabelle References: <000e01ca168a$19870f20$2b83548d@gwi.unimuenchen.de><001201ca16a4$628a9f60$279fde20$@de><000f01ca16b9$f370d7a0$6402a8c0@SECK2000> <5CD027975D5B40C9AAF147B182E0B3C3@LENOVOOS> Message-ID: <004201ca1871$7eae6590$6402a8c0@SECK2000> Liebe Listenleser, besonders Herren Hellmann, Osthof, Gasperlin und nun auch Trauth, weil ich die von mir (e-mail vom 6.8. 19:15) als möglich angedeutete Erweiterung wirklich brauchte, habe ich eine konventionelle Lösung hingeschrieben, die ich Ihnen nicht vorenthalten möchte. Sie ersetzt das Register-Aufbereite mit einem einzigen Parameter durch ein Kopiere mit 27 Parametern, leistet natürlich auch mehr. Zunächst das kleine Programm (das man sich natürlich über den Windows-Zwischenspeicher leicht in eine TUSTEP-Datei holen kann): #SVORBEREITE,qq,-STD-,-,+,*,,- ssl 200 *eof #SORTIERE,-STD-,-STD-,1+200'0,+,1+200 #KOPIERE,-STD-,zz,+,*,,- 0 w n j 2 3 4 5 spr 1 11 21 13 12 21 9 8 8 ist | Trennzeichen? spr 2 8 8 25 23 8 0 8 31 ganze Parameter übereinstimmend? spr 3 8 8 35 33 8 51 8 51 auch Groß/Kleinschreibung? spr 5 8 8 55 53 8 3 8 3 Abweichung in Austauchzeichenfolge? ws+ 1 ws1 pos 1 11 ta+ 1 -|- mld 1 :@@@@@@@@ Trennzeichen ist nicht |; bitte unten in Parameter: mld 1 :@@@@@@@@ av 2 statt | das benutzte Trennzeichen einsetzen!: wss 1 ws1 vgl 2 0 vtz 2 2 mld 2 |@@@@ Parameter mit vorangehendem identisch, daher gelöscht:| xv 3 |<*|<-01| vgl 3 0 vtz 3 3 mld 3 |@@@@@@@@ Parameter bis auf Groß-/Kleinschreibung mit mld 3 |@@@@@@@@ vorangehendem identisch, bitte einen löschen!| Vorausgesetzt, "|" ist Trennzeichen: av 5 :|: ev 5 = av 5 vgl 5 0 vtz 5 5 mld 5 |@@@@@@@@ Vergleich mit vorangehendem Parameter:| mld 5 |@@@@@@@@ Suchzeichenfolge identisch, Austauschzf. verschieden;| mld 5 |@@@@@@@@ bitte in Quell- oder Zieldatei einen Parameter löschen.| *eof Die Leistung des alten Regiser-Aufbereite steckt hier im 2. Durchgang: Jeder Satz wird in den Merk-Vergleichtext gesteckt, dann der nächste mit ihm verglichen und, wenn er identisch ist, nicht ausgegeben, wohl aber gemeldet (es könnte ja für die Fehlersuche interessant sein zu erfahren, welche Sätze doppelt sind; wen das stört, der kann im Parameter spr 2 aus der 23 eine 0 machen). Ein nicht gar so kleiner Unterschied: Register-Aufbereite behandelt Groß- und Kleinbuchstaben gleich, Kopiere unterscheidet sie, d.h. die Parameter xx |g|GmbH| xx |g|GMBH| sind für #RA identisch, also wird nur der zuerst vorkommende ausgegeben; Kopiere unterscheidet sie und ermöglicht eine Auswahl nach nicht-zufälligen Kriterien. Natürlich wollen wir auf diese Fälle hingewiesen werden. Das geschieht im 3. Durchgang, wo wir mit xv Großbuchstaben für den Vergleich wie die entsprechenden Kleinbuchstaben behandeln, so daß nun doch wieder 2 identische Sätze hintereinander(zu)stehen (scheinen). Im 5. Durchgang schließlich werden nur die Suchzeichenfolgen aufeinanderfolgender Parameter verglichen; sind sie identisch, wie in folgendem Beispiel: xx |g|Gesellschaft mit beschränkter Haftung| xx |g|GmbH| dann liegt ein Fehler vor, denn ganz identische Parameter sind ja an dieser Stelle schon eliminiert. Um die Suchzeichenfolgen zu isolieren, muß das Trennzeichen bekannt sein, da es ja die Suchzeichenfolgen begrenzt. Hier wird, wie auch von Herrn Osthof, der senkrechte Strich angenommen. Ob das wirklich so ist, wird beim ersten Satz im 1. Durchgang geprüft. Man kann das alles auch in ein Kommandomakro stecken und Quelle, Ziel und Trennzeichen variabel machen. Auch für diese erweiterte Erweiterung ist natürlich eine Lösung in der Makrosprache denkbar und zu erwarten. In einer Anwendung zur Inkunabelkatalogisierung (INKA) habe ich die Kleinigkeit von 83788 TTT-Parametern, durchschnittliche Länge 71 Zeichen. An diesen habe ich Herr Osthofs erste Lösung ausprobiert: sie läuft schnell und tadellos. Mit der doppelten Menge ging es auch, mit den dreimal hintereinanderkopierten kam aber die Fehlermeldung "Daten zu umfangreich (>16 MB)". Das sollte ein Härtetest sein; in der Praxis werden 250.000 Parameter selten sein. Wenn doch, dann gibt es ja immer noch die Kommandos - siehe oben. Mit freundlichen Grüßen Friedrich Seck -------------------------------------- Dr. Friedrich Seck 72076 Tübingen, Erlenweg 18 Tel: (0 70 71) 96 49 40 Fax-Nummer auf Anfrage ----- Original Message ----- From: "Matthias Osthof" To: Sent: Thursday, August 06, 2009 10:29 PM Subject: Re: [Tustep-Liste] Kopiere-Austauschtabelle Diskussionsforum Tustep-Liste Weitere Informationen: www.itug.de ------------------------------------------------------------ Lieber Herr Seck, lieber Martin, > Natürlich kann man sich auch eine weitergehende Lösung ausdenken, > die auf den genannten Fehler hinweist. Die Tabelle enthält nach dem Sortieren und Eliminieren von Mehrfacheintragungen noch Einträge der Art: xx |aaa|bbb| xx |aaa|falsch| Der LOOP isoliert bei jedem Eintrag in der Liste die Suchzeichenfolge mit EXTRACT() und vergleicht sie mit der in x_alt gespeicherten des vorangehenden Eintrags. Wenn beide identisch sind, gibt er den Parameter in einer (in dieser Form spartanischen) Meldung aus. Man könnte das Ganze benutzerfreundlicher gestalten, darauf habe ich der Übersichtlichkeit halber verzichtet. SET xx = FILE ("params") SET xx = ALPHA_SORT (xx) SET xx = REDUCE (xx) SET x_alt = "" BUILD S_TABLE trenner = ".|." LOOP lp = xx SET x_neu = EXTRACT (lp, 12, trenner) IF (x_alt.EQ.x_neu) THEN + @@@@@@@@ {lp} ENDIF SET x_alt = x_neu ENDLOOP FILE/ERASE/PROGRAM "params" = xx Einen schönen Abend wünscht Matthias Osthof -------------- nächster Teil -------------- Ein Dateianhang mit HTML-Daten wurde abgetrennt... URL: From gasperlin at gasperlin.de Mon Aug 10 09:47:23 2009 From: gasperlin at gasperlin.de (Oliver Gasperlin) Date: Mon, 10 Aug 2009 09:47:23 +0200 Subject: [Tustep-Liste] Kopiere-Austauschtabelle In-Reply-To: <4A7DC8AE.31503.5797139@trauth.uni-trier.de> References: <000e01ca168a$19870f20$2b83548d@gwi.unimuenchen.de>, <001201ca16a4$628a9f60$279fde20$@de> <4A7DC8AE.31503.5797139@trauth.uni-trier.de> Message-ID: <000a01ca198e$cc765d00$65631700$@de> Lieber Michael, danke für den Hinweis. Derartige Loops verwende ich immer mal wieder, aber auf die Schnelle habe ich daran vorbei gedacht. Beste Grüße Oliver -----Ursprüngliche Nachricht----- Von: tustep-liste-bounces at lists.uni-wuerzburg.de [mailto:tustep-liste-bounces at lists.uni-wuerzburg.de] Im Auftrag von Michael Trauth Gesendet: Samstag, 8. August 2009 18:49 An: tustep-liste at itug.de Betreff: Re: [Tustep-Liste] Kopiere-Austauschtabelle Diskussionsforum Tustep-Liste Weitere Informationen: www.itug.de ------------------------------------------------------------ Lieber Oliver, von Deinem Vorschlag war ich ganz entzückt, weil mir das COLLECT als hier verwendbare (und vielleicht sogar nötige bzw. erwünschte) Funktion nicht präsent war: > $$ MODE TUSCRIPT > SET a = FILE ("parameter_1"), b=* > LOOP/99999 > SET zeilen = SIZE (a) > IF (zeilen.eq.0) EXIT > SET a = REMOVE (a, 1, auswahl) > SET b = COLLECT (b, auswahl) > ENDLOOP > FILE/ERASE "parameter_2" = b Du hast bloß nicht daran gedacht, daß das COLLECT das REMOVE schon selbst besorgt. Deine ohnehin schon kurze 9-Zeilen-Lösung läßt sich deshalb noch einmal um drei weitere Zeilen eindampfen auf: $$ MODE TUSCRIPT SET a = FILE ("quelle"), b = * LOOP tmp = a SET b = COLLECT (b, tmp) END LOOP FILE/ERASE "ziel" = b Das scheint mir im übrigen eine weitere schlagende Werbung für Tuscript zu sein, vor allem wenn man sich vergegenwärtigt, welche Klimmzüge mit parametergesteuerten Prozeduren nötig wären, um dieselbe Leistung zu realisieren. Viele Grüße reihum von Michael Trauth --------------------------------------------------------------- Dr. Michael Trauth e-mail: trauth at uni-trier.de Rechenzentrum office: Tel. 0651-201-3413 der Universitaet Fax 0651-201-3921 Universitaetsring secretary: Tel. 0651-201-3417 D-54286 Trier --------------------------------------------------------------- ------------------------------------------------------------ Tustep-Liste at itug.de https://lists.uni-wuerzburg.de/mailman/listinfo/tustep-liste From f.seck at t-online.de Mon Aug 10 10:01:45 2009 From: f.seck at t-online.de (F.Seck) Date: Mon, 10 Aug 2009 10:01:45 +0200 Subject: [Tustep-Liste] Kopiere-Austauschtabelle: Korrektur References: <000e01ca168a$19870f20$2b83548d@gwi.unimuenchen.de><001201ca16a4$628a9f60$279fde20$@de><000f01ca16b9$f370d7a0$6402a8c0@SECK2000> <5CD027975D5B40C9AAF147B182E0B3C3@LENOVOOS> Message-ID: <002201ca1990$cf3459a0$6402a8c0@SECK2000> Liebe Listenleser, meine gestrige mail enthielt einen Fehler, auf den mich dankenswerterweise Herr Trauth hingewiesen hat: statt #KOPIERE,-STD_,zz,+,*,,- muß es heißen #KOPIERE,-STD-,zz,+,+,*,,- Ich bedaure den Tippfehler! Mit besten Grüßen Friedrich Seck -------------------------------------- Dr. Friedrich Seck 72076 Tübingen, Erlenweg 18 Tel: (0 70 71) 96 49 40 Fax-Nummer auf Anfrage -------------- nächster Teil -------------- Ein Dateianhang mit HTML-Daten wurde abgetrennt... URL: From Barbara.Jockers at uni-wuerzburg.de Mon Aug 10 12:15:45 2009 From: Barbara.Jockers at uni-wuerzburg.de (Barbara Jockers) Date: Mon, 10 Aug 2009 12:15:45 +0200 Subject: [Tustep-Liste] Infos aus dem Text als Attribut Message-ID: <20090810121545.10171zmpkj6ssj0x@webmail.uni-wuerzburg.de> Liebe Listenleser und tuscript-Verständige, ich wollte gerade ein #ko für die folgende Aufgabe schreiben, als mir einfiel, daß eine tuscript-Lösung im Programm-Zusammenhang wahrscheinlich sinnvoller ist. Hierfür möchte ich mal wieder um Nachhilfe bitten. In Zeilen, die folgende Informationen enthalten,
  • Zahl Quellenangabe Kommentar
  • Zahl Quellenangabe Kommentar / Zahl Quellenangabe Kommentar / ...
    • (Kommentar kann auch fehlen) sollen -Tags eingefügt werden. Die Quellenangabe soll als Attribut gesetzt werden, und das -Tag beginnt jeweils vor der Zahl und endet nach der Zahl (Quellenangabe ist ja dann Attribut) oder nach dem Kommentar. "/" fällt dann weg. So soll es dann aussehen:
  • Zahl Kommentar
  • Zahl Kommentar Zahl ...
    • Ich möchte eine S_Table definieren, die die möglichen Quellenangaben enthält; dann mit Access auf die Quelldatei zugreifen und in die Zieldatei schreiben. Konkret weiß ich nicht wie ich die Quellenangabe aus dem Text gelöscht und ins Attribut "gloss" gesetzt bekomme und wie ich am besten " / " durch "     ersetzt bekomme (s.u.). Für Hilfe in dieser Sache wäre ich sehr dankbar. Viele Grüße in die Runde, Barbara Jockers ... BUILD S_TABLE quellen = * DATA |Quellenangabe 1| DATA |Quellenangabe 2| DATA |Quellenangabe 3| SET ha = "nicht offen" COMPILE ACCESS q: READ/STREAM/RECORDS "quelldat" sq.zq/uq, atag + text + etag, typ, stack MODIFY ACCESS q S_TABLE quellen ACCESS z: WRITE/ERASE/STREAM "zieldat" sz.zz/uz, atag + text + etag LOOP/999999 READ/NEXT/EXIT q IF (atag .EQ. "
  • ") THEN WRITE/NEXT z "" WRITE/BREAK z SET ha = "offen" Aber wie bekomme ich die Info aus der Quellenangabe ins Attribut? IF (text .CT. "/") THEN WRITE/NEXT z "" WRITE/BREAK z Aber "/" soll nicht mit in die Zieldatei geschrieben werden. Vielleicht muß man statt dessen eine Austauschtabelle verwenden und " / " durch "" austauschen? Kann man denn an dieser Stelle ein zweites Modify anbringen? ...? ENDIF ENDIF IF (etag .EQ. "
    • " AND ha .EQ. "offen") THEN WRITE/NEXT z "    " WRITE/BREAK z SET ha = "nicht offen" ENDIF IF (SOR) WRITE/BREAK z WRITE z ENDLOOP ENDACCESS/PRINT q ENDACCESS/PRINT z ENDCOMPILE RELEASE X_TABLE quellen From gasperlin at gasperlin.de Mon Aug 10 23:12:34 2009 From: gasperlin at gasperlin.de (gasperlin at gasperlin.de) Date: Mon, 10 Aug 2009 23:12:34 +0200 (CEST) Subject: [Tustep-Liste] Infos aus dem Text als Attribut In-Reply-To: <20090810121545.10171zmpkj6ssj0x@webmail.uni-wuerzburg.de> References: <20090810121545.10171zmpkj6ssj0x@webmail.uni-wuerzburg.de> Message-ID: <301607452.96950.1249938754280.JavaMail.open-xchange@oxltgw15.schlund.de> Liebe Frau Jockers, wenn die Daten so aussehen, wie Sie geschrieben haben, sollte folgendes Script tun, was Sie wollen. In der ersten Schleife wird eine Datenportion (
  • ...
    • ) gelesen und die Variable txt am Schrägstrich (falls vorhanden) in Teilzeichenfolgen aufgesplittet. In der geschachtelten Schleife wird aus jeder Teilzeichenfolge die Quellenangabe extrahiert und als Attribut in das Starttag eingesetzt. Starttag, Teilzeichenfolge und Endetag werden zusammengefügt (CONCAT) und die einzelnen Teilzeichenfolgen wiederum zusammengehängt (2. CONCAT). Die innere Schleife wird beendet, das Ergebnis in die Variable txt übertragen und in die Datei b rausgeschrieben. Dann greift wieder die erste Schleife und die nächste Datenportion wird geholt usw. Probieren Sie es aus. #makro $$! $$ MODE TUSCRIPT BUILD S_TABLE quellen = "~qu1~qu2~qu3~qu4~" BUILD X_TABLE quellxx = "~qu1~~qu2~~qu3~~qu4~~" SET ha = *, start = "", ende = "" ACCESS q: READ/STREAM "a" sn.zn/un, an/200 + txt + en/200, typ, offen ACCESS z: WRITE/ERASE/STREAM "b" sn.zn/un, an + txt + en LOOP/99999    READ/QUIET/EXIT q    IF (an.eq."
  • ") THEN       SET ha = SPLIT (txt, "~/~"), h2 = ""       LOOP eintrag = ha          SET quelle = STRINGS (eintrag, quellen)          SET eintrag = EXCHANGE (eintrag, quellxx), eintrag = SQUEEZE (eintrag)          SET start = SET_ATTRIBUTE (start, "gloss", quelle)          SET eintrag = CONCAT (start, eintrag, ende)          SET h2 = CONCAT (h2, eintrag)       ENDLOOP       SET txt = h2    ENDIF    WRITE/CLEAR z ENDLOOP ENDACCESS/PRINT q ENDACCESS/PRINT z *eof Mit besten Grüßen Oliver Gasperlin -------------- nächster Teil -------------- Ein Dateianhang mit HTML-Daten wurde abgetrennt... URL: From Barbara.Jockers at uni-wuerzburg.de Tue Aug 11 09:10:36 2009 From: Barbara.Jockers at uni-wuerzburg.de (Barbara Jockers) Date: Tue, 11 Aug 2009 09:10:36 +0200 Subject: [Tustep-Liste] Infos aus dem Text als Attribut In-Reply-To: <301607452.96950.1249938754280.JavaMail.open-xchange@oxltgw15.schlund.de> References: <20090810121545.10171zmpkj6ssj0x@webmail.uni-wuerzburg.de> <301607452.96950.1249938754280.JavaMail.open-xchange@oxltgw15.schlund.de> Message-ID: <20090811091036.122955t1xk756mp8@webmail.uni-wuerzburg.de> Lieber Herr Gasperlin, vielen Dank für Ihre Lösung, ich habe sie soeben nachvollzogen und ausprobiert. Funktioniert ausgezeichnet! Einen schönen Tag wünscht Ihre Barbara Jockers From Barbara.Jockers at uni-wuerzburg.de Tue Aug 11 13:20:59 2009 From: Barbara.Jockers at uni-wuerzburg.de (Barbara Jockers) Date: Tue, 11 Aug 2009 13:20:59 +0200 Subject: [Tustep-Liste] Infos aus dem Text als Attribut/ weitere Frage In-Reply-To: <20090810121545.10171zmpkj6ssj0x@webmail.uni-wuerzburg.de> References: <20090810121545.10171zmpkj6ssj0x@webmail.uni-wuerzburg.de> Message-ID: <20090811132059.326735hy8ffu4vtn@webmail.uni-wuerzburg.de> Liebe Listenleser, lieber Herr Gasperlin, eine Sache hatte ich doch übersehen, die mir jetzt beim Versuch mit einer größeren Datenmenge in die Quere gekommen ist: >
  • Zahl Quellenangabe Kommentar
    • >
  • Zahl Quellenangabe Kommentar / Zahl Quellenangabe Kommentar / ...
    • > (Kommentar kann auch fehlen) Der Kommentar kann ein weiteres Tag enthalten, das sieht dann so aus:
  • Zahl Quellenangabe Komm. Komm. mit Umschrift
  • Zahl Quellenangabe Komm. Komm. mit Umschrift / Zahl Quellenangabe Kommentar ohne Umschrift / ...
    • Das Ergebnis des Programms in der jetzigen von Herrn Gasperlin erstellten Form sieht so aus:
  • 41 Komm. Komm. m. Umschrift
    • So sollte es aussehen:
  • 41 Komm. Komm. m. Umschrift
    • Ich vermute, dadurch wird es etwas komplizierter. Könnten Sie mir bei der Lösung noch einmal behilflich sein? Vielen Dank im Voraus und freundliche Grüße, Barbara Jockers From gasperlin at gasperlin.de Tue Aug 11 22:35:31 2009 From: gasperlin at gasperlin.de (gasperlin at gasperlin.de) Date: Tue, 11 Aug 2009 22:35:31 +0200 (CEST) Subject: [Tustep-Liste] Infos aus dem Text als Attribut/ weitere Frage In-Reply-To: <20090811132059.326735hy8ffu4vtn@webmail.uni-wuerzburg.de> References: <20090810121545.10171zmpkj6ssj0x@webmail.uni-wuerzburg.de> <20090811132059.326735hy8ffu4vtn@webmail.uni-wuerzburg.de> Message-ID: <180833987.6511.1250022931101.JavaMail.open-xchange@oxltgw01.schlund.de> Liebe Frau Jockers, ich habe schon vermutet, dass die Daten ganz so einfach nicht aussehen können. Im vorliegenden Fall könnten Sie z. B. den Dateizugriff auf "Daten mit Anfangs- und Endekennungen" umstellen, diese definieren und so die "Textportionen" ändern, die bei jedem READ eingelesen werden, siehe unten. Mit der Option RECORDS beim Zugriff auf die Quelldaten geben Sie an, dass beim Einlesen im STREAM auch am Beginn jedes Datensatzes eine neue Textportion begonnen wird. Das funktioniert gut, so lange Listenelemente sich nicht über Datensatzgrenzen erstrecken. Sollte dies der Fall sein, können Sie die Option RECORDS auch weglassen, sollten dann aber unter Umständen weitere Kennungen in die SEARCHTABLES aufnehmen, an denen beim READ unterteilt werden kann. Ausprobieren. #makro $$! $$ MODE TUSCRIPT BUILD S_TABLE quellen = "~qu1~qu2~qu3~qu4~" BUILD X_TABLE quellxx = "~qu1~~qu2~~qu3~~qu4~~" BUILD S_TABLE aken = "~<
  • >~" BUILD S_TABLE eken = "~<
    • >~" SET ha = *, start = "", ende = "" ACCESS q: READ/STREAM/RECORDS "a" sn.zn/un, an/aken + txt + en/eken, typ ACCESS z: WRITE/ERASE/STREAM "b" sn.zn/un, an + txt + en LOOP/99999    READ/EXIT q    IF (an.eq."
  • ") THEN       SET ha = SPLIT (txt, "~~< From Barbara.Jockers at uni-wuerzburg.de Wed Aug 12 10:11:13 2009 From: Barbara.Jockers at uni-wuerzburg.de (Barbara Jockers) Date: Wed, 12 Aug 2009 10:11:13 +0200 Subject: [Tustep-Liste] Infos aus dem Text als Attribut/ weitere Frage In-Reply-To: <180833987.6511.1250022931101.JavaMail.open-xchange@oxltgw01.schlund.de> References: <20090810121545.10171zmpkj6ssj0x@webmail.uni-wuerzburg.de> <20090811132059.326735hy8ffu4vtn@webmail.uni-wuerzburg.de> <180833987.6511.1250022931101.JavaMail.open-xchange@oxltgw01.schlund.de> Message-ID: <20090812101113.900215rh5ge7tq8x@webmail.uni-wuerzburg.de> Lieber Herr Gasperlin, die Variablen aken und eken tun ihren Dienst, und jetzt funktioniert alles nach Wunsch. Herzlichen Dank und viele Grüße, Barbara Jockers From kol at steinheim-institut.org Mon Aug 17 11:20:56 2009 From: kol at steinheim-institut.org (Thomas Kollatz) Date: Mon, 17 Aug 2009 11:20:56 +0200 Subject: [Tustep-Liste] =?iso-8859-1?q?zusammenfassen_von_Registereintr=E4?= =?iso-8859-1?q?gen?= Message-ID: Liebe Liste, es ist wahrscheinlich ganz einfach, aber sei's aus Übermüdung oder aufgrund einer Überdosis Urlaub sehe ich wahrscheinlich den Wald vor lauter Bäumen nicht. Wie mache ich mit TUSCRIPT aus SET zeilealt="3'5'6'7'9'10" möglichst elegant SET zeileneu="3'5-7'9-10" In meiner Prozedur sitzt ein bug, ausserdem ist sie umständlich, weiss jemand wies geht? Ich bastle noch ein wenig an meiner loop-Lösung, aber bin für frische Ideen sehr dankbar. herzliche Grüße THOMAS KOLLATZ drs Thomas Kollatz - wissenschaftlicher Mitarbeiter / research assistant * Salomon Ludwig Steinheim-Institut fuer deutsch-juedische Geschichte D-47057 Duisburg Geibelstr. 41 T 0203-370071 F 0203-373380 * Geschichtszentrum euregio rhein-maas-nord T 02151-5137430 Route Homepage Epigraphische Datenbank From schaelkle at zdv.uni-tuebingen.de Mon Aug 17 12:10:05 2009 From: schaelkle at zdv.uni-tuebingen.de (=?iso-8859-1?Q?Kuno_Sch=E4lkle?=) Date: Mon, 17 Aug 2009 12:10:05 +0200 Subject: [Tustep-Liste] =?iso-8859-1?q?zusammenfassen_von_Registereintr=E4?= =?iso-8859-1?q?gen?= In-Reply-To: References: Message-ID: Lieber Herr Kollatz, >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> es ist wahrscheinlich ganz einfach, <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< vermutlich eher nicht. >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> Wie mache ich mit TUSCRIPT aus SET zeilealt="3'5'6'7'9'10" möglichst elegant SET zeileneu="3'5-7'9-10" <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< mir ist jedenfalls nichts einfacheres eingefallen: $$ MODE TUSCRIPT SET werte = "3'5'6'7'9'10" SET hilf = APPEND (werte, "999999999") SET rest = REMOVE (hilf, 1, wert_1) SET wert_2 = wert_1, wert_3 = wert_2 + 1 SET werte = "" LOOP wert = rest IF (wert.NE.wert_3) THEN SET werte = APPEND (werte, wert_1) IF (wert_1.NE.wert_2) SET werte = CONCAT (werte, "-", wert_2) SET wert_1 = wert ENDIF SET wert_2 = wert, wert_3 = wert_2 + 1 ENDLOOP Vielleicht gehts aber doch einfacher. Ich bin gespannt auf andere Lösungen. Herzliche Grüße Kuno Schaelkle From paul.sappler at uni-tuebingen.de Mon Aug 17 13:27:48 2009 From: paul.sappler at uni-tuebingen.de (Paul Sappler) Date: Mon, 17 Aug 2009 13:27:48 +0200 Subject: [Tustep-Liste] =?iso-8859-1?q?zusammenfassen_von_Registereintr=E4?= =?iso-8859-1?q?gen?= In-Reply-To: References: Message-ID: <200908171327.48672.paul.sappler@uni-tuebingen.de> #ma,* $$ mode tuscript set alt = "1'3'4'5'7'9'10'12" set wv = -100, neu = "" loop j = alt set wv = wv+1 if (#j .eq. #wv) then set neu = append (neu,"'.",j) else set neu = append (neu,"'",j) endif set wv = j endloop set neu = exchange (neu,";'.<>>/<>;'.;;'.;-;") print alt print neu *eof Auch nicht wirklich eleganter. Freundliche Grüße, P.S. From trauth at uni-trier.de Mon Aug 17 16:08:04 2009 From: trauth at uni-trier.de (Michael Trauth) Date: Mon, 17 Aug 2009 16:08:04 +0200 Subject: [Tustep-Liste] =?iso-8859-1?q?zusammenfassen_von_Registereintr=E4?= =?iso-8859-1?q?gen?= In-Reply-To: References: , Message-ID: <4A898064.25229.1B298EA8@trauth.uni-trier.de> Lieber Herr Schälkle, lieber Thomas, > Vielleicht gehts aber doch einfacher. > Ich bin gespannt auf andere Lösungen. Andere Lösungen? Was könnte denn damit wohl gemeint sein? ;o)) - Auf die Gefahr hin, gesteinigt zu werden, schleppe ich hier einen kopiere-Elfzeiler an: #ko,q,z,,+,* zf+ 1 :>/'>/: al 1 :<>>/'<>>/: liv 1 i1 i2 rr 1 if (i1.EQ.(i2-1)) goto 22; xxb 1 :<>>/'<>>/:>=01{}<=01: erz 1 1 xxb 2 :<>>/'<>>/:>=01-<=01:-<>>/'<>>/:-<=01: erz 2 1 spn 3 8 sp2 11 11 xxx |{}|'| *eof Der produziert, wenn man ihm als Eingabe : 3'5'6'7'9'10 vorsetzt, als Ergebnis das gewünschte "3'5-7'9-10". Auch nicht *besonders* elegant, aber vielleicht hat ja noch jemand anders eine zündende Idee? Viele Grüße reihum von Michael Trauth --------------------------------------------------------------- Dr. Michael Trauth e-mail: trauth at uni-trier.de Rechenzentrum office: Tel. 0651-201-3413 der Universitaet Fax 0651-201-3921 Universitaetsring secretary: Tel. 0651-201-3417 D-54286 Trier --------------------------------------------------------------- From trauth at uni-trier.de Mon Aug 17 20:15:57 2009 From: trauth at uni-trier.de (Michael Trauth) Date: Mon, 17 Aug 2009 20:15:57 +0200 Subject: [Tustep-Liste] =?iso-8859-1?q?zusammenfassen_von_Registereintr=E4?= =?iso-8859-1?q?gen?= In-Reply-To: <200908171327.48672.paul.sappler@uni-tuebingen.de> References: , <200908171327.48672.paul.sappler@uni-tuebingen.de> Message-ID: <4A89BA7D.3351.1C0C7F65@trauth.uni-trier.de> Liebe Mitstreiter, bei Herrn Schälkles Lösung mußte ich erst ein bißchen überlegen, bis ich sie verstanden hatte. Unter dem (gar nicht unwichtigen) Aspekt der spontanen Verständlichkeit hat mir persönlich Herrn Sapplers Lösung am besten gefallen. Man kann diese noch ein kleines bißchen schlanker gestalten mit <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< $$ MODE TUSCRIPT SET alt = "1'3'4'5'7'9'10'12" SET inc = -999, neu = "" LOOP tmp = alt IF (tmp .eq. inc) then SET neu = APPEND (neu, "-", tmp) ELSE SET neu = APPEND (neu, "'", tmp) END IF SET inc = tmp+1 END LOOP SET neu = EXCHANGE (neu, ":>/<|-<>>/>|->/::") PRINT neu >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> oder gar, wenn's auf die Zahl der Zeilen ankommt, verdichten zu: <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< $$ MODE TUSCRIPT SET alt = "1'3'4'5'7'9'10'12" SET inc = -999, neu = "" LOOP tmp = alt IF (tmp .EQ. inc) SET neu = APPEND (neu, "-", tmp) IF (tmp .NE. inc) SET neu = APPEND (neu, "'", tmp) SET inc = tmp+1 END LOOP SET neu = EXCHANGE (neu, ":>/<|-<>>/>|->/::") PRINT neu >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> Weiß jemand von den Diskussionsteilnehmern, warum diese letztere Form der beiden IFs : IF (tmp .EQ. inc) SET neu = APPEND (... : IF (tmp .NE. inc) SET neu = APPEND (... aus programmiertechnischer Sicht verpönt ist und man besser : IF ... THEN : ELSE : END IF notieren sollte? Sind es nur Performance-Gründe (zwei IFs kosten mehr Zeit als ein IF...THEN...ELSE), oder spricht irgendeine prinzipielle Erwägung dagegen? Einen entspannten Feierabend wünscht reihum Michael Trauth --------------------------------------------------------------- Dr. Michael Trauth e-mail: trauth at uni-trier.de Rechenzentrum office: Tel. 0651-201-3413 der Universitaet Fax 0651-201-3921 Universitaetsring secretary: Tel. 0651-201-3417 D-54286 Trier --------------------------------------------------------------- From schaelkle at zdv.uni-tuebingen.de Tue Aug 18 11:36:16 2009 From: schaelkle at zdv.uni-tuebingen.de (=?iso-8859-1?Q?Kuno_Sch=E4lkle?=) Date: Tue, 18 Aug 2009 11:36:16 +0200 Subject: [Tustep-Liste] =?iso-8859-1?q?zusammenfassen_von_Registereintr=E4?= =?iso-8859-1?q?gen?= In-Reply-To: <200908171327.48672.paul.sappler@uni-tuebingen.de> References: <200908171327.48672.paul.sappler@uni-tuebingen.de> Message-ID: Lieber Herr Sappler, vielen Dank für Ihre Lösung. Sie ist, wie Herr Trauth schon geschrieben hat, leichter zu verstehen als meine Lösung. Beide Lösungen waren mir aber zu lang. Deshalb habe ich jetzt folgende Lösung gefunden: SET alt = "3'5'6'7'9'10" SET neu = COMBINE (alt) Herzliche Gruesse Ihr Kuno Schaelkle From kol at steinheim-institut.org Tue Aug 18 11:48:46 2009 From: kol at steinheim-institut.org (Thomas Kollatz) Date: Tue, 18 Aug 2009 11:48:46 +0200 Subject: [Tustep-Liste] =?iso-8859-1?q?zusammenfassen_von_Registereintr=E4?= =?iso-8859-1?q?gen?= In-Reply-To: References: <200908171327.48672.paul.sappler@uni-tuebingen.de> Message-ID: Liebe Herren Sappler, Schälkle und Trauth ganz herzlichen Dank für die kreativen und eleganten Vorschläge, die mir geholfen haben dem Fehler in meiner viel, viel umständlicheren Lösung auf die Spur zu kommen. Combine besticht durch seine Kürze :-) > SET alt = "3'5'6'7'9'10" > SET neu = COMBINE (alt) und TUSTEP besticht mal wieder durch die Geschwindigkeit des supports: gleich drei funktionierende Lösungsvorschläge innerhalb von acht und noch dazu eine Programmerweiterung nach 24 Stunden - das ist schon grossartig. Herzliche Grüße reihum THOMAS KOLLATZ drs Thomas Kollatz - wissenschaftlicher Mitarbeiter / research assistant * Salomon Ludwig Steinheim-Institut fuer deutsch-juedische Geschichte D-47057 Duisburg Geibelstr. 41 T 0203-370071 F 0203-373380 * Geschichtszentrum euregio rhein-maas-nord T 02151-5137430 Route Homepage Epigraphische Datenbank From wieland.carls at gmx.de Tue Aug 18 13:42:09 2009 From: wieland.carls at gmx.de (Wieland Carls) Date: Tue, 18 Aug 2009 13:42:09 +0200 Subject: [Tustep-Liste] =?iso-8859-1?q?zusammenfassen_von_Registereintr=E4?= =?iso-8859-1?q?gen?= In-Reply-To: References: <200908171327.48672.paul.sappler@uni-tuebingen.de> Message-ID: <20090818114209.138860@gmx.net> Leipzig, 18. August 2009 Liebe TUSTEP-AnwenderInnen, dem Lob von Thomas Kollatz möchte ich mich anschließen. Die Lösungen sind so gut, dass ich sie gleich ausprobieren musste. Einzig die letzte Variante von Herrn Schälkle (mit der offensichtlich neuen Funktion COMBINE) lief bei mir nicht. Ich vermute, dass ich hierfür eine neuere TUSTEP-Version (aktuell bei mir "Blaubeuren 2009") benötige. Für diesen Fall ist alles in Ordnung. Falls COMBINE auch meiner Version bekannt sein sollte, werde ich versuchen den Fehler zu finden. Viele herzliche Grüße aus Leipzig Wieland Carls p.s. Verbesserungen wecken - bei mir zumindest - immer noch mehr Wünsche: Um die Möglichkeiten der aufsteigenden Referenzen aus #ra mit einem Kommandomakro nachbauen zu können, bräuchte es für die nur um eins größere Zahl auch noch die Möglichkeit, diese entweder doch auszugeben oder dies mit 'f.' kenntlich zu machen. Also neben 1-3'6'8-9'... 1-3'6'8f.'... Meine Möglichkeiten beim Umgang mit der Makrosprache reichen hierfür leider nicht aus. -- ______________________________________________________ ______________________________________________________ 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-Str. 1 04107 Leipzig Tel.: (0341) 7 11 53 27 Fax: (0341) 7 11 53 44 carls at saw-leipzig.de www.magdeburger-recht.eu ______________________________________________________ ______________________________________________________ GRATIS für alle GMX-Mitglieder: Die maxdome Movie-FLAT! Jetzt freischalten unter http://portal.gmx.net/de/go/maxdome01 From schaelkle at zdv.uni-tuebingen.de Tue Aug 18 13:53:13 2009 From: schaelkle at zdv.uni-tuebingen.de (=?iso-8859-1?Q?Kuno_Sch=E4lkle?=) Date: Tue, 18 Aug 2009 13:53:13 +0200 Subject: [Tustep-Liste] =?iso-8859-1?q?zusammenfassen_von_Registereintr=E4?= =?iso-8859-1?q?gen?= In-Reply-To: <20090818114209.138860@gmx.net> References: <200908171327.48672.paul.sappler@uni-tuebingen.de> <20090818114209.138860@gmx.net> Message-ID: Lieber Herr Carls, >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ... Einzig die letzte Variante von Herrn Schälkle (mit der offensichtlich neuen Funktion COMBINE) lief bei mir nicht. ... <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< die Funktion COMBINE wurde erst heute vormittag programmiert. Herzliche Grüße Kuno Schaelkle From kol at steinheim-institut.org Tue Aug 18 13:58:52 2009 From: kol at steinheim-institut.org (Thomas Kollatz) Date: Tue, 18 Aug 2009 13:58:52 +0200 Subject: [Tustep-Liste] =?iso-8859-1?q?zusammenfassen_von_Registereintr=E4?= =?iso-8859-1?q?gen?= In-Reply-To: <20090818114209.138860@gmx.net> References: <200908171327.48672.paul.sappler@uni-tuebingen.de> <20090818114209.138860@gmx.net> Message-ID: <430F5F52-03A4-4892-9E38-2D5F9CCF39A9@steinheim-institut.org> Liebe Wieland, > p.s. Verbesserungen wecken - bei mir zumindest - immer noch mehr > Wünsche: Um die Möglichkeiten der aufsteigenden Referenzen aus #ra > mit einem Kommandomakro nachbauen zu können, bräuchte es für die > nur um eins größere Zahl auch noch die Möglichkeit, diese entweder > doch auszugeben oder dies mit 'f.' kenntlich zu machen. Also neben > 1-3'6'8-9'... 1-3'6'8f.'... Meine Möglichkeiten beim Umgang mit der > Makrosprache reichen hierfür leider nicht aus. auf Grundlage des Scripts von Herrn Schälkle lässt sich mit wenig Aufwand dein Wunsch erfüllen aus 3'5'6'7'9'10'12'13'14" wird 3'5-7'9f'12-14 Herzliche Grüße THOMAS $$ MODE TUSCRIPT -TRACE ALL SET wertealt = "3'5'6'7'9'10'12'13'14" SET hilf = APPEND (wertealt, "999999999") SET rest = REMOVE (hilf, 1, wert_1) SET wert_2 = wert_1, wert_3 = wert_2 + 1 SET werteneu = "" LOOP wert = rest IF (wert.NE.wert_3) THEN SET werteneu = APPEND (werteneu, wert_1) IF (wert_1.NE.wert_2) THEN SET testauff=wert_1+1 IF (testauff.EQ.wert_2) THEN SET werteneu = CONCAT (werteneu, "f") ELSE SET werteneu = CONCAT (werteneu, "-", wert_2) ENDIF ENDIF SET wert_1 = wert ENDIF SET wert_2 = wert, wert_3 = wert_2 + 1 ENDLOOP PRINT wertealt PRINT werteneu drs Thomas Kollatz - wissenschaftlicher Mitarbeiter / research assistant * Salomon Ludwig Steinheim-Institut fuer deutsch-juedische Geschichte D-47057 Duisburg Geibelstr. 41 T 0203-370071 F 0203-373380 * Geschichtszentrum euregio rhein-maas-nord T 02151-5137430 Route Homepage Epigraphische Datenbank From schaelkle at zdv.uni-tuebingen.de Tue Aug 18 14:32:39 2009 From: schaelkle at zdv.uni-tuebingen.de (=?iso-8859-1?Q?Kuno_Sch=E4lkle?=) Date: Tue, 18 Aug 2009 14:32:39 +0200 Subject: [Tustep-Liste] =?iso-8859-1?q?zusammenfassen_von_Registereintr=E4?= =?iso-8859-1?q?gen?= In-Reply-To: <430F5F52-03A4-4892-9E38-2D5F9CCF39A9@steinheim-institut.org> References: <200908171327.48672.paul.sappler@uni-tuebingen.de><20090818114209.138860@gmx.net> <430F5F52-03A4-4892-9E38-2D5F9CCF39A9@steinheim-institut.org> Message-ID: <4B72AE1D48114596B3652C55AAF95A83@Bimbo> Sehr geehrter Herr Carls, > p.s. Verbesserungen wecken - bei mir zumindest - immer noch mehr Wünsche: Um die Möglichkeiten der aufsteigenden Referenzen aus > #ra mit einem Kommandomakro nachbauen zu können, bräuchte es für die nur um eins größere Zahl auch noch die Möglichkeit, diese > entweder doch auszugeben oder dies mit 'f.' kenntlich zu machen. Also neben 1-3'6'8-9'... 1-3'6'8f.'... Meine Möglichkeiten beim > Umgang mit der Makrosprache reichen hierfür leider nicht aus. Mit der Funktion COMBINE koennte man das Problem so loesen: SET werte_alt = "3'5'6'7'9'10" SET werte_neu = COMBINE (werte_alt) LOOP num, wert = werte_neu SET anz = SPLIT (wert, ":-:", wert_1, wert_2) SET wert_f = wert_1 + 1 IF (wert_2.NE.wert_f) CYCLE SET wert = CONCAT (wert_1, "f") SET werte_neu = REPLACE (werte_neu, num, wert) ENDLOOP Herzliche Grüße Kuno Schaelkle From gasperlin at gasperlin.de Tue Aug 18 14:46:38 2009 From: gasperlin at gasperlin.de (Oliver Gasperlin) Date: Tue, 18 Aug 2009 14:46:38 +0200 Subject: [Tustep-Liste] =?iso-8859-1?q?zusammenfassen_von_Registereintr=E4?= =?iso-8859-1?q?gen?= In-Reply-To: References: <200908171327.48672.paul.sappler@uni-tuebingen.de> Message-ID: <000701ca2001$ede22f40$c9a68dc0$@de> Liebe Listenteilnehmer, nach COMBINE ist es ja sinnlos, aber für die an Tustep-Problemlösungen per se Interessierten hier noch meine Lösung: $$ MODE TUSCRIPT SET neu = REPEAT ("'", 20) SET alt="3'5'6'7'8'9'10'13'14" LOOP schleife = alt SET neu = REPLACE (neu, schleife, schleife) ENDLOOP SET neu = EXCHANGE (neu, "~<|<>'~~<>'>|~~><2<>'~ ~"), neu = EXCHANGE (neu, "~~'<|<>>/ ~~'<|>/~~") SET neu = SQUEEZE (neu), neu = EXCHANGE (neu, "~<>'~-~ ~'~") Gruß Oliver Gasperlin From wieland.carls at gmx.de Tue Aug 18 17:59:37 2009 From: wieland.carls at gmx.de (Wieland Carls) Date: Tue, 18 Aug 2009 17:59:37 +0200 Subject: [Tustep-Liste] =?iso-8859-1?q?zusammenfassen_von_Registereintr=E4?= =?iso-8859-1?q?gen?= In-Reply-To: <4B72AE1D48114596B3652C55AAF95A83@Bimbo> References: <200908171327.48672.paul.sappler@uni-tuebingen.de><20090818114209.138860@gmx.net> <430F5F52-03A4-4892-9E38-2D5F9CCF39A9@steinheim-institut.org> <4B72AE1D48114596B3652C55AAF95A83@Bimbo> Message-ID: <20090818155937.29400@gmx.net> Leipzig, 18. August 2009 Lieber Herr Schälkle! Lieber Thomas! Vielen Dank für die schnelle Anpassung der jeweiligen Lösungsvorschläge und nochmals herzliche Grüße Wieland Carls -------- Original-Nachricht -------- > Datum: Tue, 18 Aug 2009 14:32:39 +0200 > Von: "Kuno Schälkle" > An: tustep-liste at itug.de > Betreff: Re: [Tustep-Liste] zusammenfassen von Registereinträgen > Diskussionsforum Tustep-Liste > Weitere Informationen: www.itug.de > ------------------------------------------------------------ > > Sehr geehrter Herr Carls, > > > p.s. Verbesserungen wecken - bei mir zumindest - immer noch mehr > Wünsche: Um die Möglichkeiten der aufsteigenden Referenzen aus > > #ra mit einem Kommandomakro nachbauen zu können, bräuchte es für die > nur um eins größere Zahl auch noch die Möglichkeit, diese > > entweder doch auszugeben oder dies mit 'f.' kenntlich zu machen. Also > neben 1-3'6'8-9'... 1-3'6'8f.'... Meine Möglichkeiten beim > > Umgang mit der Makrosprache reichen hierfür leider nicht aus. > > Mit der Funktion COMBINE koennte > man das Problem so loesen: > > SET werte_alt = "3'5'6'7'9'10" > SET werte_neu = COMBINE (werte_alt) > LOOP num, wert = werte_neu > SET anz = SPLIT (wert, ":-:", wert_1, wert_2) > SET wert_f = wert_1 + 1 > IF (wert_2.NE.wert_f) CYCLE > SET wert = CONCAT (wert_1, "f") > SET werte_neu = REPLACE (werte_neu, num, wert) > ENDLOOP > > > Herzliche Grüße > Kuno Schaelkle > > ------------------------------------------------------------ > Tustep-Liste at itug.de > https://lists.uni-wuerzburg.de/mailman/listinfo/tustep-liste -- ______________________________________________________ ______________________________________________________ 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-Str. 1 04107 Leipzig Tel.: (0341) 7 11 53 27 Fax: (0341) 7 11 53 44 carls at saw-leipzig.de www.magdeburger-recht.eu ______________________________________________________ ______________________________________________________ Neu: GMX Doppel-FLAT mit Internet-Flatrate + Telefon-Flatrate für nur 19,99 Euro/mtl.!* http://portal.gmx.net/de/go/dsl02 From pesch at sunrise.ch Sun Aug 23 23:46:33 2009 From: pesch at sunrise.ch (Peter Schreiner) Date: Sun, 23 Aug 2009 23:46:33 +0200 Subject: [Tustep-Liste] Editor-Fragen Message-ID: <4A91B8B9.5000108@indoger.uzh.ch> Liebe Liste, viele der Entwicklungen und Erweiterungen von TUSTEP sind ja nun leider nie in meiner Anwenderpraxis gelandet. Bevor ich mich bei der Informationssuche verirre, hier meine zwei Fragen: 1. Ich will in einer grossen Datei irgendwo in der Mitte Text nachtragen. Damit auch wirklich Platz ist, habe ich den nachfolgenden Text umnummeriert auf 100.1 etc. In der Fusszeile des Editors steht "Enter Scroll Insert". Wenn ich eingebe "e,1.155", weil ich dort weiterschreiben will, erscheint "Bitte Daten eingeben, nächste Satznummer 1.156." (Das ist alles wie immer). In der Fusszeile steht "Linefeed Scroll Insert" (lauter Angaben, auf die ich nie Einfluss genommen habe). Ich schreibe also munter drauf los, aber wehe, wenn ich über den letzten Buchstaben der letzten Bildschirmzeile hinausschreibe; dann springt das Programm aus dem Eingabemodus heraus und nur der erste Satz (die erste Zeile) meines Bildschirms (was immerhin einer Schreibmaschinenseite entspricht, die ich gerade abgeschrieben habe) wird in die Datei eingetragen. (Wenn ich _vor_ Erreichen des letzten Anschlags F7 oder F8 drücke, wird alles in die Datei eingetragen. Meistens denke ich inzwischen daran, aber jetzt ist mir viermal eine Seite verloren gegangen (an verschiedenen Tagen, in verschiedenen Dateien -- also an der Datei liegts nicht). Ein Abhilfe schaffender Hinweis wäre willkommen. 2. Der Bereich, in den ich im Eintragemodus schreiben kann, füllt nur die linke Hälfte des Bildschirms aus; da mir die Vorlage, die ich in die Datei einarbeiten möchte, als PDF-Datei vorliegt, wäre es natürlich ideal, wenn ich das Editorfenster (welches den ganzen Bildschirm füllt) auf die Grösse des Schreibbereichs reduzieren könnte, damit ich auf der anderen Bildschirmhälfte das Fenster mit der PDF-Datei sehen kann (und diese also nicht ausdrucken muss). Geht das? Wie? Vielen Dank im voraus für jedwede Hilfestellung! Hoffentlich waren es keine allzu dummen Fragen ... Peter Schreiner -- Chemin des Boracles 94 – CH-1008 Jouxtens-Mézery – Tel. +41-21-635.0365 Abteilung für Indologie Rämistr. 68 CH-8001 Zürich Tel. (Assist.) +41-44-634.2057, 2428 From trauth at uni-trier.de Mon Aug 24 13:03:42 2009 From: trauth at uni-trier.de (Michael Trauth) Date: Mon, 24 Aug 2009 13:03:42 +0200 Subject: [Tustep-Liste] Editor-Fragen In-Reply-To: <4A91B8B9.5000108@indoger.uzh.ch> References: <4A91B8B9.5000108@indoger.uzh.ch> Message-ID: <4A928FAE.16518.13114BD1@trauth.uni-trier.de> Lieber Herr Schreiner, Ihr Problem habe ich anhand Ihrer Beschreibung nachvollziehen können, und ich bin sicher, daß der Programmautor sich umgehend drum kümmern wird. Mit einer Anfrage per Mail bei diesem und der Installation des jüngsten Updates dürfte die Chose dann auch umgehend vom Tisch sein. Daß das Problem in den vergangenen anderthalb Jahren noch niemandem aufgefallen ist, ist freilich darauf zurückzuführen, daß die Funktion 'e,#n' gar nicht mehr benötigt wird. Ohne Sie von Ihren alten Gewohnheiten abbringen zu wollen, sei darauf hingewiesen, daß Sie einfach an der Stelle im Editor, an der Sie einfügen wollen, mit SPLIT einen neuen Satz beginnen und darin weiterschreiben können usw. Anders als früher kann der Editor jetzt den neuen Text nach oben über den Bildschirmrand hinausschreiben (ohne daß wie früher ein ENTER zum 'Abschicken' benötigt würde) - man kann also einfach am unteren Rand des Editorfensters weiterschreiben, nur gelegentlich von einem allenfalls erforderlichen Umnu- merieren unterbrochen. Am einfachsten für diese neue Art des Eingebens ist der Modus SPLIT (diesen und noch ein paar andere Modusoptionen können Sie im Editor nach STRG+Y auswählen). Sie sind wie viele andere Hardcorer noch den Modus ENTER gewöhnt (bei dem die RETURN-Taste die Änderungen auf dem Bildschirm wegschickt) - aber probieren Sie doch einmal versuchsweise den Modus SPLIT, bei dem der Editor wie in fast allen Windowsprogrammen bei RETURN einen neuen Datensatz (= Absatz) anlegt. Das 'Wegschicken' von Änderungen wird dann nicht mehr mit RETURN, sondern mit ENTER oder STRG+E oder mit SHIFT+ RETURN besorgt. Es dauert ein, zwei Tage, bis man sich umgewöhnt hat, aber dann kann man mit dem neuen Modus - nach meiner Einschätzung - wesentlich schneller und komfortabler arbeiten als mit dem alten. > 2. Der Bereich, in den ich im Eintragemodus schreiben > kann, füllt nur die linke Hälfte des Bildschirms aus; > da mir die Vorlage, die ich in die Datei einarbeiten > möchte, als PDF-Datei vorliegt, wäre es natürlich ideal, > wenn ich das Editorfenster (welches den ganzen Bildschirm > füllt) auf die Grösse des Schreibbereichs reduzieren > könnte, damit ich auf der anderen Bildschirmhälfte das > Fenster mit der PDF-Datei sehen kann (und diese also > nicht ausdrucken muss). Geht das? Wie? Mein erster Tip dazu hat nichts mit Tustep zu tun: 1. Sie wollen Text aus einem PDF-Dokument nach Tustep bringen? Dann können Sie beispielsweise im Acrobat Pro mit der Funktion -> 'Speichern unter' den gesamten Text des PDFs einfach als Word- oder RTF-Datei abspeichern. Alternativ können Sie auch, wenn Sie nur einzelne Passagen kopieren wollen, im Acrobat Pro einfach mit Markieren und Copy and Paste arbeiten (und die Zwischenablage dann mit 'ez' im Tustep-Editor einfügen). Das geht schnell und einfach und erspart Ihnen womöglich viel manuelle Arbeit. 2. Sie wollen das Tustep-Editorfenster schmäler machen, um den Editor *und* das PDF nebeneinander auf dem Bildschirm zu halten zu können? Am einfachsten geht das natürlich mit *zwei* Monitoren oder einem 16:9- Widescreen-Monitor, aber auch auf einem normalen 4:3-Monitor werden Sie's ohne weiteres hinbekommen: Als erstes reduzieren Sie die Zeilenlänge im Editor mit STRG+L auf die von Ihnen gewünschte Fensterbreite (weniger als 80 Zeichen geht dabei nicht, aber das wollen Sie ja auch nicht, wenn ich Sie richtig verstanden habe). Nach Ihrer Beschreibung zu urteilen, reicht das schon. Aber wenn Ihnen das Fenster jetzt immer noch zu breit ist, können Sie durch Click auf die linke obere Ecke, dort -> Eigenschaften -> Schriftart (Lucida Console) -> Größe, das Fenster noch einmal ver- kleinern. Probieren Sie es einfach einmal aus und sagen mir dann, wie gut (oder wie schlecht) das Resultat ausfiel. Viele Grüße reihum von Michael Trauth --------------------------------------------------------------- Dr. Michael Trauth e-mail: trauth at uni-trier.de Rechenzentrum office: Tel. 0651-201-3413 der Universitaet Fax 0651-201-3921 Universitaetsring secretary: Tel. 0651-201-3417 D-54286 Trier --------------------------------------------------------------- From neumann_thomas at hotmail.com Mon Aug 24 14:09:27 2009 From: neumann_thomas at hotmail.com (Thomas Neumann) Date: Mon, 24 Aug 2009 14:09:27 +0200 Subject: [Tustep-Liste] =?iso-8859-1?q?W=F6rter/Abs=E4tze_im_PDF_farbig_hi?= =?iso-8859-1?q?nterlegen?= Message-ID: Hallo Tustep-Liste, ich stehe auf der Leitung: Wie hinterlege ich Text wort- oder absatzweise im PDF mit einer Farbmarkierung, um den Text hervorzuheben? Danke. LG Thomas Neumann ############################### ## ## Dr. Thomas Neumann ## Hertfelderstrasse 12 ## D-73733 Esslingen ## ## mail ## neumann_thomas at hotmail.com ## neumann_thomas at t-online.de ## ############################### _________________________________________________________________ http://redirect.gimas.net/?n=M0908axFotos_IM2 Zeig Deine Urlaubsfotos - einfach und schnell! -------------- nächster Teil -------------- Ein Dateianhang mit HTML-Daten wurde abgetrennt... URL: From wolfram.schneider-lastin at phil.uzh.ch Mon Aug 24 15:05:54 2009 From: wolfram.schneider-lastin at phil.uzh.ch (Wolfram Schneider-Lastin) Date: Mon, 24 Aug 2009 15:05:54 +0200 Subject: [Tustep-Liste] =?iso-8859-1?q?W=F6rter/Abs=E4tze_im_PDF_farbig_hi?= =?iso-8859-1?q?nterlegen?= In-Reply-To: References: Message-ID: <4A929032.2080801@phil.uzh.ch> Ein Dateianhang mit HTML-Daten wurde abgetrennt... URL: