2

かさばるコードを少なくできるように、別の .txt からランダムな行を引き出す自動チャットボットを作成しようとしています。しかし、そうする方法を見つけるのは難しいと感じています。どんな助けでも大歓迎です！これが明確でない場合は申し訳ありませんが、明確にしていただければ幸いです。

4

2 に答える 2

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)) のランダムなメンバーにアクセスします

于 2012-10-11T12:41:20.707 に答える
1

これを使って！

    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
于 2012-10-16T07:45:17.997 に答える