VB2005 ランダムにテキスト出力

質問

既出でしたら申し訳ありません。

VB2005　EXPRESS Editionにて、テキストボックスに「りんご」と入力しButtonクリックすることで、「りんご」を含むそれ以下の文を別のテキストボックスにランダムに出力したいのです。

「りんご」以下の文は、あらかじめ用意したものを使用します。

例
テキストボックス１に「りんご」と入力後、Buttonクリック
↓
テキストボックス２に「りんごが食べたい」と出力。

「が食べたい」の箇所は数１０～１００パターンぐらい自分で用意。
（を食べたい、が好きだ、は腐っている、など）

「りんご」以下の文を格納する方法はどのようにしたらよいのでしょうか？
データベース（？）などの勉強が必要でしょうか？

そしてさらに、「りんご」と「みかん」という２つの単語をテキストボックス１に半角カンマで区切って入力した場合、テキストボックス２に「りんご」と「みかん」が反映されるランダムな文章が作成されるプログラムも作りたいと考えています。

例
テキストボックス１に「りんご,みかん」と入力後、Buttonクリック
↓
テキストボックス２に「りんごかみかんが食べたい」と出力。

こちらも「か」と「が食べたい」の箇所はあらかじめ用意した、数パターンの中からランダムで接続詞や文章を使用したいのです。

ご助力いただければ幸いです。
よろしくお願いいたします。

回答No.3

Do_little · ベストアンサー

参考になれば幸いです。

・動詞.txtの内容（ファイルの置き場所はソースコードに記述）
食べたい
好きだ
腐っている

・接続詞.txtの内容（ファイルの置き場所はソースコードに記述）
と
か
に
を
は
も

・Form1.vbに配置したコントロール
textbox1
textbox2
Button1

・Form1.vbファイルに記述した内容
Imports System.IO
Imports System.Text

Public Class Form1
　　'動詞が書いてあるファイル名
　　Private Const PC_Dousi_FileName As String = "C:\動詞.txt"
　　'接続詞が書いてあるファイル名
　　Private Const PC_Setuzokusi_FileName As String = "C:\接続詞.txt"
　　'動詞を格納するコレクション
　　Private PM_Dousi_Collection As List(Of String) = New List(Of String)
　　'接続詞を格納するコレクション
　　Private PM_Setuzokusi_Collection As List(Of String) = New List(Of String)

　　'**************************************************
　　' フォームロード
　　'**************************************************
　　Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
　　　　'動詞をコレクションに格納
　　　　If Not PF_CollectSet(PC_Dousi_FileName, PM_Dousi_Collection) Then
　　　　　　Button1.Enabled = False
　　　　　　Return
　　　　End If
　　　　'接続詞をコレクションに格納
　　　　If Not PF_CollectSet(PC_Setuzokusi_FileName, PM_Setuzokusi_Collection) Then
　　　　　　Button1.Enabled = False
　　　　　　Return
　　　　End If
　　End Sub

　　'**************************************************
　　' コレクションを設定する
　　'**************************************************
　　Private Function PF_CollectSet(ByVal A_Filename As String, ByVal A_Collection As List(Of String)) As Boolean
　　　　Dim LineStr As String = ""

　　　　'ファイルが無い場合、終了
　　　　If Not File.Exists(A_Filename) Then
　　　　　　Return False
　　　　End If

　　　　'動詞をコレクションに格納
　　　　Using sr As StreamReader = New StreamReader(A_Filename, Encoding.GetEncoding("Shift-JIS"))
　　　　　　Do
　　　　　　　　LineStr = sr.ReadLine()
　　　　　　　　If LineStr Is Nothing Then
　　　　　　　　　　Exit Do
　　　　　　　　End If
　　　　　　　　A_Collection.Add(LineStr)
　　　　　　Loop Until LineStr Is Nothing
　　　　　　sr.Close()
　　　　End Using

　　　　Return True
　　End Function

　　'**************************************************
　　' ボタン押下時
　　'**************************************************
　　Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
　　　　Dim Fruits As String()
　　　　Dim Fruit As String
　　　　Dim OutPut As String = ""
　　　　Dim rnd As Random = New Random()

　　　　If TextBox1.Text.Trim = "" Then
　　　　　　Return
　　　　End If

