检查值是否在数字列表中

Question

假设我有一组数字23,56,128,567,我必须应用一个条件逻辑,如果myData上面一组数字中存在一个变量,那么只有我继续,否则我不会.

抱歉,必须查看一些遗留代码,并且不确定如何在VBScript中执行此操作.

Answer 1

您可以将值放在Dictionary:

Set list = CreateObject("Scripting.Dictionary")
list.Add  23, True
list.Add  56, True
list.Add 128, True
list.Add 567, True

然后检查字典中是否存在您的值:

If list.Exists(myData) Then
  'do stuff
End If

一个ArrayList将是另一种选择:

Set list = CreateObject("System.Collections.ArrayList")
list.Add 23
list.Add 56
list.Add 128
list.Add 567

If list.Contains(myData) Then
  'do stuff
End If

Answer 2

Serenity的想法并没有那么糟糕，您只需确保在两个字符串上使用正确的分隔符即可。

例如：

If instr("|23|56|128|567|","|" & myData & "|") then ...

应该可以正常工作，没有误报