从数组中获取多个索引值

我从A-Z创建了一个字符串数组，它将包含0-25的索引。从数组中获取多个索引值

然后我有一个文本框，当我在文本框中输入文本时，如何获得与我输入的文本相关联的数组的索引号？

例如，我输入“AB”到文本框，和指数收益率应该在0和1

下面的代码是唯一能，如果我只输入一个字母表返回索引。如何返回许多字母的索引号？

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click 

    Dim abc(25) As String 
    abc(0) = "a" 
    abc(1) = "b" 
    abc(2) = "c" 
    abc(3) = "d" 
    abc(4) = "e" 
    abc(5) = "f" 
    abc(6) = "g" 
    abc(7) = "h" 
    abc(8) = "i" 
    abc(9) = "j" 
    abc(10) = "k" 
    abc(11) = "l" 
    abc(12) = "m" 
    abc(13) = "n" 
    abc(14) = "o" 
    abc(15) = "p" 
    abc(16) = "q" 
    abc(17) = "r" 
    abc(18) = "s" 
    abc(19) = "t" 
    abc(20) = "u" 
    abc(21) = "v" 
    abc(22) = "w" 
    abc(23) = "x" 
    abc(24) = "y" 
    abc(25) = "z" 

    Dim result = abc.Where(Function(a) a.Contains(TextBox2.Text)).Select(Function(s) Array.IndexOf(abc, s)).ToArray() 

    Dim x As Integer 
    For Each x In result 
     MsgBox(x) 
    Next 

End Sub

来源

2010-07-09 user388197

首先想到的是在文本框输入中使用.split方法来获取字符数组。对数组中的每个元素执行搜索，将每个匹配添加到结果数组中。

来源

2010-07-09 23:50:01

有一百万种方法可以解决这个问题。

一种解决方案：

1）获取文本

Dim theText = TextBox2.Text

2）为在该文本中的每个字母，得到的数量（并显示它作为提供的消息

Dim c As Char 
For Each c In theText 
    MsgBox(translateCharacter(c)) 
Next 

Public Function translateCharacter(ByVal c As Char) As Integer 
    translateCharacter = abc.Where(Function(a) a.Contains(c)).Select(Function(s) Array.IndexOf(abc, s)).ToArray() 
End Function

编译时，它应该弹出每个数字，一个接一个地使用你用来翻译字符的相同函数（即得到结果）还有其他方法可以做到这一点，我只是想解决你的主要问题问题是指出你可以迭代字符串中的所有字符。

我希望帮助，

--gMale

来源

2010-07-10 00:04:24 gMale

编译和运行完美：

Module Module1 

    Sub Main() 

     Test("Leniel") 

    End Sub 
    Sub Test(ByVal text As String) 

     Dim alphabet() As String = {"a", "b", "c", "d", "e", 
            "f", "g", "h", "i", "j", 
            "k", "l", "m", "n", "o", 
            "p", "q", "r", "s", "t", 
            "u", "v", "w", "x", "y", "z"} 

     Dim indexes = From letter In text.ToCharArray() _ 
      Select Array.IndexOf(alphabet, letter.ToString().ToLower()) 

     Dim i As Integer 
     For Each i In indexes 
      MsgBox(i) 
     Next 

    End Sub 

End Module

它会在消息框中分别显示：

'l e n i e l 
11, 4, 13, 8, 4, 11

来源

2010-07-10 00:31:13

从数组中获取多个索引值

回答

相关问题