怎样快速比较两个数组的值是否相等

joseph_wh

原帖由 zhumingwei 于 2007-8-30 19:36 发表

不明白为什么a = join(arr1,"!!")?
直接a = join(arr1)不可以吗?

我估计他是作为一个自定义的分隔符，毕竟如果变量里本身就有空格（“space”）的话，以后再拆分回去就有问题了。

joseph_wh

Dim strOriginalString, strOriginalArray(4), strArray, strFinalMsg

strOriginalArray(0) = "This "
strOriginalArray(1) = "is "
strOriginalArray(2) = "an "
strOriginalArray(3) = "example."

'---------------------------------------------------------------------------------------------
'Part one
strOriginalString = Join(strOriginalArray, "!!")
strArray = Split(strOriginalString, "!!", -1, 1)
strFinalMsg = strArray(0) & strArray(1)
strFinalMsg = strFinalMsg & strArray(2)
strFinalMsg = strFinalMsg & strArray(3)
MsgBox strFinalMsg

'==========================================
'Part two
strOriginalString = Join(strOriginalArray)
strArray = Split(strOriginalString, " ", -1, 1)
strFinalMsg = strArray(0) & strArray(1)
strFinalMsg = strFinalMsg & strArray(2)
strFinalMsg = strFinalMsg & strArray(3)
MsgBox strFinalMsg

'---------------------------------------------------------------------------------------------

效果是不一样的。
分隔符有时也很重要。

joseph_wh

原帖由 jackymail 于 2007-8-31 10:09 发表
数组的比较如果是全部项相等与否，那就太可笑了，这个题目意义不大！

可以先排序，然后再比较啊。