datei ständig auslesen

Sepp Master · 3. August 2009, 15:48

hallo zusammen!

Ich will einen kleinen Netzwerkchat programmieren. Dazu wird auf eine Netzwerk Festplatte eine Textdatei mit den Nachrichten geschrieben. Meine Frage ist: Wie kann ich mit meinem Chat Programm diese Textdatei ständig neu auslesen? Eine neue Nachricht soll ja schließlich sofort im Chatfenster erscheinen.

VB.NET-Quellcode

Do
txtFeld.Text = My.Computer.FileSystem.ReadAllText("k:/test.txt")
Loop

Das war meine erste Idee..Das Auslesen einfach in eine schleife packen sodass das Textfeld immer den aktuellen Dateiinhalt anzeigt..Aber mit dem Code zeigt er nichtmal mein Programmfenster an..

Bitte um Hilfe

vb-checker · 3. August 2009, 15:50

Mach den Code zum auslesen mal in einen Timer und stell das Intervall auf 500. Das reicht auch und sollte gehen.

Sepp Master · 3. August 2009, 15:55

wie geht denn das mit dem timer?

bin noch nicht so gut in vb

vb-checker · 3. August 2009, 15:58

Du weist was die Toolbox ist? Gut! In der Rubrik "Komponenten" findest du den Timer. Doppelklicke auf ihn, um ihn hinzuzufügen. Jetzt siehst du ihn unter deiner Form mit der Beschriftung "Timer1". Wähle ihn aus und ändere die Intervalleigenschaft im Eigenschaftenfenster auf 500 und die Enabledeigenschaft auf True. Dann doppelklickst du auf den Timer, um in das Tick-Event zu kommen. Dort platzierst du deinen Code:

VB.NET-Quellcode

txtFeld.Text = My.Computer.FileSystem.ReadAllText("k:/test.txt")

TG22997 · 3. August 2009, 16:01

Vergiss das...
mach es so in eine Klasse und ändere es ab:

VB.NET-Quellcode

Public Class Form1
Private Dim WithEvents t As Timer
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
t = New Timer
t.Interval = 100
t.Start()
End Sub
Private Sub t_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles t.Tick
txtFeld.Text = My.Computer.FileSystem.ReadAllText("k:/test.txt")
End Sub

mfg Tim;)

Sepp Master · 3. August 2009, 16:06

hm mein textfeld zeigt aber nichts an, obwohl ich es genauso gemacht habe wie du es gesagt hast und die textdatei auch nicht leer ist

das kommt wenn ich das programm starte unten im direktfenster:

Eine Ausnahme (erste Chance) des Typs "System.ObjectDisposedException" ist in mscorlib.dll aufgetreten.
Eine Ausnahme (erste Chance) des Typs "System.ObjectDisposedException" ist in mscorlib.dll aufgetreten.
Eine Ausnahme (erste Chance) des Typs "System.ObjectDisposedException" ist in mscorlib.dll aufgetreten.
Eine Ausnahme (erste Chance) des Typs "System.IO.FileNotFoundException" ist in mscorlib.dll aufgetreten.

Sepp Master · 3. August 2009, 16:08

ah der zweite vorschlag klappt super! danke für die hilfe!

TG22997 · 3. August 2009, 16:11

Welcher, der von mir oder von dem?

mfg Tim;)

Sepp Master · 3. August 2009, 16:12

deiner

TG22997 · 3. August 2009, 16:19

aso ok:)

mfg Tim;)

vb-checker · 3. August 2009, 16:23

Komisch. Bis auf den Intervall ist das doch das gleiche, oder?

TG22997 · 3. August 2009, 16:27

eig schon... bloß das ich was abgeändert habe von wegen Do...Loop in nem Timer XDDD

mfg Tim;)

vb-checker · 3. August 2009, 16:36

TG22997 schrieb:

von wegen Do...Loop in nem Timer XDDD

Das hab ich doch nicht gesagt:

Dann doppelklickst du auf den Timer, um in das Tick-Event zu kommen. Dort platzierst du deinen Code:

VB.NET-Quellcode

txtFeld.Text = My.Computer.FileSystem.ReadAllText("k:/test.txt")

Siehst du da ein Do...Loop. Ich nicht.

Sepp Master · 3. August 2009, 16:42

jo ich habs genauso gemacht wie du es erst geschrieben hast, ohne do loop...keine ahnung woran das liegt ist ja eigentlich dasselbe

magerquark · 3. August 2009, 17:56

Ein Timer ist so ziemlich eine der schlechtesten Lösungen für das Problem...
Besser wär die Verwendung der FileSystemWatcher-Klasse, dann kannst du die Textdatei immer dann auslesen, wenn auch wirklich was verändert wurde.
msdn.microsoft.com/de-de/libra…io.filesystemwatcher.aspx

Sepp Master · 3. August 2009, 20:00

oha das sieht aber kompliziert aus, blicke da nicht durch..
kann mir das jemand mit nem einfachen beispiel erklären?

der_Kurt · 3. August 2009, 20:08

Die Suchfunktion bringt dir dies.

Manschula · 3. August 2009, 20:08

Hey,

schau dir mal dieses Thema bzw. diesen Post an: [VB 2008] Filesystemwatcher reagiert nicht auf Änderungen

Eventuell hilft dir das weiter...

Gruß, Manschula

Sepp Master · 3. August 2009, 20:31

hab den code jetzt mal auf mein programm übertragen aber es klappt nicht

VB.NET-Quellcode

Imports System.IO
Public Class frmNetzwerkChat
Dim WithEvents watcher As IO.FileSystemWatcher
Private Sub frmNetzwerkChat_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
watcher = New IO.FileSystemWatcher("k:/text.txt")
watcher.IncludeSubdirectories = True
watcher.Path = "k:/test.txt"
watcher.EnableRaisingEvents = True
End Sub
Private Sub watcher_changed(ByVal sender As Object, ByVal e As System.IO.FileSystemEventArgs) Handles watcher.Changed
lblAusgabe.Text = My.Computer.FileSystem.ReadAllText("k:/test.txt")
End Sub
End Class

bei einer änderung müsste das label "lblausgabe" den inhalt der datei "k:/test.txt" anzeigen. das label bleibt aber weiterhin leer bei einer änderung

magerquark · 3. August 2009, 20:34

Probiers mal so:

VB.NET-Quellcode

Imports System.IO
Public Class frmNetzwerkChat
Dim WithEvents watcher As IO.FileSystemWatcher
Private Sub frmNetzwerkChat_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
watcher = New IO.FileSystemWatcher()
watcher.IncludeSubdirectories = True
watcher.Path = "k:\"
watcher.Filter = "test.txt"
watcher.EnableRaisingEvents = True
End Sub
Private Sub watcher_changed(ByVal sender As Object, ByVal e As System.IO.FileSystemEventArgs) Handles watcher.Changed
lblAusgabe.Text = My.Computer.FileSystem.ReadAllText("k:\test.txt")
End Sub
End Class

datei ständig auslesen

datei ständig auslesen

VB.NET-Quellcode

Skybird schrieb:

VB.NET-Quellcode

Skybird schrieb:

VB.NET-Quellcode

Skybird schrieb:

TG22997 schrieb:

VB.NET-Quellcode

Skybird schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

Ähnliche Themen

3 Benutzer haben hier geschrieben