識別句子中單詞的程序，將它們存儲在一個列表中，並用列表中的單詞的位置替換每個單詞

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"