'* 压缩数组,去除数组中的重复项
Dim arr As New ArrayList
For i As Integer = 0 To MessageArray(Convert.ToInt32(e.Result)).Length - 1
If Not arr.Contains(MessageArray(Convert.ToInt32(e.Result)).GetValue(i)) Then
arr.Add(MessageArray(Convert.ToInt32(e.Result)).GetValue(i))
End If
Next
MessageArray(Convert.ToInt32(e.Result)) = DirectCast(arr.ToArray(GetType(String)), String())
压缩数组,去除数组中的重复项
最新推荐文章于 2023-01-08 15:51:28 发布