vb.net - 将 .txt 链接到 Visual basic 2010 作为存储系统

Question

我正在尝试制作一个自动聊天机器人，它将从单独的 .txt 中提取随机行，这样我就可以减少笨重的代码。但是，我发现很难找到这样做的方法。任何帮助将不胜感激！抱歉，如果不是很清楚，我很乐意澄清！

Answer 1

您是否尝试过 my.resources 块？您可以在我的项目 -> 资源下找到它。只需添加您的字符串。在您的代码中，您可以像 dim str= my.resources.xyz 一样访问它们

然后在某处建立一个新列表：

    Dim mylist As New List(Of String)
    Dim ResourceSet As Resources.ResourceSet = My.Resources.ResourceManager.GetResourceSet(Globalization.CultureInfo.CurrentCulture, True, True)
    For Each Dict As DictionaryEntry In ResourceSet.OfType(Of Object)()
        If TypeOf (Dict.Value) Is String Then
            Debug.WriteLine(Dict.Key) 'outputting resource name
            mylist.Add(DirectCast(Dict.Value, String))
        End If
    Next

得到一个随机数：

Dim RandomNumber As Integer
RandomNumber = RandomClass.Next(0, mylist.count-1)

并访问列表 debug.print(mylist(randomNumber)) 的随机成员

Answer 2

用这个！

    Dim mylist As New List(Of String)
Dim ResourceSet As Resources.ResourceSet = My.Resources.ResourceManager.GetResourceSetrue)
For Each Dict As DictionaryEntry In ResourceSet.OfType(Of Object)
    If TypeOf (Dict.Value) Is String Then
        Debug.WriteLine(Dict.Key) 
       mylist.Add(DirectCast(Dict.Value, String))
    End If
Next