Pytanie : Pamięć kartoteka pamięć

I używać the następujący funkcja i następujący kartoteka RichTextBox i ono pracować świetnie.  Kartoteka I polubić być sprawnie save the kartoteka pamięć, i wtedy być sprawnie ono opóźniony jeżeli the użytkownik chcieć z powrotem the oryginalny kartoteka.  (The użytkownik mieć the opcja the kartoteka wśrodku the tekst pudełko).

So podstawowy I chcieć sprawnie guzik który pozwalać the użytkownik z powrotem the kartoteka przechować w pamięć.  I znać I potrzebować MemoryStream, ale I właśnie móc właśnie dlaczego the pisać i… 
(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 Okręt podwodny OpenFileDialog1_FileOk (ByVal nadawca Jako System.Object, ByVal e Jako System.ComponentModel.CancelEventArgs) Obchodzić się OpenFileDialog1.FileOk

        txtFile.Text = OpenFileDialog1.FileName.ToString ()
        'Próba the otwarty kartoteka
        OpenFileDialog1.Dispose ()
        Ciemnawy ioOutput Jako Sznurek = ""
        'txtFile.Text jeżeli the kartoteka - wymieniać rozpieczętowany wczesny
        Jeżeli File.Exists (txtFile.Text) Wtedy
            Ciemnawy ioFile Jako Nowy StreamReader (txtFile.Text)
            Ciemnawy ioLine Jako Sznurek = ""
            Ciemnawy ioLines Jako Sznurek = ""
            Podczas Gdy Nie ioFile.EndOfStream
                ioLine = ioFile.ReadLine
                ioLines = ioLines & vbCrLf & ioLine
            Kończyć Podczas Gdy
            ioOutput = ioLines

            'Pozwalać sklep the kartoteka pamięć właśnie w skrzynka
                   'Umieszczać kod który przechować the ioOutput pamięć tutaj

            'Próba the otwarty kartoteka znowu
            ioFile.Close ()
        Kończyć Jeżeli
        'Umieszczać the rezultat Strumień w RichTextBox
        RichTextBox1.Text = ioOutput

    Końcówka Okręt podwodny

Odpowiedź : Pamięć kartoteka pamięć

Właśnie przechować ono w sznurek przy the klasowy poziom…
(1):
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

Społeczeństwo Klasowy Form1

    Intymny FileData Jako Sznurek = ""

    Intymny Okręt podwodny Button1_Click (ByVal nadawca Jako System.Object, ByVal e Jako System.EventArgs) Obchodzić się Button1.Click
        Using ofd Jako Nowy OpenFileDialog
            Jeżeli ofd.ShowDialog = Windows.Forms.DialogResult.OK Wtedy
                Próba
                    FileData = My.Computer.FileSystem.ReadAllText (ofd.FileName)
                    txtFile.Text = ofd.FileName
                    RichTextBox1.Text = FileData
                Chwyt wyjątek Jako Wyjątek
                    MessageBox.Show ("Kartoteka: " & ofd.FileName & vbCrLf & vbCrLf & ex.ToString, "Błąd Loadin Kartoteka", MessageBoxButtons.OK, MessageBoxIcon.Error)
                Końcówka Próba
            Kończyć Jeżeli
        Kończyć Using
    Kończyć Okręt podwodny

    Intymny Okręt podwodny Button2_Click (ByVal nadawca Jako System.Object, ByVal e Jako System.EventArgs) Obchodzić się Button2.Click
        RichTextBox1.Text = FileData
    Końcówka Okręt podwodny

Końcówka Klasa
Inne rozwiązania  
 
programming4us programming4us