Simpelt spørgsmål. venligst hjælp!

Du kalder r.ReadLine 50 gange fremfor r.ReadToEnd 1 gang.

Ok tusind tak..

Lige nu har jeg en timer som opdaterer et felt hvert sekund, men man kan ikke markere den. Er der nogen måde jeg kan gøre sådan, at den selv tjekker om der er en ny linie og automatisk tilføjer den hvis der er en ny linie altså?

contentbox.Items.Clear()

        Dim infoReader As System.IO.FileInfo
        infoReader = My.Computer.FileSystem.GetFileInfo("C:\test.txt")
        MsgBox("File is " & infoReader.Length & " bytes.")

        r = New IO.StreamReader("c:\test.txt")

        While (r.Peek() > -1)

            contentbox.Items.Add(r.ReadToEnd)

        End While
        r.Close()

Jeg kan ikke få r.readline = 50 eller r.readline(50) til at virke. :(

Det er fordi metoden ikke modtager en INT parameter.
Du opretter en loop:

Dim line As String
For d = 0 To 50
line = line + " " + r.ReadLine();
Next d

Ps. Jeg koder ikke selv i VB.Net men ideen er god nok. Det ville nok være mere hensigtsmæssigt, at oprette en ArrayList og smide strings'ne ned i.

Vil du læse de første 50 linier eller nye linier ?

Det er ligesom to meget forskellige ting.

Jeg har et eksempel på at læse nye linier her:

Imports System
Imports System.IO
Imports System.Threading

Namespace E
    Public Class TailSniff
        Private filename As String
        Private pos As Long

        Public Sub New(ByVal filename As String)
            Me.filename = filename
            pos = 0
        End Sub
        Public Function Read() As StreamReader
            Dim fs As FileStream = New FileStream(filename, FileMode.Open, FileAccess.Read)
            Dim len As Long = fs.Length
            fs.Seek(pos, SeekOrigin.Begin)
            Dim b(len - pos) As Byte
            fs.Read(b, 0, b.Length)
            fs.Close
            pos = len
            Return New StreamReader(New MemoryStream(b))
        End Function
    End Class
    Public Class MainClass
        Public Shared Sub Main(ByVal args As String())
            Dim ts As TailSniff = New TailSniff("C:\z.z")
            While True
                Dim sr As StreamReader = ts.Read
                While sr.Peek > 0
                    Dim line As String = sr.ReadLine
                    Console.WriteLine(line)
                End While
                sr.Close
                Thread.Sleep(10)
            End While
        End Sub
    End Class
End Namespace

OK ?

Jeg samler ikke på point så..... :) Håber du fik løst problemstillingen.

Tid at få afsluttet her ?