Imports Microsoft.VisualBasic
Imports System.IO


Public Class FajlKezeles
    Inherits System.Web.UI.Page
    'Mezők (tulajdonságok)
    Public Fájl As String 'Ide írunk
    Public Sorok() As String 'Ide olvas soronként
    Public FájlTartalma As String 'Amit írunk vagy olvasunk a Fájlba
    Public Hibaüzenet As String

    'Konstruktor
    Public Sub New(ByVal pFájl As String)
        'A fájl fizikai útvonala a szerveren
        Fájl = Server.MapPath("~/" & pFájl)
        Hibaüzenet = ""
        If Not File.Exists(Fájl) Then
            Hibaüzenet = Fájl & " nem létezik! Rutin: Konstruktor"
        End If
    End Sub

    'A Fájl tartalmát beolvassa a FájlTartalma mezőbe
    Public Sub Beolvas()
        On Error GoTo Hiba
        Dim fs As FileStream
        Dim sr As StreamReader
        Hibaüzenet = ""
        'Fájl megnyitása olvasásra
        fs = New FileStream(Fájl, FileMode.Open, FileAccess.Read)
        sr = New StreamReader(fs, Text.Encoding.Default)
        FájlTartalma = sr.ReadToEnd
        sr.Close()
        Exit Sub
Hiba:
        Hibaüzenet = "Hiba: " & Err.Description & " Hibakód: " & Err.Number & " Rutin: Beolvas"
    End Sub

    'A Fájl-t soronként beolvassa a Sorok tömb-be
    Sub BeolvasSoronként()
        On Error GoTo Hiba
        Dim fs As FileStream
        Dim sr As StreamReader
        Dim i As Integer = 0
        Hibaüzenet = ""
        'Fájl megnyitása olvasásra
        fs = New FileStream(Fájl, FileMode.Open, FileAccess.Read)
        sr = New StreamReader(fs, Text.Encoding.Default)
        Erase Sorok
        While sr.Peek() > -1
            ReDim Preserve Sorok(i)
            Sorok(i) = sr.ReadLine
            i = i + 1
        End While
        sr.Close()
        Exit Sub
Hiba:
        Hibaüzenet = "Hiba: " & Err.Description & " Hibakód: " & Err.Number & " Rutin: BeolvasSoronként"
    End Sub


    'A FájlTartalma mezőt kiírja a Fájl fájlba
    Sub Kiír()
        On Error GoTo Hiba
        Dim fs As FileStream
        Dim sw As StreamWriter
        Hibaüzenet = ""
        'Fájl megnyitása írásra (FileStrime: fájl folyam)
        fs = New FileStream(Fájl, FileMode.Create, FileAccess.Write)
        sw = New StreamWriter(fs, Text.Encoding.Default)
        'Szöveg kiírása Egyelőre csak a memóriába 
        sw.Write(FájlTartalma)
        'Az flush itt nem kötelező, mert a rutin lefutása után (sw lokális változó megsemmisül) automatikusan megcsinálja a rendszer
        'Fájl tartalmának kiírása a memóriából(puffer kiürítése)
        sw.Flush()
        'Fájl zárása (hogy a többi program is hozzáférjen) Ez kötelező, mert nyitva marad!
        sw.Close()
        Exit Sub
Hiba:
        Hibaüzenet = "Hiba: " & Err.Description & " Hibakód: " & Err.Number & " Rutin: Kiír"
    End Sub

    'A FájlTartalma-t Hozzáfűzi a Fájl végéhez
    'Ha még nem létezik, a naplo.txt, akkor létrehozza
    Sub Naplóz()
        On Error GoTo Hiba
        Dim fs As FileStream
        Dim sw As StreamWriter
        Hibaüzenet = ""
        'Fájl megnyitása hozzáfűzésre (FileStrime: fájl folyam)
        fs = New FileStream(Fájl, FileMode.Append, FileAccess.Write)
        sw = New StreamWriter(fs, Text.Encoding.Default)
        sw.WriteLine(FájlTartalma)
        'Fájl tartalmának kiírása a memóriából(puffer kiürítése) (Itt most nem kötelező)
        sw.Flush()
        'Fájl zárása (hogy a többi program is hozzáférjen
        sw.Close()
        Exit Sub
Hiba:
        Hibaüzenet = "Hiba: " & Err.Description & " Hibakód: " & Err.Number & " Rutin: Naplóz"
    End Sub
End Class