Daten aus einer CSV auslesen, bearbeiten und wieder einfügen

Juvo23 · 28. September 2014, 20:29

Guten Abend, habe folgendes Problem.
Das Programm soll eine Textdatei öffnen, den Text daraus lesen, unwichtige Daten löschen und den Rest wieder einfügen.

Mein Code sieht so aus:

Quellcode

Imports System.IO
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
Private Sub test()
Dim pfad As String = "C:\Users\julian\Desktop\Programmierung\_SummaryReport.csv"
Dim test As String
Dim sr As New StreamReader(pfad)
test = sr.Read()
test.Split(",")
test.Replace("Questions", "Test")
sr.Close()
Dim sw As New StreamWriter(pfad)
sw.Write(test)
sw.Close()
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
test()
End Sub
End Class

Wenn ich nun wieder in die Datei hinein gucken, sehe ich dort eine 35.
Kann mir bitte jemand bei meinem Problem helfen?

VB1963 · 29. September 2014, 08:01

Willkommen im Forum

Zunächst einmal: Option Strict On einstellen!

sehe ich dort eine 35

Was tut Zeile #14? msdn.microsoft.com/de-de/library/ath1fht8(v=vs.100).aspx

RodFromGermany · 29. September 2014, 08:04

Willkommen im Forum. :thumbup:

Juvo23 schrieb:

wieder einfügen

geht nicht, Du musst die komplette Datei neu schreiben.
Überlege Dir, auf ein anderes Format umzusteigen. Bei XML bekommst Du mächtige Unterstützung durch das Framework.

Juvo23 · 29. September 2014, 08:43

Also muss ich eine komplett neue Datei erstellen?

RodFromGermany · 29. September 2014, 08:47

@Juvo23 Ja.
Da Du eh die gesamte Info einlesen musst, machst Du die Änderungen im RAM und schreibst wieder alles raus.
Das ist dasselbe in grün.

Juvo23 · 29. September 2014, 08:58

Also kann ich den Text nicht in einen String speicher, dort die Daten löschen, und diesen wieder in die Textdatei einfügen?

RodFromGermany · 29. September 2014, 09:05

@Juvo23 Ungefähr so:

VB.NET-Quellcode

Dim lines() As String = IO.File.ReadAllLines(DEIN_PFAD)
For i = 0 To lines.Count - i
' etwas mit lines(i) machen
Next
IO.File.WriteAllLines(DEIN_NEUER_PFAD, lines)

Juvo23 · 29. September 2014, 09:15

Quellcode

Private Sub sub1()
Dim lines() As String = IO.File.ReadAllLines("C:\Users\Julian\Desktop\exam Pro\Test 1_SummaryReport.csv")
For i = 0 To lines.Count - i
IO.File.Replace("# Following is the SUMMARY REPORT for 'Test 1'", "")
Next
IO.File.WriteAllLines("C:\Users\Julian\Desktop\exam Pro\Test 1_SummaryReportneu.csv", lines)
End Sub

Funktioniert so nicht... was habe ich falsch gemacht?

RodFromGermany · 29. September 2014, 09:25

Juvo23 schrieb:

was habe ich falsch gemacht?

nicht richtig gelesen und falsch verstanden:

RodFromGermany schrieb:

VB.NET-Quellcode

' etwas mit lines(i) machen

Juvo23 · 29. September 2014, 09:27

Was genau? Sry ich verstehs nicht

RodFromGermany · 29. September 2014, 09:32

Juvo23 schrieb:

Was genau?

Grundlagen lernen.
Du kannst nicht Rallye Monte Carlo fahren, wenn Du nicht Auto fahren kannst.

VB.NET-Quellcode

Dim lines() As String = IO.File.ReadAllLines(DEIN_PFAD)
For i = 0 To lines.Count - i
lines(i) = lines(i).Replace("# Following is the SUMMARY REPORT for 'Test 1'", "")
Next
IO.File.WriteAllLines(DEIN_NEUER_PFAD, lines)

Juvo23 · 29. September 2014, 09:36

"Der Index war außerhalb des Arraybereichs"
Funktioniert nicht wirklich.

Schamash · 29. September 2014, 09:38

RodFromGermany schrieb:

For i = 0 To lines.Count - i

Juvo23 schrieb:

Funktioniert nicht

Schau dir diese Zeile noch mal genau an. Und überlege warum der Fehler kommt. Das meint RodFromGermany mit "Grundlagen"

Juvo23 · 29. September 2014, 09:41

Bei der Zeile kommt ja kein Fehler.

Schamash · 29. September 2014, 09:42

OK, wenn du das sagst.

RodFromGermany · 29. September 2014, 09:44

Juvo23 schrieb:

Bei der Zeile kommt ja kein Fehler.

In welcher Zeile?

Juvo23 schrieb:

Funktioniert nicht wirklich.

Poste mal Deinen ganzen Code.

Juvo23 · 29. September 2014, 09:47

Quellcode

Option Strict On
Imports System.IO
Imports Microsoft.VisualBasic.FileIO
Public Class Form1
Private Sub sub1()
Dim lines() As String = IO.File.ReadAllLines("C:\Users\Julian\Desktop\exam Pro\Test 1_SummaryReport.csv")
For i As Integer = 0 To lines.Count - i
lines(i) = lines(i).Replace("# Following is the SUMMARY REPORT for 'Test 1'", "")
Next
IO.File.WriteAllLines("C:\Users\Julian\Desktop\exam Pro\Test 1_SummaryReportneu.csv", lines)
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
sub1()
End Sub
End Class

Zeile 10 kommt der Fehler

Schamash · 29. September 2014, 09:48

... und an dem Fehler ist Zeile 9 schuld.

RodFromGermany · 29. September 2014, 09:51

@Juvo23

Juvo23 schrieb:

Funktioniert nicht wirklich.

Mein Fehler. Sorry.
Lies Dir bitte diese Zeile mal selbst langsam und laut vor und überlege, ob das alles so ist, wie es sein sollte.

Schamash · 29. September 2014, 09:53

@RodFromGermany das hab ich vor ca. 10 Beiträgen schon geschrieben. Ich hatte es für eine C&P Bremse gehalten

Daten aus einer CSV auslesen, bearbeiten und wieder einfügen

Daten aus einer CSV auslesen, bearbeiten und wieder einfügen

Quellcode

Juvo23 schrieb:

VB.NET-Quellcode

Quellcode

Juvo23 schrieb:

RodFromGermany schrieb:

VB.NET-Quellcode

Juvo23 schrieb:

VB.NET-Quellcode

RodFromGermany schrieb:

Juvo23 schrieb:

Juvo23 schrieb:

Juvo23 schrieb:

Quellcode

Juvo23 schrieb:

Ähnliche Themen

7 Benutzer haben hier geschrieben