Hallo zusammen,
ich versuche über meinen Vorhandenen Code das Einlesen von CSV Dateien.
Dies Funktioniert schon aber ich möchte die ersten beiden Zeilen immer übersprungen haben.
So sieht meine Komplette Sub aus.
Überflüssigen Code habe ich entfernt da es sonst zu viel wird.
Die ganzen Variablen sind deklariert und kommen Teils über eine Config xml Datei.
Die zeilen länge sind immer unterschiedlich pro csv Datei.
Danke und Gruss
Thomas
ich versuche über meinen Vorhandenen Code das Einlesen von CSV Dateien.
Dies Funktioniert schon aber ich möchte die ersten beiden Zeilen immer übersprungen haben.
So sieht meine Komplette Sub aus.
Überflüssigen Code habe ich entfernt da es sonst zu viel wird.
VB.NET-Quellcode
- Public Sub ReadandWriteCSV()
- Dim finfo As New IO.DirectoryInfo(Loadpath)
- For Each fi In finfo.GetFiles(strTyp)
- Using sr As New TextFieldParser(fi.FullName)
- With sr
- .SetDelimiters(Delimiters)
- .HasFieldsEnclosedInQuotes = False
- Dim FieldData() As String
- Do While Not .EndOfData()
- FieldData = .ReadFields()
- Dim Position() As Integer = {1, BuchungsdatumPosition, BuchungsartPosition, BuchungsidentPosition, EinkaufPosition, BelegnummerPosition, BelegdatumPosition, BuchungsbetragPosition, SteuerschlüsselPosition, WährungPosition, BuchungstextPosition, KostenartPosition, KSTKTRPosition, ZahlungskonditionPosition}
- Dim csvFile() As String = fi.Name.Split(CChar(leseendung))
- Dim sw As System.IO.StreamWriter
- sw = FileSystem.OpenTextFileWriter(Savepath & csvFile(0) & schreibendung, True)
- Try
- Dim MyString As String = String.Empty
- Dim Xarray() As String = {Posi1, Buchungsdatum, Buchungsart, Buchungsident, Belegnummer, Belegdatum, EK, Buchungsbetrag, Steuerschlüssel, WährungPosition, Buchungstext, Kostenart, KSTKTR, ZahlungskonditionPosition}
- For i As Integer = 0 To Xarray.GetUpperBound(0)
- MyString = MyString.PadRight(Position(i) - 1) & Xarray(i)
- Next
- sw.WriteLine(MyString)
- Catch ex As Exception
- End Try
- sw.Close()
- Loop
- End With
- End Using
- Next
- End Sub
Die ganzen Variablen sind deklariert und kommen Teils über eine Config xml Datei.
Die zeilen länge sind immer unterschiedlich pro csv Datei.
Danke und Gruss
Thomas
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „tweber“ ()