以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]包含关键字的数组位置  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=115951)
--  作者：天一生水
--  发布时间：2018/3/17 9:41:00
--  [求助]包含关键字的数组位置

数组：

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

 

          s.split("，")（含有“今天”字符的数组位置）
--  作者：有点蓝
--  发布时间：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
--  发布时间：2018/3/17 10:17:00
--  

能否把代码写成1句？

 

msgbox（s.split("，")（i））

[此贴子已经被作者于2018/3/17 10:23:53编辑过]
--  作者：有点蓝
--  发布时间：2018/3/17 10:53:00
--  
能一口吞下一锅饭不！
--  作者：天一生水
--  发布时间：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
--  作者：有点甜
--  发布时间：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