Office: (Office 2010) Textdatei Zeilenweise einlesen: Zeilenumbruch wird nicht erkannt

Moin zusammen,

ich habe eine Tabulator getrennte Datei, bei der die neuen Zeilen mit CHR(10) erzeugt werden.
Es sind Tagesumsätze von PayPal. Wahrscheinlich auf einem amerikanischen Großrechner erzeugt -> download aus einem PayPal-Account.

Über den herkömmlichen Weg (Importspezifikation) habe ich keinen vernünftigen Import hinbekommen.

Beim zeilenweisen Einlesen wird alles in eine Tabellen-Zeile geschrieben.
Wie kann ich erreichen, dass ich jede Zeile der Importdatei auch in einer Zeile in meiner Tabellen stehen habe.

Idee: CHR(10) vor Import durch CHR(13)&CHR(10) ersetzten
Umsetzung: keine Ahnung

bisheriger Versuch:
Code:

Anbei noch eine Import-Testdatei, die Echtdaten habe ich verfälscht (Datenschutz).

Vielen Dank Stefan.

:)

 

Deine Idee mit dem Ersetzen war schon gut.

Wenn der Text in einem Tabellenfeld TextAlt steht, ist der per Abfrage gut leserlich:
Code:

 

Das liegt dann auch schon daran, dass die Textdatei Kopfzeilen enthält, die nicht der Tabellenstruktur entsprechen.

Da ich Import per Spezifikation + Abfrage bevorzuge, würde ich folgenden Ansatz bevorzugen:
1) Laden der Datei in Stringvariable: Beliebige Datei einlesen
2) Entfernen störender Zeilen, dabei ggf. Zwischenspeichern enthaltener notwendiger Informationen
+ Ersetzen der Zeilentrennung
3) Rückschreiben der Stringvariable in Textdatei: Beliebigen Text speichern
4) ... gewohnter Standardimport

Gerade bei umfangreicheren Textdateien sollte das performanter sein.

 

Hallo Maxel, hallo Ebs,
vielen Dank für Eure Anregungen.

Hab es jetzt so gelöst:

Datei öffnen und den Zeilenumbruch auf "Access- bzw. Windows like" ändern,
Datei abspeichern (hier neue Datei) und über den Import von Access "einsaugen".

Code:

Euch vielen Dank.

Stefan.

 

Auch hier würde ich den Gesamtinhalt der Datei ersetzen statt zeilenweise zu arbeiten: Massendatenverarbeitung schlägt serielle Einzelverarbeitung.

 

Hallo Ebs,

Da hast Du wohl Recht.
Da fehlt mir momentan die Erfahrung, um das umzusetzen.

So weit bin ich (nicht wirklich weit):
Code:

Aber wie bearbeite ich nun die Variable weiter ?
- nehmen wir einmal an, die ersten x Zeichen (Position würde ich über bestimmtes Zeichen (Wort) finden) im String sind zu löschen, wie mache ich das ? Ersetzten durch "" ?
- wenn nach der "ersten" Bereinigung " noch eine leere Zeile vorhanden ist, zähle ich dann Leerzeichen und finde so die Position -> ersetzen durch ""


Klar ist, dass ich die Zeilenumbrüche ersetzen muss.

Viele Grüße Stefan.

 

Hallo
probiers mal so:
Code:

 

Nun, hier kann man pure "Textverarbeitung" walten lassen.
Code:

Typisch anwendbar: Left, Right, Len, Instr, Mid
Außerdem: Replace wie gezeigt, Split (mit Delimiter vbCr/vbCrLf könntest Du den String in Zeilen zerlegen und da gezielt arbeiten)
Code:

Zusätzlich könnte man an die Verwendung von Regulären Ausdrücken denken, bspw. könnte es schwierig sein, belastbar ein bestimmtes Zeichen oder Wort als Beginn der eigentlichen Information zu definieren, ein Muster von Zeichen dann aber schon.

 

Hallo Eberhard,

Vielen Dank für den Denkansatz.

Ich werde Deine Hinweise (und die der Anderen) beachten bzw. umsetzten.
Vielen Dank an Alle.

PS: Falls ich nicht klar komme, weiß ich ja wo ich fragen kann *Smilie

 

Hallo daolix,
was bewirkt For Binary?
Wenn ich den Code stumpf kopiere, gibt es einen Fehler beim Kompelieren (strZeile = String$(LOF(#1), 0))

 

Hallo

Die Datei wird im binär-modus geöffnet, d.h so wie die Datei ist und kann byte für byte eingelesen werden.

Jup, mal wieder MS, mal ist (#) erlaubt, mal nicht. Änder das in
Code:

Theoretisch ist es, im Falle deiner Ausgangsdatei, egal ob du die zu lesenden Datei("C:\test.txt") mittels "For Input As #1" oder "For Binary As #1" öffnest, die gesamt Datei wird eingelesen. Beim Schreiben gibt es aber einen Unterschied, hier wird mit "Write #2, strZeile" der Text in der zu schreibenden Datei mit double quotes umschlossen.

 

Jup, nun funktioniert es (binär).

Ansonsten habe ich den String (wie von Ebs vorgeschlagen) in einen Array gelesen ... bereinigt und wieder als Datei gespeichert. Den Rest per Standard - Import ....


Vielen Dank an alle