如何在 VBScript 中测试布尔表达式？

Question

我正在尝试从 https://stackoverflow 转换代码。 com/questions/4554014/how-to-examine-and-manipulate-iis-metadata-in-c 到 VBVcript。

我的问题在于这段代码：

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，则整个布尔表达式接收值 Empty，该值不是 False 并且因此输入了 then 语句。

该表达式的正确写法是什么？越短越好。

谢谢。

Answer 1

我只需嵌套 If 语句，并插入一个额外的检查来防止 ServerComment 为 Empty 的情况。我还将 site.ServerComment 的值提取到临时变量 comment 中，这样您就不会两次访问该属性。

例如：

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，并获得完全相同的结果。我至少花了几分钟才弄清楚你的原始代码到底做了什么，因为这是一种不自然的编写条件的方式。