來自文本文件的視覺基本隨機線

Question

我需要創建一個描述生成器。

我有3個文本文件，並在這些文件的每一行中，我有一段描述。

我的程序應該能夠讀取所有這3個文件，那麼從每個文件選擇一個隨機的線一樣，將它們結合起來：

Result = RandomLineFile1 + RandomLineFile2 + RandomLineFile3 

我已經在這片描述的實施「變量」稱爲：BRAND和MODEL。

我的程序現在應該能夠在TextBox3.Text中找到這些變量，並將其替換爲Brand的TextBox1.Text和Model的TextBox2.Text的內容。

就是這樣。

事情是這樣的：

readfile1(getrandomline) 
add to TextBox3.Text 
readfile2(getrandomline) 
add to TextBox3.Text 
readfile2(getrandomline) 
add to TextBox3.Text 
Find BRAND 
Replace with TextBox1.Text 
Find MODEL 
Replace with TextBox2.Text 

你能幫助我嗎？

Answer 1

FloatingKiwi，對我的第一個問題在stackoverflow上有這樣一個「很好」的攻擊性答案感到難過。 我只是在尋求任何幫助，而不是自己的代碼。

我就是這麼做的，也許會幫助別人：

On Error Resume Next 
     TextBox1.Clear() 
     Dim ioFile As New System.IO.StreamReader("C:\Descriere\a.txt") 
     Dim lines As New List(Of String) 
     Dim rnd As New Random() 
     Dim line As Integer 
     While ioFile.Peek <> -1 
      lines.Add(ioFile.ReadLine()) 
     End While 
     line = rnd.Next(lines.Count + 1) 
     TextBox1.AppendText(lines(line).Trim()) 
     ioFile.Close() 
     ioFile.Dispose() 
     Dim ioFile2 As New System.IO.StreamReader("C:\Descriere\core.txt") 
     Dim lines2 As New List(Of String) 
     Dim rnd2 As New Random() 
     Dim line2 As Integer 
     While ioFile2.Peek <> -1 
      lines2.Add(ioFile2.ReadLine()) 
     End While 
     line2 = rnd2.Next(lines2.Count + 1) 
     TextBox1.AppendText(lines2(line2).Trim()) 
     ioFile2.Close() 
     ioFile2.Dispose() 
     Dim ioFile3 As New System.IO.StreamReader("C:\Descriere\x.txt") 
     Dim lines3 As New List(Of String) 
     Dim rnd3 As New Random() 
     Dim line3 As Integer 
     While ioFile3.Peek <> -1 
      lines3.Add(ioFile3.ReadLine()) 
     End While 
     line3 = rnd3.Next(lines3.Count + 1) 
     TextBox1.AppendText(lines3(line3).Trim()) 
     ioFile3.Close() 
     ioFile3.Dispose() 
     TextBox1.Text = Replace(TextBox1.Text, "BRAND", TextBox2.Text) 
     TextBox1.Text = Replace(TextBox1.Text, "MODEL", TextBox3.Text) 
     Dim count As Integer = 0 
     count = TextBox1.Text.Split(" ").Length - 1 
     Label5.Text = "Caractere:" & Len(TextBox1.Text)