VBScript: Передача параметров функции

Question

У меня есть 2 функции. Мне нужно передать параметр от одного к другому и оценить его во 2-й функции. Для кода ниже мне нужно «ОК» в окр, но его печать как «окр»

strenv = "QA" 
cus_number = getNumber(strenv) 

If (IsNull(cus_number)) Then 
    WScript.Echo "Number is null" 
Else 
WScript.Echo "cus_number : " & cus_number 
End If 



Function getNumber(strenv) 
    wscript.echo "env: " & strenv 
    if strenv = "QA" Then 
    number = "423" 
    elseif strenv ="DEV" Then 
     number= "678" 
    endif 
    getNumber=number 
    End Function 

Answer 1

Я вижу, по крайней мере, 2 проблемы в вашем коде:

1. strenv = QA

   Вы, наверное, предназначенный для назначения строки "QA" переменной strenv. Однако без двойных qoutes QA считается переменной. Поскольку вы не инициализировали его, его значение равно Empty, которое затем присваивается strenv.

2. Синтаксис условного выражения в функции неверен. Пожалуйста, проверьте номер documentation.