VB 老旧版本维护系列---迷之集合- ArrayList

迷之集合- ArrayList

‘定义一个字符串

Dim dataType_ImageStr As String = "2023,2091,2092,2096,2212"

‘将字符串转化为数组

Dim dataType_Image() As String = dataType_ImageStr.Split(",")

‘将数组转化为数组集合

Dim DataType_ImageList As ArrayList = ArrayList.Adapter(dataType_Image)

‘对数组集合的item做操作

If DataType_ImageList.Contains(TypeName) Then

Msg = "此类型存在集合中"

Else

Msg = "不存在此项"

End If

具体方法：

引入集合dll Imports System.Collections.Generic

Function GetDataItemType(ByVal TypeName As String) As String

Dim dataType_ImageStr As String = "2023,2091,2092,2096,2212"

　　Dim dataType_Image() As String = dataType_ImageStr.Split(",")

　　Dim DataType_ImageList As ArrayList = ArrayList.Adapter(dataType_Image)

　Dim Msg As String = ""

If DataType_ImageList.Contains(TypeName) Then

Msg = "此类型存在集合中"

　   Else

Msg = "不存在此项"

　   End If

　 Return Msg

End Function