|
Makro Programmierung : Fehlerbehandlung
baumgartner am 29.10.2001 um 21:45 Uhr (0)
2 Macros die unter UX, wie unter NT das Problem beheben sollten. DEFINE COM_GESTARTET 0 END_DEFINE DEFINE COM_START ON_ERROR "DISPLAY Datei nicht vorhanden CANCEL" OPEN_INFILE 9 D:ComClient1.exe CLOSE_FILE 9 ON_ERROR IF (COM_GESTARTET = 1) DISPLAY "*** ComClient laeuft bereits ****) ELSE LET COM_GESTARTET (1) RUN "Start D:ComClient1.exe ME10" END_IF END_DEFINE Meinen Schrott von gestern musste ich nochmals überarbeiten. Die Variable "ERROR" darf man ...
|
| In das Form Makro Programmierung wechseln |
|
Makro Programmierung : me10 soll warten
baumgartner am 24.06.2002 um 18:36 Uhr (0)
hallo, local err let err (winexec "C:.... .exe") if (err = ERROR) display "WinDOOF-Programm wurde nicht gestartet" else ueberwachung (* nicht für Vorschlag 3 *) end_if 1. Das Makro ueberwachung könnte die Festplattenaktivitäten registrieren. Dein Win-Programm könnte doch ein "buisy" auf die Festplatte schreiben. Dein ME10 wertet diese Datei im Sekundenrhytmus aus und wartet bis das "buisy" weg ist. Nach 5 min erfolgloser Rückmeldung geht ME10 wieder seine eigenen Wege und meldet den entsprechenden Fe ...
|
| In das Form Makro Programmierung wechseln |
|
Makro Programmierung : Makro bei ME10
baumgartner am 12.03.2003 um 19:37 Uhr (0)
hallo, ungetestet, da ich jetzt weg muss DEFINE CATALOG_LADE LOCAL dateiname CATALOG SELECT FILE_NAME *.mi DEL_OLD catalog-datei.tmp OPEN_INFILE 1 catalog-datei.tmp LOOP READ_FILE 1 dateiname EXIT_IF (dateiname= END-OF-FILE ) IF (POS dateiname .mi ) (* ggf hier den Dateinamen so kürzen und bearbeiten, dass nur der tatsächliche Dateiname erscheint. Ist abhängig von deinen Katalogoptionen *) DELETE ALL CONFIRM (* ggf. ON_ERROR, ERROR_TRAP wäre ganz hilfreich * ...
|
| In das Form Makro Programmierung wechseln |
|
Makro Programmierung : Makro bei ME10
baumgartner am 13.03.2003 um 14:08 Uhr (0)
hallo, die kleine Ergänzung für Dich ... DEFINE CATALOG_LADE LOCAL dateiname CATALOG SELECT FILE_NAME *.mi DEL_OLD catalog-datei.tmp OPEN_INFILE 1 catalog-datei.tmp LOOP READ_FILE 1 dateiname EXIT_IF (dateiname= END-OF-FILE ) IF (POS dateiname .mi ) (* hiermit wird die ausgelesene Zeile auf den Dateinamen gekuerzt *) LET DATEINAME (SUBSTR DATEINAME 1 ((POS DATEINAME .mi )+2) ) DELETE ALL CONFIRM (* ggf. ON_ERROR, ERROR_TRAP wäre ganz hilfreich *) ...
|
| In das Form Makro Programmierung wechseln |
|
Makro Programmierung : profiplus befehle
baumgartner am 06.05.2003 um 12:59 Uhr (0)
hallo, habe gerade kein Profiplus vorliegen aber... lass einen trace mitlaufen. z.B. TRACE datei.tmp ME10-Befehle ausführen TRACE OFF, dann die Datei datei.tmp anschauen. Wenn das Makro nicht verschlüsselt ist, dann ist der Quellcode sichtbar. Wenn es nicht geht, dann kannst Du mittels LIST_MACRO_NAMES SCREEN den Makronamen suchen. Der müsste dann mit einem Stern gekennzeichnet sein. Wenn Du dann auch nicht weiter kommst, versuche das aktuelle Menü mit SAVE_MENU usw ... zu sichern. Es gibt viele Mögli ...
|
| In das Form Makro Programmierung wechseln |
|
Makro Programmierung : Ergänzung bei STORE
baumgartner am 11.09.2003 um 18:03 Uhr (0)
hallo, ich würde dazu das Originalmenü von ME10 überschreiben. Also ein Makro schreiben das das Menü Datei ersetzt. Und dort wo der ME10-interne Befehl STORE steht, schreibst Du halt MY_STORE hin. Und das Makro MY_STORE kannst Du nach Deinen Wünschen gestalten. Dann noch in all Deinen Makros suchst Du mit dem Editor nach STORE und entscheidest dann halt inidviduell ob der Befehl ersetzt wird oder nicht. Innerhalb von ME10 ist diese Suche relativ einfach mit EDIT_MACRO ALL, dann z.B. in Classic-Version $ ...
|
| In das Form Makro Programmierung wechseln |
|
Makro Programmierung : Makroaufruf innnerhalb eines Makros?
baumgartner am 24.10.2003 um 18:15 Uhr (0)
hallo, so geht das einfach nicht, da der INPUT-Befehl nict sofort ausgeführt/beendet wird. So etwas würde nur klappen wenn ein verschlüsseltes Makro mittels LOAD_MACRO geladen würde und anschliessendem Start ausgeführt würde. Aber in dieser Konstellation geht das nicht. Und wie wäre es mit .... DEFINE LINIENZUG ... OPEN_INFILE 1 datendatei POLYGON LOOP READ_FILE 1 zeile EXIT_IF (zeile = END-OF-FILE ) zeile END_LOOP CLOSE_FILE 1 END_DEFINE und in der Datendatei würden dann nur noch die reinen ...
|
| In das Form Makro Programmierung wechseln |
|
Makro Programmierung : Makroschutz aufheben
baumgartner am 10.08.2004 um 15:27 Uhr (0)
Zitat: Original erstellt von Dittrich: ... Vermutlich ist er gerade im Urlaub, sonst hätte er schon was gepostet... hallo @ Dittrich: danke für die Blumen @Annesue: melde Dich bei Bedarf (ich beisse nicht) wäre ja schön wenn ich Urlaub hätte. Bin aber zur Zeit total in der Arbeit versunken. Aber vielleicht darf ich demnächst zu einem Arbeitsurlaub an den Bodensee... Die Tipps von den Kollegen sind alle empfehlenswert und gut. Ich möchte allerdings noch eine Möglichkeit zur Suche nach geschützten ...
|
| In das Form Makro Programmierung wechseln |
|
Makro Programmierung : ANSI nach roman8
baumgartner am 04.08.2005 um 21:31 Uhr (0)
hallo, WIN benutzt ja ANSI, ME10 roman8 als Schriftsatz. Habe grosse Dateien, die ich aus einer WIN-Datei lesen muss, dann roman8 konvertiere. Mit meinem ME10-Makro dauert das ewig. Wer kennt ein Tool, mit dem man eine 80 MB grosse Datei sehr schnell konvertieren kann? ------------------ Grüsse aus dem Schwarzwald www.Andreas-Baumgartner.de
|
| In das Form Makro Programmierung wechseln |
|
Programmierung : CSV-Datei mit TAB-Zeichen
baumgartner am 02.12.2006 um 21:11 Uhr (0)
Zitat:Original erstellt von clausb:Du schreibst mit ME10 eine CSV-Datei mit dem Tabulatur als Trennzeichen. Wer soll denn die CSV-Datei konsumieren, welche Software ist denn der Empfaenger?ein Skript einer Datenbank wird meine Ergebnisse einlesen, verarbeiten und mir ergänzende Daten in einer neuen CSV-Datei zurückgeben. Mein Kunde hat nun mal das Format festgelegt. Da gibt es nicht viel zu rütteln.Habe mit "filetran" schon etwas experimentiert. Ist der erste Test doch immer das Schreiben von Daten und da ...
|
| In das Form Programmierung wechseln |
|
Programmierung : CSV-Datei mit TAB-Zeichen
baumgartner am 02.12.2006 um 14:42 Uhr (0)
hallo zusammen,muss mit ME10 eine CSV-Datei erstellen. Das Trennzeichen soll das TAB-Zeichen (CHR 9) sein. Klappt !!! Das Ergebnis kommt als CSV-Datei zurück und jetzt habe ich kein TAB-Zeichen mehr. Es sind lediglich einige Leerzeichen. Wenn ich die o.g. von ME10 erzeugte CSV-Datei mit den TAB-Zeichen wieder einlese, dann sehe ich nicht mal mehr die selbst erzeugten TAB-Zeichen.Ich könnte ja die erhaltenen Leerzeichen zählen, aber das ist mir zu unsicher.Wer weiss Rat ???------------------Grüsse aus dem S ...
|
| In das Form Programmierung wechseln |
|
Programmierung : CSV-Datei mit TAB-Zeichen
baumgartner am 04.12.2006 um 09:41 Uhr (0)
danke Dir Hannes, nur klappt es so nicht:Code:OPEN_OUTFILE 6 "tabtest.txt"WRITE_FILE 6 ("123" + CHR 9 + "456")CLOSE_FILE 6einverstanden, nur wenn ich genau diese Datei wieder einlese, dann ...Code:OPEN_INFILE 7 "tabtest.txt"READ_FILE 7 zeileIF (POS zeile (CHR 9) 0) display "hurra, TAB gefunden"END_IF... ja dann findet das Makro niemals einen TAB in der eingelesenen Datei.------------------Grüsse aus dem Schwarzwald www.Andreas-Baumgartner.de
|
| In das Form Programmierung wechseln |
