创建数组以分隔对话中的说话者，然后计算每个特定人所说的话。

Question

我正在尝试创建一个程序，该程序将接受对话并将其分成扬声器，然后计算他们在整个对话中说了多少字。

考虑以下示例；

乔治

今天我们将讨论这个话题。

玛丽

这是一个非常有趣的话题。

乔治

好的，让我们开始吧。

抢

这在许多不同的情况下都是相关的。

所以，我希望这个输出是：

乔治

总字数：12

玛丽

总字数：6

罗伯

总字数：7

此时，我唯一知道的是，我需要创建一个数组来填充大写名称，然后使用它来按说话者分隔对话，以便计算单词。

任何帮助将不胜感激，我熟悉数组，但我对字符串分析和操作的经验很少。

Answer 1

您可能不想使用数组 - Dictionary(Of String, Integer) 将是存储每个扬声器的字数的更好选择。代码是这样的：

Dim wordCounts As Dictionary(Of String, Integer) = new Dictionary(Of String, Integer)()
Dim currentSpeaker As String = Nothing

For Each line As String In File.ReadLines(dialogueFile)
    If line.Trim().Length > 0 AndAlso line.Trim() = line.Trim().ToUpper() Then
        ' Upper case lines are speakers
        currentSpeaker = line.Trim()
    Else
        If currentSpeaker Is Nothing Then
            Throw New Exception("No Speaker!")
        End If
        Dim wordCount As Integer = line.Split(New String() {" "}, StringSplitOptions.RemoveEmptyEntries).Length
        If wordCounts.ContainsKey(currentSpeaker) Then
            wordCounts(currentSpeaker) += wordCount
        Else
            wordCounts.Add(currentSpeaker, wordCount)
        End If
    End If
Next

For Each count As KeyValuePair(Of String, Integer) In wordCounts
    Console.WriteLine("{0}: {1}", count.Key, count.Value)
Next

根据需要输出以下内容：

GEORGE: 12
MARY: 6
ROB: 7