　　　　Fruits = TextBox1.Text.Split(",")
　　　　For Each Fruit In Fruits
　　　　　　If Fruit.Trim <> "" Then
　　　　　　　　OutPut += Fruit
　　　　　　　　OutPut += PM_Setuzokusi_Collection(rnd.Next(0, PM_Setuzokusi_Collection.Count))
　　　　　　End If
　　　　Next
　　　　OutPut += PM_Dousi_Collection(rnd.Next(0, PM_Dousi_Collection.Count))

　　　　TextBox2.Text = OutPut.ToString
　　End Sub
End Class

お礼

お礼のほう遅れて大変申し訳ございません！！

ご提示いただいたソースを応用し、やりたいことができました！！
感激です♪

ありがとうございました！！

回答No.2

imogasi

（１）みかんグループで１つ、りんごグループで１つテキストファイルをメモ帳で作る。
プログラムの中にこの値を持たせるには２００個は多すぎるでしょうから、ファイル化する。
内容はみかん（りんご）に続く文言のデータを約１００行分打ち込む。１文章１行。カンマ区切りの１００個を連ねるより判りやすいか
と思って。
ーー
プログラム開始時に、（１）のファイルを読み込み、全レコードを配列Ｍ（i）に格納する。
りんごのファイルも読み込みＲ（i）に格納する。（初期化）
1００レコードｘ２らしいので、配列に格納するのも良い(差し障り無い）かなと思って。
ーー
Ｂｕｔｔｏｎ１をクリックされた都度、１からレコード数（配列要素数。Ubound（）は２００５ではないかもしれないが、そんなイメージ）までの乱数を１つ取得（ｘ）。
ーー
TextBox1.Text&M(x)を出力する。
ーー
助詞・接続詞は数が少なければ、プログラムの中に、配列の初期化で
値を持つ。そしてこれも乱数（ｘ）をだし、ｊ（ｘ）、Ｓ(x)で決める。

補足

ご回答ありがとうございます！！
ご提示いただいた内容を応用することで、当方が行いたいことができると思います。

よろしければ、ご提示いただいた内容の例的なコードをご記入願えませんでしょうか？

申し訳ございません。
宜しくお願いいたします。

回答No.1

naganaga_001

お世話になります。

> 「りんご」以下の文を格納する方法はどのようにしたらよいのでしょうか？
大きなデータでなく、かつ固定であれば
下記ソースのように List(Of T) （ジェネリックなどのコレクション）でよいと思います。
http://www.atmarkit.co.jp/fdotnet/special/generics01/generics01_01.html
ランダムの部分は、System.Random クラスを使います。
http://msdn2.microsoft.com/ja-jp/library/system.random(VS.80).aspx

Public Class Form8

　　Private m_collection As List(Of String) = New List(Of String)

　　Private Sub Form8_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
　　　　With Me.m_collection
　　　　　　.Add("が食べたい")
　　　　　　.Add("が好きだ")
　　　　　　.Add("は腐っている")
　　　　End With
　　End Sub

　　Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
　　　　Dim fruit As String = Me.TextBox1.Text
　　　　If fruit.Trim = String.Empty Then Return

　　　　If fruit.Contains(","c) Then
　　　　　　Dim tmpArr As String() = fruit.Split(","c)
　　　　　　fruit = String.Empty
　　　　　　For index As Integer = 0 To tmpArr.Length - 1
　　　　　　　　If Not index = 0 Then fruit += "か"
　　　　　　　　fruit += tmpArr(index)
　　　　　　Next
　　　　End If

　　　　Dim rnd As Random = New Random()
　　　　Dim ret As Integer = rnd.Next(0, Me.m_collection.Count)
　　　　Me.TextBox2.Text = fruit + Me.m_collection(ret)

　　End Sub
End Class

補足

コードまで提示していただき、ありがとうございます！！
リンク先も大変勉強になりました。

コード中に(","c)とありますが、「c」はどういった働きをしているのでしょうか？

当方が質問させていただいた内容やご提示いただいたコードでは、カンマはひとつの場合でしたが、カンマがふたつになった場合はElseIfを追加し、(","　& ","c)と記入すればよろしいのでしょうか？

さらに質問するかたちになり申し訳ございません。
宜しくお願いいたします。