Command Line

[Poser]

Finde leider nichts im Forum dazu... die konnte man doch auch einfach abfragen oder?

[MVXA]

Klar kann man das. In PureBasic heißt der Befehl [c]ProgramParameter()
[/c]. Kleinen schönheits Fehler hat diese Funktion aber. Mit ihr kann man nicht wie in z.b. QBasic mit Command$ den gesamten Parameter erfragen sondern diese Prozedur spaltet die Parameter auf. Die Parameter werden bei Leerzeichen getrennt. Ich hab mir dazu eine kleine Prozedur geschrieben mit der man das Parameter abfragen bsichen professioneler gestalten kann:

Code: Alles auswählen

Procedure ParseCommand()
    DefType.s Befehl, Parameter
    DefType.s Param
    
    Repeat
        Param     = ProgramParameter()
        Befehl    = StringField(Param, 1, "=")
        Parameter = StringField(Param, 2, "=")
        
        Select LCase(Befehl)
            Case "/Text"     : Debug Val(Trim(Parameter))
            Case "/Zahl"     : Debug Trim(Parameter)
        EndSelect
        
        Delay(2)
    Until Param = ""
EndProcedure