Auslesen von CSV und Array exportieren in text file mit unterschiedlichen abständen

tweber · 25. August 2021, 09:54

Hallo zusammen,

ich habe da ein kleines Problem.
Ich möchte gerne eine CSV Datei auslesen anhand des Seperators.
Dies habe ich gemacht und möchte diese nun in eine Text datei schreiben mit unterschiedlichen abständen.

So siehst mein code im moment aus.

VB.NET-Quellcode

Sub ReadandWriteCSV()
Dim finfo As New IO.DirectoryInfo(Loadpath)
For Each fi In finfo.GetFiles(strTyp)
Using csvParser As New TextFieldParser(fi.FullName)
With csvParser
.SetDelimiters(Delimiters)
.HasFieldsEnclosedInQuotes = False
Dim FieldData() As String
Debug.WriteLine(fi.FullName)
Do While Not .EndOfData()
FieldData = .ReadFields()
Dim csvFile() As String = fi.Name.Split(CChar(".csv"))
Try
Dim sw As System.IO.StreamWriter
sw = FileSystem.OpenTextFileWriter(Savepath & csvFile(0) & ".arc", True)
Dim MyString As String
MyString = String.Join("", FieldData)
sw.WriteLine(MyString)
sw.Close()
Catch ex As Exception
End Try
Loop
End With
End Using
Next
End Sub

Wo ich das String.Join("", FieldData) mache setzt er mir alles in eine reihe.
Nun brauche ich diese unterschiedlichen abstände die aus einer Config.xml datei kommen.

Als Bsp.

Array(0)	Array(1)	Array(2)
4Zeichen lang, Startet auf Position1	12Zeichen lang, Startet auf Position 34	2Zeichen lang, Startet auf Position 52
XXiX	Bla bLa bla	und so weiter

Danke und Gruss

Code -Tags korrigiert ~EaranMaleasi

RodFromGermany · 25. August 2021, 12:51

@tweber Willkommen im Forum. :thumbup:

Was verstehst Du unter "unterschiedlichen Abständen"?
Mit String.PadLeft(...) und String.PadRight(...) kannst Du Strings auffüllen und so eine definierte Breite einstellen:
docs.microsoft.com/de-de/dotnet/standard/base-types/padding

Eierlein · 25. August 2021, 12:54

VB.NET-Quellcode

Option Strict On
Option Explicit On
Imports System.Text
Module Module1
Sub Main()
Dim t As String = "EINS;ZWEI;DREI"
Dim tmp$
Dim arr() As String
arr = t.split(";"c)
tmp = arr(0).PadRight(33)
tmp &= arr(1).PadRight(18)
tmp &= arr(2).PadRight(5)
Debug.Print("123456789012345678901234567890123456789012345678901234567890")
Debug.Print(tmp)
End Sub
End Module

tweber · 26. August 2021, 07:39

Hallo zusammen,

Danke für eure Antworten.

@Eierlein
Die Idee ist gut aber ich benutze ein Array().
Die Maximalen Zeilen sind auch immer Variable in den Files.

FieldData() ist mein eigentliches Array.
Was ich schon über .SetDelimiters(Delimiters) splitte.
Mit MyString = String.Join(" ", FieldData) Joine ich das ganze.

Jetzt hätte ich gerne beim Join(" ", FieldData) Bei dem Feldtrenner die Position.
Da die Position aber unterschiedlich sind, ist es glaube ich so der Falsche ansatz.

VB.NET-Quellcode

Dim MyString As String
MyString = String.Join(" ", FieldData)
If Not MyString.Contains(Header) Then
sw.WriteLine(MyString)
End If

So Sieht mein array im moment aus.

NameWertTyp
◢FieldData{Length=6}String()
(0)"60d16f7b36e3c703237fe7d7"String
(1)"E000040323"String
(2)"post"String
(3)"2021-06-22T05:04:59"String
(4)"4"String
(5)"c4cbfe20-d036-11eb-a01a-0583e7cccfa5"String

RodFromGermany · 26. August 2021, 07:53

tweber schrieb:

Die Idee ist gut aber ich benutze ein Array().

Ja und?
Poste mal den Inhalt Deiner CSV-Datei und das Resultat, wie es danach bei Dir aussehen soll.
Benenne die relevanten Werte aus Deiner Config.xml-Datei.

tweber · 26. August 2021, 08:42

Hier der Inhalt des CSV.

Quellcode

