| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 集合问题请教 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=44758) |
| -- 作者：y2287958 -- 发布时间：2014/1/8 13:10:00 -- 最好是加入前判断一下 |
| -- 作者：lsy -- 发布时间：2014/1/8 13:23:00 -- Dim s As String For i As Integer = 0 To names.Count - 1 If names(i) = "中国" Then s + = i & "|" End If Next Output.Show(s) |
| -- 作者：lsy -- 发布时间：2014/1/8 14:00:00 -- Dim Names As New List(Of String) names.Add("中国") names.Add("人民中国万岁") names.Add("万岁") names.Add("中国人民") names.Add("人民中国") names.Add("人民中国万岁") names.Add("人民的中国") names.Add("中华人民共和国") names.Add("中国") names.Add("人民中国万岁") For i As Integer = 0 To names.Count - 1 For j As Integer = 0 To names.Count - 1 If i <> j AndAlso names(i) = names(j) Then Output.Show(i & "," & names(i)) Exit For End If Next Next [此贴子已经被作者于2014-1-8 14:18:52编辑过]
|
| -- 作者：Bin -- 发布时间：2014/1/8 16:03:00 -- 我测试结果都是没问题的啊. |
| -- 作者：lsy -- 发布时间：2014/1/8 16:40:00 -- 楼主跑偏了吧，不然不会不对。 |
| -- 作者：有点甜 -- 发布时间：2014/1/8 19:23:00 -- 如下代码 Dim Names As New List(Of String) names.Add("中国") names.Add("人民中国万岁") names.Add("万岁") names.Add("中国人民") names.Add("人民中国") names.Add("人民中国万岁") names.Add("人民的中国") names.Add("中华人民共和国") names.Add("中国") names.Add("人民中国万岁") Dim temps As new List(Of String) For i As Integer = 0 To names.Count - 2 For j As Integer = i+1 To names.Count - 1 If names(i) = names(j) Then If temps.Contains(names(i)) = False Then temps.Add(names(i)) End If Exit For End If Next Next For Each temp As String In temps output.Show(temp) Next |
| -- 作者：lsy -- 发布时间：2014/1/9 9:25:00 -- Dim Names As New List(Of String) Dim tmp As New List (Of String) |