.txt random schreiben

[Escobar]

Liebe user,
ich sitze gerade vor folgenden Problem:
Ich möchte aus einer .txt um die 50 Wört Random rausnehmen und in den Chat schreiben.

Ich hab langsam echt keine ahnung mehr:

Visual Basic Quellcode

Timer11.Interval = 123459
        If CheckBox4.Checked Then
            Timer11.Start()
        End If
        Dim textFileLines() As String = IO.File.ReadAllLines("abc.txt")
        Dim rnd As New Random

        client.SendMessage(textFileLines(rnd.Next(0, textFileLines.Length - 1))) 

Es wird kein text geschrieben
Weiß jemand warum?
Kann mir jemand helfen?

[exception]

client.SendMessage(textFileLines(rnd.Next(0, textFileLines.COUNT - 1))) 

textFileLines.Lenght = Wie viele einzelne Zeichen das ganze Textdokument hat
textFileLines.COUNT = Wie viele Zeilen bzw. Items es hat

[Escobar]

Passiert leider nichts....
Es wird nichts geschrieben.

[exception]

@Escobar

Entweder der Client ist nicht connected oder du hast keinen Inhalt in deinem
Array. Der Code stimmt.

Edit:
Mach mal
MessageBox.Show(textFileLines(rnd.Next(0, textFileLines.COUNT - 1))

statt dem Client.SendMessage(). Ich bin mir sicher das du nicht verbunden bist.

[Escobar]

Da passiert ebenso wenig....
Bekomm keine msgbox.

[exception]

@Escobar

Dann wird der Code nichtmal ausgeführt. Ein Codeabschnitt oder eine genauere
Beschreibung wäre hilfreich.

 Dim x As String() = IO.File.ReadAllLines("C:\users\daniel\desktop\asteroids.txt")
        Dim rnd As New Random

        Dim line As String = x(rnd.Next(0, x.Count))

        MessageBox.Show(line) 

So holst du dir jedenfalls eine Randomline aus deinem Textdokument.

[Escobar]

 Private Sub Timer11_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer11.Tick
        Timer11.Interval = 6000
        If CheckBox4.Checked Then
            Timer11.Start()
        End If
        Dim textFileLines() As String = IO.File.ReadAllLines("abc.txt")
        Dim rnd As New Random

        Dim x As String() = IO.File.ReadAllLines("C:\users\Marco\desktop\abc.txt")


        MessageBox.Show(x(rnd.Next(0, x.Count)))
    End Sub 

Nichts passiert....

[exception]

@Escobar

1.) Du startest den Timer im Timer? Wie soll das gehen?
2.) Startest du den Timer überhaupt irgendwo?

 Private Sub Timer11_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer11.Tick
        Dim rnd As New Random
        Dim x As String() = IO.File.ReadAllLines("C:\users\Marco\desktop\abc.txt")

        MessageBox.Show(x(rnd.Next(0, x.Count)))
    End Sub 

Button oder whatever:

Timer11.Start
Timer11.Interval = 6000 

Jetzt solltest du alle 6 Sekunden eine MsgBox mit einer zufälligen Zeile
aus deiner Textdatei bekommen. Wenn nicht, machst du grundlegend irgendwas
falsch.

[McDodo]

@Escobar

Du startest den Timer11 im Timer11? Wird dieser Timer11 denn bei irgendeinem Ereignis außerhalb(!) des Timers gestartet?

Gruß

é: Too Late..

[Escobar]

Alles klar, hat sich erledigt.
die .txt war eig eine .rtf -.-

Kann geschloßen werden!