event_id,ecm_id,event_name,created_at,schema_version,edoc_document_id
60d16f7b36e3c703237fe7d7,E000040323,post,2021-06-22T05:04:59,4,c4cbfe20-d036-11eb-a01a-0583e7cccfa5
event_id,ecm_id,company_id,barcode,vendor_id,vendor_name,vendor_account,vendor_address_street,vendor_address_city,vendor_address_zip,invoice_type_id,invoice_type_text,confidential,workflow_type,external_number,internal_number,invoice_date,posting_date,currency,net_amount_1,vat_amount_1,vat_percent_1,net_amount_2,vat_amount_2,vat_percent_2,net_amount_3,vat_amount_3,vat_percent_3,net_amount_4,vat_amount_4,vat_percent_4,net_total,vat_total,gross,payment_terms_id,payment_terms_text,payment_discount_days,payment_discount_month,payment_discount_percent,payment_net_days,payment_net_month,payment_discount_use,payment_due_date,payment_discount_amount,payment_net_date,Mandantenspezifisch,finance_id
60d16f7b36e3c703237fe7d7,E000040323,SRS,ER10000272,L000012,"Strassenverkehrsamt Frauenfeld",L000012,"Moosweg 7a",Frauenfeld,8501,1,Rechnung,Nein,Kostenrechnung,RG1601130,ER10000272,2021-06-16,2021-06-22,CHF,736,56.67,7.7,0,0,0,0,0,0,0,0,0,736,56.67,792.65,030,"30 Tage netto",0,0,0,30,0,1,2021-07-16,0,2021-07-16,,100
event_id,ecm_id,row_index,account,cost_center,net_amount,vat_amount,vat_percent,gross_amount,posting_text
60d16f7b36e3c703237fe7d7,E000040323,0,11012,757,200,15.4,7.7,215.4,"dies ist eine KST"
60d16f7b36e3c703237fe7d7,E000040323,1,11012,KA21000022,536,41.27,7.7,577.27,"dies ist ein KTR"

Die überschriften brauche ich nicht.

Hier wie es rauskommen soll.

Quellcode

XX100 210602 DIV 2L222286 V2SHB-hWI 210507 ER 00000000040,20+00000000000,00+ 92 V2SHB-hWI Lang Energie AG 001
XX100 210602 SAB 040020 V2SHB-hWI 210507 ER 00000000037,33-00000000002,87- 92 V2SHB-hWI Lang Energie AG 2SA21805588 001
XX100 210602 DIV 2L222505 _WOOP8fVX 210517 ER 00000000031,15+00000000000,00+ 999 _WOOP8fVX Brownbag lunch 13 Personen 001
XX100 210602 SAB 065220 _WOOP8fVX 210517 ER 00000000030,10-00000000000,75- 95 _WOOP8fVX Brownbag lunch 13 Personen 1757 001
XX100 210602 SAB 065220 _WOOP8fVX 210517 ER 00000000000,30-00000000000,00+ 97 _WOOP8fVX Brownbag lunch 13 Personen 1757 001
XX100 210602 DIV 2L222286 nRPeFEbKb 210505 ER 00000000003,00+00000000000,00+ 92 nRPeFEbKb City-Garage AG St. Gallen 001
XX100 210602 SAB 040020 nRPeFEbKb 210505 ER 00000000002,79-00000000000,21- 92 nRPeFEbKb City-Garage AG St. Gallen 2SA21805588 001

Position1 ist immer das gleiche und die Berechnung sollte ab position2 losgehen.
Hier die Positionen.

Config.

Quellcode

<Loadpath>C:\tmp\Yokoy\Files\</Loadpath>
<Savepath>C:\tmp\Yokoy\Backup\</Savepath>
<Errorpath>C:\tmp\Yokoy\Error\</Errorpath>
<logpath>C:\tmp\Yokoy\Log\</logpath>
<strTyp>*.csv</strTyp>
<Delimiters>,</Delimiters>
<leseendung>.csv</leseendung>
<schreibendung>.arc</schreibendung>
<Header>event_id</Header>

Weiterhin habe ich dort nur die Positionen und die Länge definiert.

Gruss
Thomas

HenryV · 26. August 2021, 10:35

Hallo Thomas

Wie du von der CSV zu deiner Ausgabe kommst ist mir ein Rätsel. Da gibt es keine übereinstimmenden Daten.
Nichtsdestotrotz habe ich die erste Zeile deiner gewünschten Ausgabe genommen und sie per Code nachgestellt.

VB.NET-Quellcode

'Die Erste Zeile deiner Ausgabe als Array
Dim FieldData() As String = {"XX100", "210602", "DIV", "2L222286", "V2SHB-hWI", "210507", "ER", "00000000040,20+00000000000,00+", "92", "V2SHB-hWI", "Lang Energie AG", "", "001"}
'Die Position der einzelnen Strings gemessen nach deiner Ausgabe als Array (muss du wohl aus der Config.XML einlesen)
Dim Position() As Integer = {1, 12, 34, 40, 69, 83, 95, 116, 161, 293, 338, 407, 461}
Dim MyString As String = String.Empty
'Diese Schleife ersetzt dein String.Join()
For i As Integer = 0 To FieldData.GetUpperBound(0)
MyString = MyString.PadRight(Position(i) - 1) & FieldData(i)
Next
Debug.Print(MyString)

tweber · 26. August 2021, 11:41

Hallo Henry,

ja leider habe ich nur 1 CSV und eine Export Datei mit unterschiedlichen Daten hier.
Ich werde das ganze mal Versuchen und Testen.

Danke und Gruss
Thomas

Auslesen von CSV und Array exportieren in text file mit unterschiedlichen abständen

Auslesen von CSV und Array exportieren in text file mit unterschiedlichen abständen

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

tweber schrieb:

Quellcode

Quellcode

Quellcode

VB.NET-Quellcode

Tags

Ähnliche Themen

4 Benutzer haben hier geschrieben