Hallo ich versuche mit folgendem Code die erste Zeile in einer CSV Datei zu löschen, das Problem ist das der Code alle Zeilen löscht und ich nicht weis woran es liegt.
Schonmal Danke für die Hilfe
Schonmal Danke für die Hilfe
VB.NET-Quellcode
- Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
- DelLineFromFile("meaproto.csv", 1)
- End Sub
- Public Sub DelLineFromFile(ByVal filename As String, ByVal line As Integer)
- Try
- Dim lines As String() = My.Computer.FileSystem.ReadAllText( _
- filename, System.Text.Encoding.Default).Split(vbCr)
- If line > 0 AndAlso line <= lines.Length Then
- Dim oStream As IO.StreamWriter = Nothing
- Try
- oStream = New IO.StreamWriter(filename, False, System.Text.Encoding.Default)
- Dim bNext As Boolean = False
- For i As Integer = 0 To lines.Length - 1
- If i + 1 <> line Then
- If bNext Then oStream.Write(vbCr)
- oStream.Write(lines(i))
- bNext = True
- End If
- Next
- Catch ex As Exception
- Finally
- If Not IsNothing(oStream) Then oStream.Close()
- End Try
- End If
- Catch ex As Exception
- End Try
- End Sub
