Fråga : Formaterad handstilsparar till minnet

Jag använder efter fungera för att öppna, och att läsa formaterad spara till en RichTextBox, och den fungerar fint.  Vad jag skulle, något liknande som ska göras är att vara kompetent till räddningen spara till minnet och är därefter kompetent till appellen det som är mer sistnämnd, om användaren önskar att återvända tillbaka till original sparar.  (Användaren har alternativet som ändrar sparainsidan av texten, boxas).

So, i stort som jag önskar att vara kompetent att ge en knäppas, som låter användaren återvända tillbaka till spara som lagras i minne.  Jag vet att jag behöver att använda MemoryStream, men I precis inte kan figurera ut hur man gör skriva och läser… > för 
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:
" codeBody " suben OpenFileDialog1_FileOk (den ByVal avsändaren för class= för Public " som System.Object, ByVal e som System.ComponentModel.CancelEventArgs) behandlar OpenFileDialog1.FileOk txtFile.Text = OpenFileDialog1.FileName.ToString () 'Försök till slutet som de öppna sparar OpenFileDialog1.Dispose () Dunkel ioOutput som stränger = "", 'txtFile.Text om spara - namnge öppnat tidigare Om File.Exists (txtFile.Text) därefter Dunkelt ioFile som nya StreamReader (txtFile.Text) Dunkel ioLine som stränger = "", Dunkla ioLines som stränger = "", Stunder inte ioFile.EndOfStream ioLine = ioFile.ReadLine ioLines = ioLines & vbCrLf & ioLine Avsluta stunder ioOutput = ioLines 'Låter lagret spara till minnet precis i fall att 'Förlägga kodifierar att diversehandel ioOutputen till minnet här 'Försök till slutet som de öppna sparar igen ioFile.Close () Avsluta om 'Förlägga resultatet strömmer i en RichTextBox RichTextBox1.Text = ioOutput Avsluta suben
" klar "

Svar : Formaterad handstilsparar till minnet

Lagra precis det i en stränga på den jämna klassificera…,
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

Allmänhet klassificerar Form1

    Privata FileData som stränger = "",

    Den privata suben Button1_Click (den ByVal avsändaren som System.Object, ByVal e som System.EventArgs) behandlar Button1.Click
        Using ofd som nya OpenFileDialog
            Om ofd.ShowDialog = Windows.Forms.DialogResult.OK därefter
                Försök
                    FileData = My.Computer.FileSystem.ReadAllText (ofd.FileName)
                    txtFile.Text = ofd.FileName
                    RichTextBox1.Text = FileData
                Fånga före detta som undantag
                    MessageBox.Show (”spara: ” & ofd.FileName & vbCrLf & vbCrLf & ex.ToString, ”felet Loadin sparar”, MessageBoxButtons.OK, MessageBoxIcon.Error),
                Avsluta försök
            Avsluta om
        Avsluta Using
    Avsluta suben

    Den privata suben Button2_Click (den ByVal avsändaren som System.Object, ByVal e som System.EventArgs) behandlar Button2.Click
        RichTextBox1.Text = FileData
    Avsluta suben

Avsluta klassificerar
Andra lösningar  
 
programming4us programming4us