✔ daten auslesen und in einer textbox wiedergeben

[CoderX]

Hallo Leute !

Also ich hab ne Textbox und nin Button

so wenn man auf den Button drückt soll er ein textfile auslesen und das wiedergeben, allerdings soll er das was in der TXT drinsteht von oben nach unten abarbeiten oder halt ähhm
zufällig.

z.B steht in dem TXT File

ich
bin
schlau

dann soll er nicht in die textbox schreiben wenn man auf den button klickt

ich bin schlau

sondern nur schlau
war nur nin beispiel aber so solls ungefähr funktionieren

ich bedanke mich schon im vorraus für eure hilfe

 

[Shakie]

Wo liegt jetzt das Problem? Beim Auslesen der Textdatei?

 

[CoderX]

ja da liegt das problem

 

[CoderX]

hat keiner ne ahnung wie das funktionieren könnte

 

[JensG]

Hi,

um die Datei auszulesen suche hier im VB Forum mal nach Line Input, es
gibt da unzählige Beiträge dazu.
Der Rest ist mir nicht ganz so klar was du da willst.

Jens

 

[MAN]

So sollte es funktionieren. Ich hoffe das ist nach deinem Interesse, wenn ich dich richtig verstanden habe!

    Dim Nr As Long
    Dim txtInput As String
    Dim txtRows() As String
    
    Nr = FreeFile
    
    ReDim txtRows(0)
    
    Open "C:\Ordner\Dateiname.txt" For Input As #Nr
        Do While (Not EOF(Nr))
            Line Input #Nr, txtInput
            txtRows(UBound(txtRows)) = txtInput
            ReDim Preserve txtRows(UBound(txtRows) + 1)
        Loop
    Close #Nr
    
    Text1.Text = txtRows(Int(Rnd(1) * UBound(txtRows)))

mfG,
MAN

 

[CoderX]

danke man, das war genau das was ich suchte vielen dank für deine hilfe