VB 老旧版本维护系列---1

迷之集合

‘定义一个字符串

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