---

Hallo,
ich möchte per Makro aus einer geladenen Datei mittels dem Teilenamen einen neuen Dateinamen erzeugen und die Datei auch gleich speichern.
Leider hat unsere Datenbank die Teilenamen mit mehreren | (Pipe) ergänzt.
Diese Pipes sind aber beim Speichern illegale Zeichen und mein Makro bricht ab.
Hat jemand ne Idee wie man automatisch die Pipes in _ (Underline) ersetzen kann?

Bislang sieht das Makro so aus und funktioniert auch bei Teilenamen ohne Pipe. Danke.

DEFINE neuspeichern
  LOCAL cur_name
  LOCAL teilname
  LOCAL dateiname
  INQ_ENV 7
  LET cur_name (INQ 301)
  LET teilname (cur_name)
  LET dateiname ('d:\transfer\' + teilname + '.mi')
  store mi all dateiname
  delete all confirm
END_DEFINE

------------------
Jochen

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

---

Hallo Jochen,
auf meiner Seite existiert ein Makro
eva_text_ersetzen.

Dieses erwartet drei Parameter:
den Ursprungstext,
den Text, der ersetzt werden soll und
den Text, der den Text ersetzt.
In der GLOBALEN Variablen eva_text
wird der geänderte Text zurückgegeben.

DEFINE neuspeichern
LOCAL cur_name
LOCAL dateiname
  EDIT_PART TOP { oberste Ebene }
  INQ_ENV 7
  LET cur_name (INQ 301)
  eva_text_ersetzen cur_name '|' '_'
  LET dateiname ('d:\transfer\' + eva_text + '.mi')
  TRAP_ERROR
    store mi all del_old dateiname
  IF (NOT CHECK_ERROR)
    delete all confirm
  END_IF
END_DEFINE

Makro ist hier direkt eingetippt,
sollte aber funktionieren

Gruß Robert

------------------
Homepage: www.me10-makros.de

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

---

Hallo Robert,
vielen Dank für die schnelle Hilfe.
Funktioniert super.

------------------
Jochen

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