
加好友 发短信
等级:版主
帖子:85326
积分:427815
威望:0
精华:5
注册:2012/10/18 22:13:00
|
Post By:2014/11/19 21:13:00 [显示全部帖子]
Dim des As String = "1,2,1,3,5,6,7" Dim ary() As String = des.Split(",") Dim ls As new List(of String) For Each s As String In ary If ls.Contains(s) = False Then ls.Add(s) End If Next msgbox(ls.count)
|
|