commandline parameters

jeg kunne forestille mig en mulighed ville være at køre mitprogram.exe "4000000 /s" og så dele parameteren op ved hvert mellemrum... men det er vel ikke den bedste løsning... :)

Jeg mener at Command$ (med $) tager hele linien som 1 parameter. Du skal så dele den op, f.eks. ved " " (mellemrum):

tmp = Command$
arrTmp = split(tmp, " ")

Så får du:
arrTmp(0) er lig: 4000000
arrTmp(1) er lig: /s

hvad så hvia der ikke er skrevet noget i arrTmp(1) ??

Tja, så er der ikke noget i arrTmp(1)..? :-)
Du kan jo altid tjekke indholdet, før du bruger koden:

if arrTmp(1) <> "" then
' der er noget i arrTmp(1), så kør "silent"
else
' der er IKKE noget i arrTmp(1), så LARM HELT VILDT ;-)
end if

Eller:
if arrTmp(1) = "/s" then
' silent
else
' ikke silent
end if

du kan også lave en loop, der checker alle værdierne, og søger efter "/s":
strSilent = "nej"
for i = LBound(arrTmp) to Ubound(arrTmp)
  if arrTmp(i) = "/s" then strSilent = "ja"
next

if strSilent = "ja" then
' kør silent
else
' kør normalt
end if

den sidste kode (den med for-next) er ligeglad om prog.exe køres med:

"4000000 /s"

eller omvendt:

"/s 4000000"

er det uden den split ?

nej, det er med split:

tmp = Command$
arrTmp = split(tmp, " ")

strSilent = "nej"
for i = LBound(arrTmp) to Ubound(arrTmp)
  if arrTmp(i) = "/s" then strSilent = "ja"
next

if strSilent = "ja" then
' kør silent
else
' kør normalt
end if

en anden mulighed:
strSilent = "nej"
if inStr(Command$, "/s") then strSilent = "ja"

if strSilent = "ja" then
.....
end if

man kunne også bare bruge:
if inStr(Command$, "/s") then
' kør silent
else
' kør normalt
end if


Men det kommer an på, hvad/hvordan alt det andet kode, er sat op..

thx det virker max drop et svar

Et svar er droppet :-)

..husk at markere navnet *før* du klikker på Accepter-knappen :-)
..ellers virker det ikke..

here ya go og thx