dotNETportal.cz

Prosím o radu ako uložiť textový súbor na server a ako ho prečítať.

Ďakujem!

Doleuvedený kód v podstate funguje, až na jednú vec. Ak priradim hodnotu názvu v deklaráci tak to funguje ak v kóde tak nefunguje. Dávam na zvaženie či má zmysel sa tým zaoberať. Tomáš, ty nie!

Partial Class _Default
    Inherits System.Web.UI.Page
    Dim NazovSuboru As String = "subor" 'Takto to funguje
    Dim ObsahSuboru As String
    Dim Cesta As String
    'ulozit subor
    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        'Ak dam tu
        'NazovSuboru = "subor1" ' tak to nefunguje
        Me.ObsahSuboru = "funguje"
        Cesta = Server.MapPath(NazovSuboru & ".txt")
        UlozSubor(ObsahSuboru, Cesta)
    End Sub
    'citat subor
    Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
        Cesta = Server.MapPath(NazovSuboru & ".txt")
        Me.TextBox1.Text = CitajSubor(Cesta)
    End Sub
    Sub UlozSubor(ByVal ObsahSuboru As String, ByVal Cesta As String)
        Dim objStreamWriter As IO.StreamWriter
        objStreamWriter = IO.File.CreateText(Cesta)
        objStreamWriter.Write(ObsahSuboru)
        objStreamWriter.Flush()
        objStreamWriter.Close()
    End Sub
    Function CitajSubor(ByVal Cesta As String) As String
        Dim objStreamReader As IO.StreamReader
        Dim strFileContents As String
        If IO.File.Exists(Cesta) Then
            objStreamReader = IO.File.OpenText(Cesta)
            strFileContents = objStreamReader.ReadToEnd()
            objStreamReader.Close()
        Else
            strFileContents = "Subor neexistuje"
        End If
        CitajSubor = strFileContents
    End Function
End Class

Prepáčte, že som Vás tým zaťažil, ale asi už viem odpoveď.

Pri stlačení button dôjede k obnove stánky a tým vlastne sa stratí hodnota priradená k názvu suboru.

Ak sa niekto dočítal až sem, ďakujem mu za pozornosť.

Príjemný večer a s VB .net zvlášť.