Visual Basic zufällige Zeile aus der Textdatei

Question

Ich muss einen Beschreibung Generator erstellen.

Ich habe 3 Textdateien und auf jeder Zeile in diesen Dateien habe ich ein Stück Beschreibung.

Mein Programm soll in der Lage sein, alle dieser drei Dateien zu lesen, wählten dann eine zufällige Zeile aus jeder Datei und kombinieren sie wie folgt aus:

Result = RandomLineFile1 + RandomLineFile2 + RandomLineFile3 

Ich habe bereits „Variablen“ in diesem Stück Beschreibungen umgesetzt genannt: MARKE und MODELL.

Mein Programm soll nun in der Lage, diese Variablen in den TextBox3.Text zu finden und sie mit dem Inhalt TextBox1.Text für Marke und TextBox2.Text für Modell ersetzen.

Das ist alles.

Etwas wie folgt aus:

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 

Können Sie mir bitte helfen?

Answer 1

FloatingKiwi, traurig, dass ich so eine "nette" offensive Antwort auf meine erste Frage zu stackoverflow habe. Ich fragte nur nach irgendeiner Art von Hilfe, nicht nach dem Code selbst.

ich tat es trotzdem, vielleicht jemand anders helfen:

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)