Frage : Schreiben einer formatierten Akte zum Gedächtnis

Ich verwende die folgende Funktion, um mich zu öffnen und eine formatierte Akte zu einem RichTextBox und zu ihm zu lesen ist adaequat.  Was ich tun möchte, ist, in der Lage zu sein, die Akte zum Gedächtnis zu speichern, und ist dann in der Lage, es später zu nennen, wenn der Benutzer zurück zu der ursprünglichen Akte umschalten möchte.  (Der Benutzer hat die Wahl, zum der Akte innerhalb des Textkastens zu ändern).

So, im Allgemeinen, das ich in der Lage sein möchte, einen Knopf zur Verfügung zu stellen, der den Benutzer zurück zu der Akte umschalten lässt, die im Speicher gespeichert wird.  Ich weiß, dass ich MemoryStream verwenden muss, aber ich gerade nicht herausfinden kann, wie man schreiben bildet und… liest 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:

Public Unterseeboot OpenFileDialog1_FileOk (ByVal Absender als System.Object, ByVal e als System.ComponentModel.CancelEventArgs) behandelt OpenFileDialog1.FileOk

        txtFile.Text = OpenFileDialog1.FileName.ToString ()
        'Versuch, zum der geöffneten Akte zu schließen
        OpenFileDialog1.Dispose ()
        Schwaches ioOutput als Schnur = ""
        'txtFile.Text, wenn der Dateiname sich früh öffnete
        Wenn File.Exists (txtFile.Text) dann
            Schwaches ioFile als neues StreamReader (txtFile.Text)
            Schwaches ioLine als Schnur = ""
            Schwache ioLines als Schnur = ""
            Während nicht ioFile.EndOfStream
                ioLine = ioFile.ReadLine
                ioLines = ioLines u. vbCrLf u. ioLine
            Beenden während
            ioOutput = ioLines

            'Lässt Speicher die Akte zum Gedächtnis gerade im Fall
                   'Code setzen, der das ioOutput zum Gedächtnis hier speichert

            'Versuchen, die geöffnete Akte wieder zu schließen
            ioFile.Close ()
        Beenden wenn
        'Den Resultat Strom in ein RichTextBox legen
        RichTextBox1.Text = ioOutput

    Enden-Unterseeboot

Antwort : Schreiben einer formatierten Akte zum Gedächtnis

Es in einer Schnur auf dem Kategorienniveau einfach speichern…
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

Allgemeine Kategorie Form1

    Privates FileData als Schnur = ""

    Privates Unterseeboot Button1_Click (ByVal Absender als System.Object, ByVal e als System.EventArgs) behandelt Button1.Click
        Using ofd als neues OpenFileDialog
            Wenn ofd.ShowDialog = Windows.Forms.DialogResult.OK dann
                Versuch
                    FileData = My.Computer.FileSystem.ReadAllText (ofd.FileName)
                    txtFile.Text = ofd.FileName
                    RichTextBox1.Text = FileData
                Fang ex als Ausnahme
                    MessageBox.Show („Akte: “ u. ofd.FileName u. vbCrLf u. vbCrLf u. ex.ToString, „Störung Loadin Akte“, MessageBoxButtons.OK, MessageBoxIcon.Error)
                Enden-Versuch
            Beenden wenn
        Using beenden
    Unterseeboot beenden

    Privates Unterseeboot Button2_Click (ByVal Absender als System.Object, ByVal e als System.EventArgs) behandelt Button2.Click
        RichTextBox1.Text = FileData
    Enden-Unterseeboot

Enden-Kategorie
Weitere Lösungen  
 
programming4us programming4us