VBScriptでブール式をテストする方法は？

Question

コードをhttps://stackoverflow.com/questions/4554014/how-to-examine-and-manipulate-iis-metadata-in-cからVBVcriptに変換しようとしています。

私の問題は、このコードを使用することです：Emptyある

Function LocateVirtualDirectory(ByVal siteName, ByVal vdirName) 
    On Error Resume Next 
    Dim site 
    For Each site in w3svc 
     If (site.KeyType = "IIsWebServer") And (site.ServerComment = siteName) Then 
      Set LocateVirtualDirectory = GetObject(site.Path & "/ROOT/" & vdirName) 
      Exit Function 
     End If 
    Next 
End Function 

site.ServerComment場合は、全体のブール式は偽となり、その後、文が入力されない値Emptyを、受け取ります。

その表現を書く正しい方法は何ですか？より短いほうが良い。

ありがとうございました。

Answer 1

私は単にIfステートメントをネストし、がEmptyである条件に対してガードする追加のチェックを挿入します。また、site.ServerCommentという値をテンポラリ変数commentに抽出して、プロパティに2度アクセスしないようにしました。例えば

：

Function LocateVirtualDirectory(ByVal siteName, ByVal vdirName) 
    On Error Resume Next 
    Dim site 
    Dim comment 
    For Each site in w3svc 
     If site.KeyType = "IIsWebServer" Then 
      comment = site.ServerComment 
      If (comment <> Empty) And (comment = siteName) Then 
       Set LocateVirtualDirectory = GetObject(site.Path & "/ROOT/" & vdirName) 
       Exit Function 
      End If 
     End If 
    Next 
End Function 

If文をネストの別の利点は、短絡評価です。 VBScript（とVB 6）は条件付き評価を短絡させません。And演算子は論理演算子として動作し、条件式の両辺をテストして結果を決定する必要があります。 KeyTypeが一致しない場合は、ServerCommentをチェックする必要はないため、式を短絡することでパフォーマンスが少し向上します。 VBScriptでこれを実現する唯一の方法は入れ子です（AndAlsoはありません）。

= Trueという値がある場合、テストすることは絶対に必要ではないことを指摘しておきます。 (site.ServerComment = siteName) = Trueをsite.ServerComment = siteNameと書き換えれば、まったく同じ結果が得られます。条件付き文章を書くのは不自然な方法なので、元のコードが何をしたのかを理解するのに少なくとも数分かかりました。