Foxtable(狐表)用户栏目专家坐堂 → [求助]按条件删除集合的值


  共有404人关注过本帖树形打印复制链接

主题:[求助]按条件删除集合的值

帅哥哟,离线,有人找我吗?
jyh7081
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:831 积分:7085 威望:0 精华:0 注册:2012/10/3 13:25:00
[求助]按条件删除集合的值  发帖心情 Post By:2018/3/12 22:19:00 [只看该作者]

说明里有删除集合指定值得方法,我想删除:集合的值中包含指定字符,比如“视”和“衣”的,下面的代码怎么改?

 

 

Dim  Lst As  New List(Of String)
Dim Arys() As String
Lst.Add("电视机")
Lst.Add("电冰箱")
Lst.Add("洗衣机")
Lst.Remove("电视机")
Arys = Lst.ToArray()  '将集合转换为数组
For Each  nm As String In lst
    Output.Show(nm)
Next

[此贴子已经被作者于2018/3/12 22:33:55编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:19448 积分:99206 威望:0 精华:7 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/3/12 22:47:00 [只看该作者]

……
For i As Integer = lst.count - 1 To 0 Step -1
    If lst(i).contains("视") OrElse lst(i).contains("") Then
        lst.RemoveAt(i)
    End If
Next

 回到顶部
帅哥哟,离线,有人找我吗?
jyh7081
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:831 积分:7085 威望:0 精华:0 注册:2012/10/3 13:25:00
  发帖心情 Post By:2018/3/13 22:48:00 [只看该作者]

怎样显示指定集合位置之间的值?

Dim  Lst As  New List(Of String)
Dim Arys() As String
Lst.Add("电视机")
Lst.Add("电冰箱")
Lst.Add("洗 衣机")
Lst.Add("aa")
Lst.Add("bb")
Lst.Add("cc")


For Each s As String In lst    '遍历集合的值
    If s.Contains("aa")  Then      ’含有关键字的值
    msgbox(lst.Indexof(s))   '获取本集合位置
    For i As Integer = lst.Indexof(s)  To lst.count -1     ’显示集合的值
        'msgbox(lst(i))
    Next

End If
Next

 

[此贴子已经被作者于2018/3/13 22:53:06编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:19448 积分:99206 威望:0 精华:7 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/3/13 22:59:00 [只看该作者]

没看懂要做什么

For i As Integer = 0 To lst.count -1    '遍历集合的值
    If lst(i).Contains("aa")  Then      '含有关键字的值
        Output.Show(i)'获取本集合位置
        For j As Integer = i  To lst.count -1     '显示集合的值
            Output.Show(lst(j))
        Next
        Exit For
    End If
Next

 回到顶部