Office: (Office 2010) Die ersten Zeilen einer csv/txt Datei entfernen

Claypool · 6. Oktober 2014

Hallo!

Eberhard (ebs17) hatte hier beschrieben, wie man eine bestimmte Anzahl an ersten Zeilen von Text bzw. CSV Dateien entfernt, bevor sie importiert werden.

Ich habe jetzt ebenfalls Text bzw. CSV Dateien, die ich mit Eberhards Codebeispiel bearbeite. Vielen Dank für deine Vorarbeit Eberhard.
In den CSV Dateien (unter Excel betrachtet) sieht man 2 Zeilen, die entfernt werden müssen, dann kommen in der 3. Zeile die Spaltenüberschriften.

In der Textdatei (im Editor ohne Zeilenumbruch angezeigt) ist der Übergang ohne erkennbares Trennzeichen zwischen Infozeile und den Spaltenüberschriften ('Ende Text der ÜberschiftSpalte1;Spalte2...)

Mit Zeilenumbruch gibt es genau an der Stelle auch einen entsprechenden Zeilenumbruch.

Ich habe es jetzt als Trennzeichen mit dem letzten Begriff aus der Überschriftenzeile probiert '(07143)'. Dann bleibt allerdings eine erste leere Zeile übrig. Verwende ich als Trennzeichen die erste Spaltenüberschrift 'LfdNr' dann gibt es die Leerzeile nicht, die erste Spaltenüberschrift ist dann aber entfernt. Ist ja auch logisch.

Wie kann ich das Problem in den Griff bekommen?

Nach dem Import habe ich pro Datei einen Datensatz importiert, der nur einen Wert in einer Spalte enthält. Nämlich einen Teil aus dem Dateinamen. Alles andere kommt aus den Dateien selber. Das ist bei der Weiterverarbeitung nicht schlimm, da anhand der Spalten gruppiert und summiert wird. Da fallen dann diese "unnötigen" Datensätze nicht ins Gewicht.
Zunächst dachte ich, dass bei der Kreuztabelle die erste Leerzeile, die dort entsteht, ihre Ursache in den unvollständigen Datensätzen findet. Das ist aber nicht der Fall und evtl auch ein anderes Thema.

Eine anonymisierte CSV Datei kann ich leider nicht schicken, sobald ich die in Excel bearbeite und als CSV speichere ist auch an anderen Stellen verändert, die ich nicht bearbeitet habe. Textdatei kann ich bei bedarf und bearbeitet sowie gekürzt zur Verfügung stellen.

Hier sind die beiden Prozeduren:
Code:

Private Sub cmdImportCSVFiles_Click()
'Acc2003 - Textfile importieren - MS-Office-Forum
'Codeschnipsel von Eberhard (ebs17) MS-Office-Forum - Einzelnen Beitrag anzeigen - Textfile importieren

Dim db As DAO.Database
Dim sPath As String
Dim sFile As String
Dim sSQL As String
Set db = CurrentDb
Dim iZaehler As Integer
sPath = Me!Datenpfad

iZaehler = 0
db.Execute "DELETE tbl_Import.* FROM tbl_Import;"
Me!txtLog = ""
Me!txtLog = Me!txtLog & "Starte import... " & vbCrLf & "Lösche Daten in 'tbl_Import'..." & vbCrLf

' Sicherungskopie der Originale erstellen. Dazu erstmal ein Verzeichnis anlegen, falls es das noch nicht gibt
If Dir(sPath & "\Original", vbDirectory) = "" Then
MkDir sPath & "\Original"
End If

sFile = Dir(sPath & "\*." & Me!cboSuffix)

Do While sFile > ""

If Me.ctrDateimanipulation = 0 Then 'Liste der Einzelnachweise zum Verfahren A2LL / SGB II Kommune: Westerwaldkreis
' Datei als Original kopieren
FileCopy sPath & "\" & sFile, sPath & "\Original\" & sFile
' Dateien auslesen und verändern
fDeleteFirstLines sPath & "\" & sFile, "(07143)", 1
End If

sSQL = "INSERT INTO tbl_Import ( LfdNr, Einzelnachweis, Finanzposition, Betrag ) " & _
"SELECT T.LfdNr, '" & Left(Right(sFile, 12), 8) & "', T.Finanzposition, T.Betrag " & _
"FROM [Text;DSN=SpecEZN;DATABASE=" & sPath & ";FMT=Delimited;HDR=yes;IMEX=0;CharacterSet=850;TextDelim=']." & sFile & " AS T"
db.Execute sSQL, dbFailOnError

Application.Echo False
iZaehler = iZaehler + 1
Me!txtLog = Me!txtLog & "Importiere " & iZaehler & ". Datei " & sFile & vbCrLf
Me!txtLog.SetFocus
Me!txtLog.SelStart = Len("" & Me!txtLog)
Application.Echo True
Me.Repaint

sFile = Dir
Loop

Set db = Nothing
Me!cmdMonatsergebnisAnzeigen.SetFocus
Me!txtAnzImpDS.Visible = True
Me.Refresh
End Sub

Public Function fDeleteFirstLines(ByRef sFilename As String, _
ByVal sDelimiter As String, _
Optional ByVal iCount As Integer = 1) As String

Const ForReading As Integer = 1
Const ForWriting As Integer = 2
Dim vArr As Variant
Dim sText As String
'Dim sFirstLine As String
Dim oFSO As Object
Dim oStream As Object

If iCount < 1 Then Exit Function
Set oFSO = CreateObject("Scripting.FileSystemObject")
Select Case oFSO.GetExtensionName(sFilename)
Case "txt", "csv"
Case Else
Set oFSO = Nothing
Exit Function
End Select

Set oStream = oFSO.OpenTextFile(sFilename, ForReading)
'sFirstLine = oStream.ReadLine
sText = oStream.ReadAll
oStream.Close
vArr = Split(sText, sDelimiter, iCount + 1)
Set oStream = oFSO.OpenTextFile(sFilename, ForWriting)
oStream.Write Trim(vArr(iCount))
oStream.Close
Set oStream = Nothing
Set oFSO = Nothing

fDeleteFirstLines = sText 'sFirstLine
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Vielen Dank!

Grüße
Ingo

:)

