Diverse Anweisungen

Anweisungen für Protokollierung

Datei öffnen

sFilename= PATH + "PROTOKOLLE\prot3334.txt"

!#1 steht für die erste Datei die man öffnen will

!#2 steht für die zweite Datei man öffnen will

OPEN sFileName FOR OUTPUT AS #1 !Neuanlage d. Datei

Oder

OPEN sFileName FOR APPEND AS #1 !Ranhängen an Datei

#1 … steht für die erste Datei, wird eine zweite Datei im Programmcode parallel benötigt, dann #2, #3, usw. verwenden!

In Datei schreiben

a = 7 : b=8; c = 9 : d = 10

PRINT #1, "lstExtP = {4,5,6}"

PRINT #1, a,b !Tabulator als Trennzeichen

PRINT #1, c;d !Kein Trennzeichen zwischen Variablen

PRINT #1, "var = " +CHR$(34)+STR$(a)+CHR$(34) !var = "7"

Datei schließen

CLOSE #1

Abbruch-Anweisung in Prozedur oder Funktion

Um aus einer Prozedur oder Funktion auszusteigen ohne im Programmcode weiterzulaufen kann die Anweisung EXIT verwendet werden.

Beispiel:

PROCEDURE Check2Profiles

DEFINE PARAMETER INPUT pArrLstProfile

IF pArrLstProfil.NUM <> 2 THEN

EXIT !Es müssen zwei Profile in der Liste enthalten sein

ENDIF

END

Aufruf von Fremdprogrammen

Vorsicht: Der Befehl ist veraltet und sollte nicht mehr verwendet werden.

Mit dem Befehl WINSTART können beliebige Dateien aus dem Makrointerpreter geöffnet werden. Der Befehl WINSTART kann in jedem Makro verwendet werden. Die Dateien werden mit dem zum Dateityp verknüpften Programm geöffnet.

Attribute:

• WAIT - Der Makrointerpreter wartet bis die Datei wieder geschlossen wird, und läuft erst dann weiter.

• SILENT - Datei wird im Hintergrund geöffnet, sofern das jeweilige Programm dies erlaubt.

• VALUE() - Dateien können hiermit variabel aufgerufen werden.

• VERB PLAY - Zum Abspielen von Musik und Videos.

• VERB PRINT - Datei wird geöffnet und sofort gedruckt.

Beispiel:

• WINSTART "notepad.exe" !Startet den Editor von Windows

• WINSTART "C:\temp\Sheet.xls" !Öffnet das Excel-Sheet vom angegebenen Pfad, sofern Excel installiert ist.

• sFileName = PATH + "Dokumente\notes.txt"

WINSTART WAIT VALUE(sFileName) !Startet das File "notes.txt" im Ordner Dokumente der Parametersystemversion mit VALUE und wartet bis Daten eingegeben wurden und das File wieder geschlossen wird.

• WINSTART VERB PLAY "C:\video.mpg" !Startet ein Video

Dynamisches Ausführen von Prozeduren

In Situationen wo sich ein Prozedurname für diverse Aufgaben erst durch den Programm-code ergibt, kann man via dem VALUE()-Aufruf solche Prozeduren aufrufen sofern diese auf einer String-Variablen gespeichert sind.

Beispiel:

!Für Bautiefe 76mm und 84mm kann das Profil geladen werden!

nDepth = 76 !oder 84

sProcName = "LoadOutLineForProfile" + STR$(nDepth)

lstProfil = {}

RUN VALUE(sProcName)(lstProfil)

PROCEDURE LoadOutlineForProfile76

DEFINE PARAMETER INPUTOUTPUT plstP

/* Code */

END

PROCEDURE LoadOutlineForProfile84

DEFINE PARAMETER INPUTOUTPUT plstP

/* Code */

END