XProfan

Italia

cls
print catchparams()
waitkey
end

catchparams{

    if parcount {

        string s

        whileloop parcount {

            s:=s+par$(loop)+

        }

        return trim$(s)

    }

    return

=#0000FF>}

11.06.2007 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Nico
Madysa

Jetzte aber

:
Kompilieren Markieren Separieren

proc catchparams

    if %parcount

        declare s$

        whileloop %parcount

            s$ = s$ + par$(&loop) +

        EndWhile

        return trim$(s$)

    else

        return

    endif

endproc

cls
print catchparams()
waitinput
end

Nico Madysa

11.06.2007 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Funktioniert zwar - aber immer noch keine perfekte Übersetzung

Du hast ein ifnot %parcount drinn (else) demnach eine Überprüfung mehr als der Grundcode - demnach weniger performat - da eine Zeile mehr Code.

11.06.2007 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Nico
Madysa

Ich grausamer Programmierer bin bereit, diese unglaubliche Last von weniger als einer Millisekunde dem Benutzer aufzubürden. Los, steinigt mich! Obwohl, nein besser doch nicht.

Nico Madysa

11.06.2007 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Naja Dein lahmer Code

bläht

die PRC und die EXE unnötig auf. *rofl* D.H. auch das Virenscanner länger brauchen um einen möglichen Virus zu finden - Dein Code potuto das ganze System in die Knie ziehen.

Und man denke auch an den völlig unnötigen Traffic den Du der XProfan.Com zumutest!

11.06.2007 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Bernhard
Künzel

So funktionierts auch ohne Abfrage kurz und schnell Kompilieren Markieren Separieren Proc CatchParams Declare s$ WhileLoop %ParCount s$ = s$ + Par$(&Loop) + EndWhile Return Trim$(s$) EndProc Cls Print CatchParams()
	14.06.2007 ▲ Vollständiges Zitat Absatzweise Citazione Zeilenweise Citazione

... auch wahr!

Aber Du hast es ja so gewollt!
Kompilieren Markieren Separieren

proc catchparams()

    return string$(external(kernel32,GetCommandLineA),0)

endproc

print catchparams()
waitkey
KompilierenMarkierenSeparierencatchparams{

    return string$(getcommandline(),0)

}

print catchparams()
waitkey
end
schreiben.