识别句子中单词的程序，将它们存储在一个列表中，并用列表中的单词的位置替换每个单词

Question

我已经创建了输出单词在句子中的位置的表单可视化基本程序，是一种我只能输出整个句子的方法，例如：猫与另一只猫战斗的将是1,2,3,4,1,6,7。

真的很感谢您的帮助。

Answer 1

您只需要获取句子中不同单词的列表，然后遍历该句子的每个单词并将该单词的索引替换为单词作为输出。下面是一个如何实现的例子：

Dim UserInput1 As String = "The cat fought another cat would be" 
    Dim words As New List(Of String) 

    'Here, we just add get a list of the distinct words in the sentence 
    For Each Word As String In UserInput1.ToLower.Split(CChar(" ")) 
     If Not words.Contains(Word) Then words.Add(Word) 
    Next 

    'Looping through the words and their indexes 
    'to show their relation just for this example 
    For i As Integer = 0 To Words.Count - 1 
     Debug.Print((i + 1).ToString & " = " & Words(i)) 
    Next 
    'Outputs: 
    '1 = the 
    '2 = cat 
    '3 = fought 
    '4 = another 
    '5 = would 
    '6 = be 


    'So now that we have our number/word relations, 
    'we can just loop through the words and get the 
    'output that you wanted, an index substitution of each word 
    Dim output As String = Nothing 
    For Each Word As String In UserInput1.ToLower.Split(CChar(" ")) 
     output &= (words.IndexOf(Word) + 1).ToString & ", " 
    Next 
    output = output.Substring(0, output.Length - 2) 
    'output = "1, 2, 3, 4, 2, 5, 6"