我正在尝试制作一个自动聊天机器人,它会从单独的 .txt 中提取随机行,以便我可以拥有更少的庞大代码。但是我发现很难找到这样做的方法。任何帮助将不胜感激!抱歉,如果这不是很清楚,如果不是,我很乐意澄清!
最佳答案
您尝试过 my.resources block 吗?你可以在我的项目->资源下找到它。只需添加您的字符串即可。 在您的代码中,您可以像 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))
关于vb.net - 将 .txt 作为存储系统链接到 Visual basic 2010,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/12835839/