EVA Edit Part Tilde

{###################################################################}
{### Datei eva_edit_part_tilde.mac                               ###}
{###                                                             ###}
{### ME10 hat manchmal die unangenehme Eigenschaft,              ###}
{### Teilenamen zu "vergessen".                                  ###}
{### Deshalb sucht das Makro nach dem Vorkommen des Teilenamens  ###}
{### im Klartext und ermittelt den eindeutigen Teilenamen.       ###}
{### Mit diesem kann das Teil dann trotzdem zum aktiven Teil     ###}
{### werden.                                                     ###}
{###                                                             ###}
{### Erstelldatum:     22.12.2003                                ###}
{### (c) 2003-2008 by E.V.A. Robert Hoffmann                     ###}
{###                                                             ###}
{### Änderungsdatum:                                             ###}
{### Art der Änderung:                                           ###}
{###                                                             ###}
{### Änderungsdatum:                                             ###}
{### Art der Änderung:                                           ###}
{###                                                             ###}
{### Änderungsdatum:                                             ###}
{### Art der Änderung:                                           ###}
{###                                                             ###}
{### Änderungsdatum:                                             ###}
{### Art der Änderung:                                           ###}
{###                                                             ###}
{###                                                             ###}
{### Zeit:                                                       ###}
{### Erforderliche Makros:                                       ###}
{###                                                             ###}
{###  Verzeichnis c:\temp\ muss existieren oder Makro anpassen   ###}
{###  Groß- und Kleinschreibung wird unterschieden !!            ###}
{###                                                             ###}
{###                                                             ###}
{###################################################################}

DEFINE eva_edit_part_tilde
  PARAMETER gesuchtes_teil
  LOCAL Zeile
  LOCAL SF
  LOCAL Teil
  LOCAL Dummy
  LOCAL A
  LOCAL SF

  LET Dummy 0
  LET SF ''
  PARTS_LIST TREE DEL_OLD 'c:\temp\parts.tmp'
  OPEN_INFILE 2 'c:\temp\parts.tmp'
    LOOP
      READ_FILE 2 Zeile
      LET Teil Zeile
      EXIT_IF ( (Dummy=1) OR ((Teil)='END-OF-FILE'))
      LET A (POS Teil '[')
      IF (A=1)
        LET Teil (SUBSTR Teil 4 ((LEN Teil) - A))
        LET Teil (TRIM Teil)
        LET A (POS Teil '[')
      END_IF
      IF (A>1)
        LET A (POS Teil '~')
        LET Teil (SUBSTR Teil A ((LEN Teil) - A))
        LET A (POS Teil ']')
        LET Teil (SUBSTR Teil 1 (A-1))
        LET A (POS Zeile gesuchtes_teil)
        IF (A>0)
          LET SF Teil
          LET Dummy 1
        END_IF
      END_IF
    END_LOOP
  CLOSE_FILE 2
  IF ((Dummy)=1)
    EDIT_PART ('"'+SF+'"')
  ELSE
    BEEP
    DISPLAY_NO_WAIT 'Kein Teil'+gesuchtes_teil+' gefunden.'
    Wait 2
    DISPLAY_NO_WAIT ''
  END_IF
  END
END_DEFINE

Wenn die Makros nützlich sind, ist eine Spende natürlich gern gesehen :-)