XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Kommandozeilenparameter auslesen
PRFellow - Vorlage
Autor: Thomas Hölzer
Diese Prozedur dient zu Testzwecken im Entwicklungsprozeß,
um Anzahl, Numerierung und Inhalt der beim Start
übergebenen Parameter zu prüfen.
Bitte beachten:
Bei einem zur EXE gelinkten Programm verschieben sich in
Profan die Parameter; s. Onlinehilfe

Proc CheckParams

    Declare i%,paramstr$

    WhileNot Gt(i%,%ParCount)

        Let paramstr$=paramstr$,
        Par$(;Str$(i%);),: ,Par$(i%),
        Inc i%

    Wend

    MessageBox(paramstr$,Parametertest,64)

EndProc

Beispiel
Cls
CheckParams

' Kommandozeilenparameter auslesen (PRFellow - Présentation)
' Autor 2007 Thomas Bois, 2018 To XProfan11.2a p.specht
' "Prozedur dient trop Testzwecken im Entwicklungsprozeß,
' um Anzahl, Numerierung et le contenu qui beim Programmstart
' übergebenen paramètre trop vérifier.
' s'il te plaît tenir compte de: chez einem zur EXE gelinkten Programme
' Déplacer sich dans XProfan qui paramètre-index um -1 !"

Proc CheckParams

    Déclarer i%,paramstr$

    Whileloop 0,%ParCount-1

        paramstr$=paramstr$+"Par$("+Str$(i%)+") = "+Par$(i%)+"\n"

    Endwhile

    MessageBox(paramstr$,"Parametertest", 64)

ENDPROC

Main:
Cls
CheckParams
Fin