Question

好吧,我对 VB6 不太熟悉, 但我想看看一个数组是否包含一个值。这就是我拥有的, 但它给我造成了一个错误。可能是“ 过价” 类型错误的问题, 但我不这么认为。

    Dim transCodes As Variant
    transCodes = Array(40, 41, 42, 43)
    If (transCodes.Contains("passedValue")) Then
    *Do Stuff*
    End If

任何帮助都会非常感激!

<强> UPDATE

未能纠正我的语法, 你能给我举个例子吗? 我可以用来保证"通过价值" 是正确的类型?

< 强势 > 播放我的更新 < /强 >

VB6 中没有包含方法吗? 还有其它方法可以做这个简单的任务吗?

Answer 1

VB6 在阵列上没有本地的 包含 方法。

您的最佳选择是行走阵列, 逐项检查 :

Found = False
For Index = LBound(transCodes) To UBound(transCodes )
  If transCodes(Index) = PassedValue Then
    Found = True
    Exit For
  End If
Next

If Found Then
   Do stuff
   Index will contain the location it was found
End If

替代办法包括利用收藏品,并试图根据价值对物品进行修复,但对于这一简单案例来说,这要多得多。

Answer 2

如果您只想要一条线,您可以检查字符串数组是否包含一个包含以下代码的项目( 没有循环) :

  ARR is an array of string, SEARCH is the value to be searched
Found = InStr(1, vbNullChar & Join(arr, vbNullChar) & vbNullChar, _
vbNullChar & search & vbNullChar) > 0

这是从一个""http://www.devx.com/vb2themax/Tip/ 18364" rel="no follow" >Devx tip 上摘取的

Answer 3

我用 VB6 函数包扎迪安娜的回答:

Public Function StringArrayContains(ByRef arrString() As Boolean, PassedValue) As String
   Dim Found As Boolean
   Found = False
   Dim index  As Integer
    For Index = LBound(arrString) To UBound(arrString)
      If arrString(Index) = PassedValue Then
        Found = True
        Exit For
      End If
    Next
    StringArrayContains = Found
End Function

Answer 4

最后基于 @Mostafa Anssary

我用了这个函数

    Function instrSplit(ByVal searchEstado As String, ByVal arrayEstados As String)

       instrSplit = 0

       instrSplit = InStr(1, " " & Join(Split(arrayEstados, ","), " ") & " ", _
                " " & searchEstado & " ")

    End Function

我打电话给你

found = instrSplit(mySearchValue, arrayValues)

例如,例如

arrayValues = "8, 64, 72, 1520"
mySearchValue  = "8"


found = instrSplit(mySearchValue, arrayValues)

友情链接