Parent page: Service Functions – Math (QTP, VBScript)

Check whether an item is in array

Public Function isItemInArray(ByVal dvArray, ByVal sItem)
  Dim Iter
  If sItem = "" Then
    isItemInArray = False
    Exit Function
  End If
  If Not isArray(dvArray) Then
    isItemInArray = False
    Exit Function
  End If
  For Iter=0 To UBound(dvArray)
    If dvArray(Iter)= sItem Then
      isItemInArray = True
      Exit Function
    End If
  Next
  isItemInArray = False
End Function

Unit Tests

  boolRC = isItemInArray(Array(-1, 15, 15.0, 15.51, "a"), 15.5)
  If boolRC Then
    Log.Error("isItemInArray failed")
  End If
  boolRC = isItemInArray(Array(-1, 15, 15.0, 15.50, "a"), 15.5)
  If Not boolRC Then
    Log.Error("isItemInArray failed")
  End If
  boolRC = isItemInArray(Array("a", "abc", "dex", 10, "z"), "10")
  If boolRC Then
    Log.Error("isItemInArray failed")
  End If
  boolRC = isItemInArray(Array("a", "abc", "dex", 10, "z"), "z")
  If Not boolRC Then
    Log.Error("isItemInArray failed")
  End If
  boolRC = isItemInArray(Array(""), "")
  If boolRC Then
    Log.Error("isItemInArray failed")
  End If
  boolRC = isItemInArray(10, 10)
  If boolRC Then
    Log.Error("isItemInArray failed")
  End If