Hallo zusammen,
kann mir bitte jemand weiterhelfen? Ich bekomme es einfach nicht hin...
Hinweise:
- zum Öffnen und Speichern von Dateien
- Der Editor enthält eine TextBox.
- Steuerelemente: txtText, mnuHaupt, dlgDateiOeffnen, dlgDateiSpeichern
zum Menüpunkt mnuOeffnen für das Click-Ereignis
- Zur Speicherung des Dateinamens Deklaration des Dateinamens der Variabel Datei als Private Member von frmEditor. Hinweis der entsprechenden Eigenschaft des Dialogs der Variabel Datei, wenn Benutzer den Dialog mit OK bestätigt.
- Einbindung des Namespace System.IO in das Klassenmodul.
- Deklaration und Öffnung eines FileStrems Objekts mit der Datei zum Lesen.
- Das Objekt zum Lesen ist StreamReader. Deklaration mit sr.
- Methode sr.ReadToEnd(): Befüllung der Text-Eigenschaft von txtText.
mnuSpeichern:
Siehe Menüpunkt mnuOeffnen.
Hier mein Code:
Vielen Dank und viele Grüße
Sarah
Code-Tags eingefügt. ~Thunderbolt
kann mir bitte jemand weiterhelfen? Ich bekomme es einfach nicht hin...
Hinweise:
- zum Öffnen und Speichern von Dateien
- Der Editor enthält eine TextBox.
- Steuerelemente: txtText, mnuHaupt, dlgDateiOeffnen, dlgDateiSpeichern
zum Menüpunkt mnuOeffnen für das Click-Ereignis
- Zur Speicherung des Dateinamens Deklaration des Dateinamens der Variabel Datei als Private Member von frmEditor. Hinweis der entsprechenden Eigenschaft des Dialogs der Variabel Datei, wenn Benutzer den Dialog mit OK bestätigt.
- Einbindung des Namespace System.IO in das Klassenmodul.
- Deklaration und Öffnung eines FileStrems Objekts mit der Datei zum Lesen.
- Das Objekt zum Lesen ist StreamReader. Deklaration mit sr.
- Methode sr.ReadToEnd(): Befüllung der Text-Eigenschaft von txtText.
mnuSpeichern:
Siehe Menüpunkt mnuOeffnen.
Hier mein Code:
VB.NET-Quellcode
- Imports System.IO
- Public Class frmEditor
- Const DATEIPFAD : "C:\Users\Sarah\Documents\Visual Studio 2015\Projects\Einsendeaufgaben\Heft 10\E10_Editor_2.txt"
- Private datei As String
- Private Sub mnuOeffnen_Click(sender As Object, e As System.EventArgs) Handles mnuOeffnen.Click
- If dlgDateiOeffnen.ShowDialog = DialogResult.OK Then
- datei = dlgDateiOeffnen.FileName
- datei.EndsWith(.txt)
- End If
- End Sub
- Dim sr As New FileStream(DATEIPFAD, FileMode.OpenOrCreate,
- FileAccess.Write,
- FileShare.Read)
- Sub sr.ReadToEnd(sr As ReadToEnd)
- txtText = sr.ReadToEnd
- End Sub
- Private Sub mnuSpeichern_Click(sender As Object, e As EventArgs) Handles mnuSpeichernUnter.Click
- If dlgDateiSpeichern.ShowDialog = DialogResult.OK Then
- datei = dlgDateiSpeichern.FileName
- txt.Editor.SaveFile(datei)
- End If
- End Sub
- Dim sr As New FileStream(DATEIPFAD, FileMode.OpenOrCreate,
- FileAccess.Write,
- FileShare.Read)
- Sub sr.ReadToEnd(sr As ReadToEnd)
- txtText = sr.ReadToEnd
- End Sub
- End Class
Vielen Dank und viele Grüße
Sarah
Code-Tags eingefügt. ~Thunderbolt
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Thunderbolt“ ()