Tekstfil - readonly mode

Kan ikke huske det med sikkerhed men kan du ikke bruge http://msdn.microsoft.com/en-us/library/system.io.fileinfo.openread.aspx

FileInfo.openRead låser vist ikke filen..... Men det kan du lige vende tilbage med.

Proev:

New FileStream(filename, FileMode.Open, FileAccess.Read, FileShare.Write)

Du kan ikke sammenligne med notepad da den aabner filen, laeser data og lukker filen igen.

FileStream kører derud af uden problemer.

Fulgte linket og copy/pastet.

        'Open the stream and read it back.
        fs = fi.OpenRead()
        Dim b(1024) As Byte
        Dim temp As UTF8Encoding = New UTF8Encoding(True)

        Do While fs.Read(b, 0, b.Length) > 0
            'Console.WriteLine(temp.GetString(b))
            MsgBox(temp.GetString(b))

        Loop
        fs.Close()

Er der muligvis en nem måde at lave en "Readline" ? som man kender fra StreamReader.

Der er en StreamReader constructor som tager en Stream (og dermed en FileStream) som argument.

Går ud fra det var noget i den her stil du mente? :)
Det virkede ihver fald ;-)

Men kan den gøres kortere og nemmere læsbart?
Tænker på om man kan nåes med at Dim fs og så undgå fileinfo, og så er jeg lidt i tvivl om det er korrekt at lukke FileStream og StreamReader?



        Dim path As String = Application.StartupPath & "\Temp.txt"
        Dim fi As FileInfo = New FileInfo(path)
        Dim fs As FileStream
        fs = fi.OpenRead()

        Dim r As New StreamReader(fs)
        Do While r.Peek >= 0
            MsgBox(r.ReadLine)
        Loop

        r.Close()
        fs.Close()

Det er hvis også på tide der kommer nogen points ud og flyve. Det spiller sådan som det er nu, resten er "små" problemer som nok skal blive løst.

Jeg siger mange tak for hjælpen indtil videre :)

Løber ind i et problem, da den stadig låser filen.

Idén var at jeg kunne læse fra en fil, mens andre stadig kunne skrive til den.


        Dim fs As New FileStream("Temp.txt", FileMode.Open, FileAccess.Read)

Så kan den læse selvom den er låst

Dim fs As New FileStream("Temp.txt", FileMode.Open, FileAccess.Read, FileShare.Write)

Så kan den ikke åbne, pga den er låst.

proev med:

FileShare.ReadWrite

i din kode.

Jeg ville nok lave koden som:

            Using stm As Stream = New FileStream(fnm, FileMode.Open, FileAccess.Read, FileShare.ReadWrite)
                Dim sr As StreamReader = New StreamReader(stm)
                Dim line As String
                line = sr.ReadLine()
                While line IsNot Nothing
                    ' brug line
                    line = sr.ReadLine()
                End While
            End Using

men jeg er klart C# inspireret.

Det virker perfekt med FileShare.ReadWrite, smider du et svar?

svar