如何在VBScript腳本中聲明？

Question

在VBScript腳本中使用asserts的好方法是什麼？

是否有內置功能或將不得不被仿真？什麼是最佳做法？

一個應用是在開發過程中測試對象是Nothing。

Answer 1

一個可操作的答案（對於其他人可能需要它）是定義該功能，從Rosetta Code：

sub Assert(boolExpr, strOnFail) 
     if not boolExpr then 
      Err.Raise vbObjectError + 99999, , strOnFail 
     end if 
    end sub 

調用：

Set obj2 = Nothing 
    Assert Not obj2 Is Nothing, "obj2 is Nothing!" 

輸出：

someScript.vbs(17, 3) (null): obj2 is Nothing! 

Answer 2

不幸的是，我不相信VBScript有任何內置的東西。您需要定義自己的Assert方法，並可能使用預處理器構建腳本或其他東西在構建腳本的發行副本時將其刪除。 （實際上除去 - 至少註釋掉 - Assert呼叫是最好的，而不僅僅是使得Assert的主體在發佈的代碼中不做任何事情。）