'* 压缩数组,去除数组中的重复项
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())
压缩数组,去除数组中的重复项
最新推荐文章于 2025-09-22 23:35:01 发布
本文介绍了一种使用ArrayList去除数组中重复元素的方法。通过检查每个元素是否已存在于ArrayList中来避免重复添加,最终将ArrayList转换回字符串数组。
579

被折叠的 条评论
为什么被折叠?



