0

我对 VBScript 有疑问。

我正在尝试遍历一个数组来比较所有匹配的值。

即我有一个像下面这样的字符串数组。我想使用 vbscript 比较每个匹配的值。

tmp(0) = "12345"
tmp(1) = "12345"
tmp(2) = "12345"
tmp(3) = "12345"
tmp(4) = "12345"

如果我遍历数组,我将不得不这样做两次才能比较 vals。但是我如何处理第一个值。如果第一个值是错误的,那么它永远不会被拾取,因为两个数组是相同的。我不知道如何解决这个问题。有人可以请教。

for x=0 to UBound(tmp)
  for each val in tmp
  if ( tmp(x) <> val)
    print (mismatch)
  End if
  Next
Next
4

1 回答 1

2

不确定我是否正确理解了您的问题。你想检查一个数组的所有值是否都相等吗?如果是这样,应该这样做:

elementsEqual = True

For i = 1 To UBound(tmp)
  If tmp(i) <> tmp(0) Then
    elementsEqual = False
    Exit For
  End If
Next

您无需将每个元素与其他元素进行比较来检查是否都相等。如果不是所有元素都相等,那么其中一个元素将不等于第一个元素,因此您只需要一个循环。

于 2013-09-04T16:37:24.947 回答