CSV Editor zum löschen von Spalten

[Kuwer]

Hallo Daniel,

Kann der Pfad vorher aber abgefragt werden ?

kann man:

Public Sub CSV_Kuerzen()

 Dim lngZ As Long

 Dim sPfad As String, sTextRaus As String, sTextRein As String

 Dim vText As Variant, vZeile As Variant

  

 sPfad = Application.GetOpenFilename("Textdateien (*.csv),*.csv")

 If Not CVar(sPfad) = False Then

   'Einlesen der Datei

   sTextRein = dat_ReadText(sPfad)

   

   'Text wird zeilenweise in Arrayvariable eingelesen

   vText = Split(sTextRein, vbNewLine)

    

   'alle Zeilen auf 33 Spalten kürzen

   For lngZ = 0 To UBound(vText) - 1

     vZeile = Split(vText(lngZ), ";")

     ReDim Preserve vZeile(32)

     vText(lngZ) = Join(vZeile, ";")

   Next lngZ

    

   'bearbeiteten Text in Datei zurückschreiben

   sTextRaus = Join(vText, vbNewLine)

   dat_WriteText sPfad, sTextRaus

 End If

End Sub

Gruß Uwe

[Daniel Albert]

Guten Morgen, danke funktioniert einandfrei. Habe noch eine MsgBox hinzugefügt sonst denkt man es passiert nichts :)

Wir werden es morgen ausprobieren ob die Mysql DB mit dieser Datei zurecht kommt.

Ich finde aber den Lösungsansatz gut den Konverter per Excel zu ersetzen da wir so die Möglichkeit haben selbst Änderungen mit eurer Hilfe vorzunehmen. Muss mir nur noch genau Gedanken machen nach was der Konverter die csv Datei zerlegt.

Ich melde mich.

Danke üfr die schnelle Hilfe an alle

[steve1da]

Hola,

verlinkst du bitte beim nächsten mal deine Beiträge untereinander?

https://www.computerbase.de/forum/showth...?t=1626648

Gruß,
steve1da

[Daniel Albert]

Hallo, also heute haben wir einiges erreicht. Die Daten werden in absehbarer Zukunft nicht mehr als csv uns geliefert sondern als xml Datei. Mit dieser ist eine Umstellung und Aufsplittung wesentlich einfacher für uns und wenn alles gut läuft können diese auch direkt in die Datenbank eingespielt werden, was aber noch ein wenig dauert.

Der Makro Code den ihr mir erstellt habt hilft uns aber sehr gut für den Übergang. Der Konverter nimmt die bereinigte csv Datei an und erzeugt alle relevaten xls Tabellen. Nun brauche ich nur noch die Rückmeldung von der Person die dann diese in die Datenbank einspielt ob alles passt. Ich melde mich dann. Großen Dank an eure Unterstützung

[shift-del]

verlinkst du bitte beim nächsten mal deine Beiträge untereinander?

https://www.computerbase.de/forum/showth...?t=1626648

Boah, was du alles findest!