Arne Dieckmann · 8. Oktober 2014

Eine Textdatei zum Testen wäre nicht schlecht. Vielleicht ist als Zeilentrenner nur der "Linux-Umbruch" in Verwendung und du müsstet vbCr (also ohne Lf) oder vbLf (also ohne Cr) als Trennzeichen verwenden?

Steffen0815 · 8. Oktober 2014

Hallo,
wenn du die CSV mit Excel öffnest wird sie konvertiert.
Es macht aber keinen Sinn ein konvertiertes Ergebnis zu posten.

Poste die csv (Textdatei). Wenn du sie anonymisieren musst, darfst du natürlich die Struktur (z.B. Zeilenumbruchszeichen) nicht verändern.

Hast du dafür keinen "ordentlichen" Editor zur Verfügung tut es zur Not vermutlich auch das NodePad (!!nicht Word oder Wordpad).

Ps.
Dein Löschcode ist dabei ein eher ungünstiger Ansatz. Hier sollte man zeilenweise einlesen dann ist es egal ob Windows/Unix oder MAC-Datei.

ebs17 · 8. Oktober 2014

Übergang ohne erkennbares Trennzeichen zwischen Infozeile und den Spaltenüberschriften
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Irgend etwas muss es ja geben, was dann auch ermittelbar ist:
a) Verwende einen besseren Editor wie etwa Notepad++ . Dort werden dann auch Steuerzeichen (Whitespaces) sichtbar dargestellt.
b) Durchlaufe den interessanten Bereich zeichenweise und schau Dir so das Trennzeichen an:
Code:

For i = start To ende
Debug.Print Asc(Mid$(Text, i, 1))
Next
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Den zweiten Teil habe ich nicht verstanden.

Claypool · 8. Oktober 2014

Hallo Arne, hallo Steffen, hallo Eberhard,

danke für eure Antworten.

ich hatte Chr(10), vbCrLf und vbCr probiert. vbLf schloss ich aus... Danke für den Tipp. Jetzt habe ich das Trennzeichen gefunden.

Es wird aber immer noch ein Datensatz zuviel angelegt und das kann ich mir nicht erklären....
[zwischen diesen Zeilen und den nächsten liegt eine etwas längere Zeitspanne...]
Doch, kann ich. In den Dateien ist in der allerletzten Zeile noch ein Lf.
Wie kann ich das denn vor dem Import entfernen? Andererseits wäre es nur ein Schönheitsfehler. Berechnet werden die leeren Datensätze nicht. Die gehören einfach nicht da hin. Ich könnte vor der eigentlichen Abfrage, die mir eine Zusammenfassung der Daten liefert eine Aktualisierungsabfrage einfügen, die nach dem Import die leeren Zeilen löscht.
Einfacher wäre es aber, während des Schreibvorgangs der Zeilenentfernung auch die letzte Zeile zu löschen.

