copyright 1999 - 2014 by heinz prelle - hannover  - lenbachstraße 42 - www.visual-basic5.de | impressum
Beispiel: VB .Net - Zufallssätze aus einer Textdatei laden

'Hinweis : sentences.dat beinhaltet 5 Zeilen die einzeln angezeigt werden sollen
'
Option Explicit On
Option Strict On

Imports System.IO

Public Class Form1

    Private SentencesList As List(Of String) = New List(Of String)
    Private rnd As Random = New Random

    Private Sub LoadFileContentToList()
        Try
            If File.Exists(Path.Combine(Application.StartupPath, "sentences.dat")) Then
                SentencesList.AddRange(File.ReadAllLines(Path.Combine(Application.StartupPath, "sentences.dat"), _
                                                         System.Text.Encoding.Default))
            Else
                MessageBox.Show("Datei wurde nicht gefunden...", "Info")
            End If
        Catch ex As IOException
            MessageBox.Show(ex.Message(), "Error... IOException")
        Catch ex As Exception
            MessageBox.Show(ex.Message(), "Error... Exception")
        End Try
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If Me.SentencesList.Count > 0 Then
            Try
                Dim RndNumber As Integer = rnd.Next(0, Me.SentencesList.Count)
                Static n As Integer = 0
                While RndNumber = n
                    RndNumber = rnd.Next(0, Me.SentencesList.Count)
                End While
                n = RndNumber
                Me.TextBox1.Text = Me.SentencesList(RndNumber)
            Catch ex As Exception

            End Try
        Else
            MessageBox.Show("Keine Daten zum auswerten vorhanden.", "Info")
        End If
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) _
            Handles MyBase.Load
        With Me
            .Text = " Zufallssaetze aus einer Textdatei laden"
            .Button1.Text = "Inhalt anzeigen..."
            .CenterToScreen()
            .LoadFileContentToList()
        End With
    End Sub

End Class
Sourcecode Visual Basic
Download (.zip) Projektdateien