在VB中计算列表框中的特定文本项

Question

我是一名业余爱好者，试图掌握一些简单的编程和聊天机器人学习，感谢您的帮助！

我正在尝试对列表框执行计数，其中某个文本在开头存在。

即下面可能是列表框中的文本

你：嗨，你好吗？
ChatBot：嗨，我很好，谢谢，你好吗？
你：我想我没事。
聊天机器人：你为什么没事？
你：我就是。

*注意“You:”和“ChatBot:”都是包含在列表框中的文本。

有没有一种方法可以对列表框进行计数（存储在变量中），以便每次读取“ChatBot:”这个词时都会得到一个计数？

谢谢！

Answer 1

你可以这样使用：

Dim i As Integer = (From item As String In ListBox1.Items Where item.StartsWith("ChatBot:")).Count

Answer 2

如果我理解正确，这将起作用：

Dim chtb As Integer = 0
    For Each i As String In ListBox1.Items
        If i.StartsWith("ChatBot:") Then
            chtb += 1
        End If
    Next

chtb 是 ChatBot 回复的次数