[Jetzt ist noch mehr Zeit vergangen...]
Noch viel einfacher ist es aber in der MySysIMEXSpecs den Wert des Feldes StartRow auf 2 zu setzen. Dann werden die ersten beiden Zeilen einfach ignoriert. Das Feld kann man über beim Importassisten verändern. Allerdings nur 0 oder 1 je nachdem ob man Spaltenüberschriften Ja oder Nein angibt. Ab Access 2007 oder jünger kann man aber auch direkt auf Tabellenebene den Wert ändern. Ich habe es gerade getestet.

Bleibt demnach noch die Frage offen: Wie lösche ich die letzte Zeile?

Grüße
Ingo

Claypool · 7. Januar 2021

Hallo Eberhard,

von ebs17

Den zweiten Teil habe ich nicht verstanden.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Meintest du diesen zweiten Teil?

Nach dem Import habe ich pro Datei einen Datensatz importiert, der nur einen Wert in einer Spalte enthält. Nämlich einen Teil aus dem Dateinamen. Alles andere kommt aus den Dateien selber. Das ist bei der Weiterverarbeitung nicht schlimm, da anhand der Spalten gruppiert und summiert wird. Da fallen dann diese "unnötigen" Datensätze nicht ins Gewicht.
Zunächst dachte ich, dass bei der Kreuztabelle die erste Leerzeile, die dort entsteht, ihre Ursache in den unvollständigen Datensätzen findet. Das ist aber nicht der Fall und evtl auch ein anderes Thema.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Vor der Kreuztabelle wird eine Abfrage gestartet
Code:

SELECT tbl_Import.Einzelnachweis, tbl_FiPo.FiPoNummer, Sum(tbl_Import.Betrag) AS SummevonBetrag, tbl_FiPo.FipSort
FROM tbl_Import RIGHT JOIN tbl_FiPo ON tbl_Import.Finanzposition = tbl_FiPo.FiPoNummer
WHERE (((tbl_FiPo.FiPoAnzeige)=-1))
GROUP BY tbl_Import.Einzelnachweis, tbl_FiPo.FiPoNummer, tbl_FiPo.FipSort
ORDER BY tbl_FiPo.FipSort;
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Der Right Join führt dazu, dass in der Kreuztabelle eine erste leere Zeile entsteht.
Code:

TRANSFORM Sum(qry_Zusammenfassung.SummevonBetrag) AS Betrag
SELECT qry_Zusammenfassung.Einzelnachweis, Sum(qry_Zusammenfassung.SummevonBetrag) AS Tagessumme
FROM qry_Zusammenfassung
GROUP BY qry_Zusammenfassung.Einzelnachweis
ORDER BY qry_Zusammenfassung.FipSort
PIVOT qry_Zusammenfassung.FipSort;
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ich denke, dass man diese Zeile nicht entfernen kann. In der ersten Abfrage benötige ich alle Datensätze aus der tbl_FiPo.

Grüße
Ingo

ebs17 · 8. Oktober 2014

Die letzte Zeile entsteht nach oben verlinkter Routine nur über das Split, da der Text mit einem Trennzeichen abschließt.
Code:

If Right$(sText, 1) = vbLf Then sText = Left$(sText, Len(sText) - 1)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Claypool · 9. Oktober 2014

Hallo Eberhard,

die Zeile entsteht nicht durch das Split in der verlinkten Routine, sie ist schon vorhanden. Mit deinem Einzeiler kann ich die vor dem Split aber löschen und es werden nun die korrekte Anzahl an Datensätze importiert.

Viele Dank!

Grüße
Ingo

Office: (Office 2010) Die ersten Zeilen einer csv/txt Datei entfernen

Die ersten Zeilen einer csv/txt Datei entfernen

Die ersten Zeilen einer csv/txt Datei entfernen

Die ersten Zeilen einer csv/txt Datei entfernen

Die ersten Zeilen einer csv/txt Datei entfernen

Die ersten Zeilen einer csv/txt Datei entfernen - Similar Threads - Zeilen csv Datei

VBA in einer Zeile zu lang

Wenn ein Wert ein einer Spalte, dann komplette Zeile im anderen Blatt untereinander einfügen.

Buchsatz mit Word: untere Zeile der Seiten immer auf der gleichen Höhe

leere Zelle in Zeile finden

VBA: Platzhalter ersetzen und evtl. leere Zeile einfügen

Zeilen anders anordnen (oberste nach unten, usw.)

nur bestimmte zeilen als csv exportieren