Hallo Zusammen,
ich habe ein Problem:
Ich habe ein Formular, welches in eine CDV gespeichert wird.
Jeder Eintrag Erhält in der CSV eine Zeile.
Geladen wird das ganze dann so:
Wenn ich jetzt aber in der Richtextbox mehrzeilig schreibe, schreibt der Code den Text auch mehrzeilig in die CSV Datei und dadruch knallt es beim einlesne der Datei.
Weiß einer, wie ich das lösen kann.
ich habe ein Problem:
Ich habe ein Formular, welches in eine CDV gespeichert wird.
Jeder Eintrag Erhält in der CSV eine Zeile.
VB.NET-Quellcode
- Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
- Dim nameformular As String = Me.textbox1.text
- Dim vornameformular As String = Me.textbox2.text
- dim notizen as string = Me.richtextbox3.text
- Dim swriter As New StreamWriter(Me.TextBox7.Text, True)
- Dim datensatz As String
- datensatz = vbNewLine & id & ";" & nameformular & ";" & vornameformular & ";" notizen
- swriter.Write(datensatz)
- swriter.Close()
- end sub
Geladen wird das ganze dann so:
VB.NET-Quellcode
- Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
- If File.Exists(Me.TextBox7.Text) Then
- Dim sreader As New StreamReader(Me.TextBox7.Text, Encoding.Default)
- Dim line As String
- Do While Not sreader.EndOfStream
- line = sreader.ReadLine
- If line = "" Or line = Nothing Then
- Continue Do
- End If
- Dim linesplitt() As String = line.Split(";")
- Dim nameformular As String = linesplitt(0)
- Dim vornameformular As String = linesplitt(1)
- Dim notizen As String = linesplitt(2)
- me.textbox1.text=nameformular
- me.tetxbxo2.text=vornameformular
- me.richtextbox1.text=notizen
- Loop
- sreader.Close()
- end if
- end sub
Wenn ich jetzt aber in der Richtextbox mehrzeilig schreibe, schreibt der Code den Text auch mehrzeilig in die CSV Datei und dadruch knallt es beim einlesne der Datei.
Weiß einer, wie ich das lösen kann.