Visual Basic Forum

eurotrucker · Verfasst am: 23.10.2009, 04:17

Guten Morgen VB`ler, habe ein Problem wenn ich 2 verschiedene kurze Texte in 2 RTBen eingebe und diese dann in Datei speichere funktioniert das auch ganz gut. aber beim auslesen der Datei wird der Text beider Boxen in nur einer angezeigt. Confused

Kann mir da jemand helfen?
Hier mein Code bisher:

Imports System.IO
Public Class Form1
Private FileName As String
Dim sr As StreamReader
Dim sw As StreamWriter
Private Sub ToolStripButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton3.Click
Try
With SaveFileDialog1
.FileName = FileName
.Filter = "Text Dateien (*.text)|*.text|" & "All files|*.*"
If .ShowDialog() = DialogResult.OK Then
FileName = .FileName
sw = New StreamWriter(FileName)
sw.Write(RichTextBox1.Text)
sw.Write(RichTextBox2.Text)
End If
End With
Catch es As Exception
MessageBox.Show(es.Message)
Finally
If Not (sw Is Nothing) Then
sw.Close()
End If
End Try
End Sub
Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
Try
With OpenFileDialog1
.Filter = "Text Dateien (*.Text)|*.Text|" & "All files|*.*"
If .ShowDialog() = DialogResult.OK Then
FileName = .FileName
sr = New StreamReader(.OpenFile)
RichTextBox1.Text = sr.ReadToEnd()
RichTextBox2.Text = sr.ReadToEnd()
End If
End With
Catch es As Exception
MessageBox.Show(es.Message)
Finally
If Not (sr Is Nothing) Then
sr.Close()
End If
End Try
End Sub
End Class
Danke schon mal Rolling Eyes

_________________