'�=� , �=� , �=� ; �=� , �=�, �=� , �=� ,�=� , �=�, �=�
#include "crt.bi"
' Split arguments without having to split Command$
' yetifoot
' aus freeBASIC.Net/forum
' Kommandozeile mit FB auslesen
Dim As uInteger ArgC, i
Dim z As String

ArgC=(*__p___argc())-1
z="Ausgef�hrtes Program ist:" &Command(0)
Print "WildCards(*, ?) werden aufgel�st.."
If ArgC Then
  z+=!"\nParameter-Anzahl= " &ArgC
  For i=1 To ArgC ' Argumente beginnen bei 1 (0 ist .Exe-Name)
    z+=!"\n  Parameter " &i &" : " &Command(i)
  Next i
Else
  z+=!"\nkeine weiteren Parameter vorhanden.."
End If
Print z
Print "Tested with FB 0.23.0 using FBEdit";
GetKey