Foxtable(狐表)用户栏目专家坐堂 → [求助]包含关键字的数组位置


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

主题:[求助]包含关键字的数组位置

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


加好友 发短信
等级:五尾狐 帖子:1137 积分:11230 威望:0 精华:0 注册:2017/9/26 16:30:00
[求助]包含关键字的数组位置  发帖心情 Post By:2018/3/17 9:41:00 [只看该作者]

数组:

 Dim s As String = ”ueaa,bbbb,cc,dd,今天eee”

 

          s.split(",")(含有“今天”字符的数组位置


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


加好友 发短信
等级:超级版主 帖子:107147 积分:544978 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/3/17 10:08:00 [只看该作者]

Dim s As String = "ueaa,bbbb,cc,dd,今天eee"
Dim ss() As String = s.Split(",")
For i As Integer = 0 To ss.Length - 1
    If ss(i).Contains("今天") Then
        msgbox(i)
        Return 
    End If
Next

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


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

能否把代码写成1句?

 

msgbox(s.split(",")(i))

[此贴子已经被作者于2018/3/17 10:23:53编辑过]

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


加好友 发短信
等级:超级版主 帖子:107147 积分:544978 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/3/17 10:53:00 [只看该作者]

能一口吞下一锅饭不!

 回到顶部
帅哥哟,离线,有人找我吗?
天一生水
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1137 积分:11230 威望:0 精华:0 注册:2017/9/26 16:30:00
  发帖心情 Post By:2018/3/20 17:04:00 [只看该作者]

两数组之间的值,怎样显示?

 

Dim s As String = "ueaa,bbbb,cc,dd,今天eee"
Dim ss() As String = s.Split(",")
For i As Integer = 0 To ss.Length - 1
    If ss(i).Contains("c") Then     '包含"c"字符的集合
        Output.Show(i)
        'Return
    End If
Next
For i2 As Integer = 0 To ss.Length - 1
    If ss(i2).Contains("今天") Then  '包含"今天"字符的集合
        Output.Show(i2)
        'Return
    End If
Next
For ii As Integer = i +1 To i2 -1    '显示两者之间的集合
    Output.Show(ss(ii))
Next


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/3/20 17:19:00 [只看该作者]

Dim s As String = "ueaa,bbbb,cc,dd,今天eee"
Dim ss() As String = s.Split(",")
Dim i1 = -1
Dim i2 = -1
For i As Integer = 0 To ss.Length - 1
    If ss(i).Contains("c") Then     '包含"c"字符的集合
        i1 = i
        Exit For
    End If
Next
For i As Integer = 0 To ss.Length - 1
    If ss(i).Contains("今天") Then  '包含"今天"字符的集合
        i2 = i
        Exit For
    End If
Next
For ii As Integer = i1+1 To i2-1    '显示两者之间的集合
    Output.Show(ss(ii))
Next

 回到顶部