---

Hallo zusammen,

Ich suche nach einer Möglichkeit, per Makro einen mehrzeiligen Text, der vorher zusammengesetzt wird, an einer vom Anwender bestimmten Position abzusetzen.

Dabei ergeben sich 2 Probleme:
1) wie bekomme ich den Zeilenumbruch im Text hin?

2) wie kann ich den Text absetzen, ohne dabei dann im Text-Befehl
in einer Schleife zu hängen, die den Text immer wieder anbietet?

Wenn ich den Punkt zum absetzen vorher einlese und dann den Text-Befehl mit allen Parametern und anschließendem END aufrufe, geht es, aber dann fehlt mir der Rahmen, der die Größe des Textes beim absetzen anzeigt.
in der anderen Version müßte ich das Makro abbrechen.

Beispiel:

LET Mein_Text ('blabla ' + (STR Meine_Zahl) + ' blabla ' + Umbruch + 'blabla')
TEXT Mein_Text

(Makro muß unterbrochen werden)
oder

READ PNT 'Position' Absetzpunkt
TEXT Mein_Text Absetzpunkt END

(Die größe des Textes ist nicht zu erkennen)

Wäre echt toll wenn mir jemand bei einem der Probleme (oder gar bei beiden ?) helfen könnte!

Gruß
Andreas

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Andreas:

zu 1.

TEXT "Zeile 1" "Zeile 2" "Zeile 3" P

Variante:

DEFINE Meintext
  "Zeile 1"
  "Zeile 2"
  "Zeile 3"
END_DEFINE

TEXT Meintext P

zu 2.

TEXT Meintext
READ PNT "Text plazieren:" LAST_FEEDBACK P
{TEXT ...} P

Du startest also den TEXT-Befehl, gibst aber den Punkt noch nicht an.
Beim READ wird das Feedback des aktuellen ME10-Befehls angezeigt.
Anschließend mußt Du den Text nur noch plazieren, weil ja die READ-Funktion den TEXT-Befehl nicht beendet, sondern nur unterbricht.

Alles klar?

Hannes

PS1: ich hoff, ich hab Die Probleme richtig verstanden
PS2: quick, dirty & untested, wie immer

------------------
oba geh.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

hallo,

DEFINE ANDREAS_TEXT
  LOCAL TXT
  LOCAL M
  LOCAL N
  LOCAL P0
  CREATE_TAB 5 1 "abtxt"
  LET N (1)
  LOOP
  READ "Andreas-Text eingeben" DEFAULT "" TXT
  EXIT_IF (txt = "")
  LET N (N+1)
  END_LOOP
  LET M (0)
  TEXT
  LOOP
  READ_LTAB "abtxt" m 1
  LET M (M+1)
  EXIT_IF (M=N)
  END_LOOP
  READ LAST_PROMPT LAST_FEEDBACK P0
  P0 END
  DELETE_LTAB "abtxt"  END
END_DEFINE

Vielleicht gibt es noch eine elegantere Lösung. Schade nur, dass hier im System die Einrückungen nicht schön funktionieren.

------------------
Grüsse aus dem Schwarzwald 
www.Andreas-Baumgartner.de

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Ihr beiden und danke für die schnelle Hilfe!

Hab das Problem mit einer Mischung aus Euren beiden Antworten gelöst und es funktioniert prima!

Unities kommen gleich!

Gruß
Andreas

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP