Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim fo As New OpenFileDialog fo.Filter = "Text Files|*.txt" fo.FilterIndex = 1 fo.ShowDialog() If (Not fo.FileName = Nothing) Then TextBox1.Text = fo.FileName End If End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click If (Not TextBox1.Text = Nothing) Then If (My.Computer.FileSystem.FileExists(TextBox1.Text)) Then Dim lines As New List(Of String) Using sr As New StreamReader(TextBox1.Text) While sr.Peek <> -1 lines.Add(sr.ReadLine()) End While End Using Dim rand As Random = New Random() Dim r As Integer = rand.Next(lines.Count()) TextBox2.Text = lines(r) rand = Nothing r = Nothing lines = Nothing End If End If End Sub
Imports System.IO Public Class Form1 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim fo As New OpenFileDialog fo.Filter = "Text Files|*.txt" fo.FilterIndex = 1 fo.ShowDialog() If (Not fo.FileName = Nothing) Then TextBox1.Text = fo.FileName End If End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click If (Not TextBox1.Text = Nothing) Then If (My.Computer.FileSystem.FileExists(TextBox1.Text)) Then Dim lines As New List(Of String) Using sr As New StreamReader(TextBox1.Text) While sr.Peek <> -1 lines.Add(sr.ReadLine()) End While End Using Dim rand As Random = New Random() Dim r As Integer = rand.Next(lines.Count()) TextBox2.Text = lines(r) rand = Nothing r = Nothing lines = Nothing End If End If End Sub End Class
Note: Due to the size or complexity of this submission, the author has submitted it as a .zip file to shorten your download time. After downloading it, you will need a program like Winzip to decompress it.
Virus note: All files are scanned once-a-day by SourceCodester.com for viruses, but new viruses come out every day, so no prevention program can catch 100% of them.
FOR YOUR OWN SAFETY, PLEASE:
1. Re-scan downloaded files using your personal virus checker before using it.
2. NEVER, EVER run compiled files (.exe's, .ocx's, .dll's etc.)--only run source code.