Nepovinný parametr ve VBScriptu

Trik spočívá v tom, že do funkce/procedury nedeklarujeme všechny parametry, ale jen jeden, do kterého potom odesíláme pole parametrů.

Odešleme tedy řetězec, ve kterém jsou jednotlivé parametry oddělené čárkou.V naší funkci pak Splitneme řetězec do pole a můžeme jednotlivé parametry procházet.

sub Test(rArgs)
  dim aArg
  on error resume next
  aArg=split(rArgs, ",")
  
 'Pocet parametru alespon jeden
  if ubound(aArg)=0 then
    msgbox "Parametr1:" & aArg(0) 
  elseif ubound(aArg)=1 then
    msgbox "Parametr1:" & aArg(0) & _
         chr(13) & chr(10) & _
         "Parametr2:" & aArg(1) 
  elseif ubound(aArg)=2 then
    msgbox "Parametr1:" & aArg(0) & _
         chr(13) & chr(10) & _
         "Parametr2:" & aArg(1) & _
         chr(13) & chr(10) & _
         "Parametr3:" & aArg(2)
  end if
 
end sub

'Musime vše uzavřít do řetězce
Test "pokus,1,2"
Test "pokus,1"
Test "pokus"