txt-datei einlesen

Darius · 2003-01-13T08:24:52+00:00

Hi Folks, Habe ein kleines problem veilleicht hat ja jemand eine schnelle lösung. Und zwar handelt es sich um eine txt datei, die möchte ich einlesen, die werte in dieser TXT datei sind mit leerzeichen getrennt, hat vielleicht jemand eine VBA-lösung für mein Problem? Bei dieser txt datei handelt es sich ursprünglich um eine Mail, vielleicht ist es sogar möglich sich diese Mail direkt ausm Outlook zu greifen und dann einzulesen. Gruß darius

hi Hans,

wow, ihr seid hier echt genial.....
sorry das ich dir noch mal auf die Nerven gehe, folgendes Prob.
das ist mein Mail file:

Product: |130103 140103 150103 160103 170103 180103 190103 200103 210103
--------------------------------------------------------------------------------
a * 0 0 20000 0 0 0 0 0 0
b * 0 0 10000 0 0 0 0 0 0
c * 0 0 10000 0 0 0 0 0 0
d * 0 0 250 0 0 0 0 0 0
e | 4 0 0 0 0 0 0 0 0
f | 18 0 102 89 0 0 0 0 0
--------------------------------------------------------------------------------
Total Prod./EACH| 25321 2727 52773 2741 3956 0 0 3113 2104
Dieses muss ich einlesen, jetzt sind noch die Werte halt mit einem leerzeichen getrennt.
Dein Script tut soweit, jedoch verteilt er mir diese werte ganz konfuß auf der kompletten xls-Seite.
Kann es sein, das er nicht weiß wann eine Zeile aufhört?

Dank nochmals für deine Bemühungen

Gruß darius

Hallo Darius,

es handelt sich hier nicht um eine Textdatei mit eine Leerzeichen als Feldsparator. Was Du da hast ist eine Textdatei, die in jeder Spalte unterschiedlich viele Leerzeichen aufweist, da hat mein Code keine Chance, denn er sieht jedes Leerzeichen als eine neue Spalte an.

Wenn es sich um eine Datei mit festen Feldlängen je Spalte handelt, splitte den jeweiligen Zeilentext nach diesen Feldlängen auf, sind die Feldlängen in den Spalten unterschiedlich, in den einzelnen Dateien aber gleich, müssen die einzelnen Felder aufgedröselt werden.

Möglicherweise ist die Tabelle aber auch um eine Tab-separierte Datei. In diesem Fall ersetze in meinem Code das " " durch ein vbTab.

Ohne es testen zu können, reicht es aber auch, wenn Du nach der Zeile:
Line Input #1, sTxt

eine neue Zeile:
sTxt = WorksheetFunction.Trim(sTxt)
einfügst.

Jede Textdatei hat ihre Eigenheiten, generelle Lösungen sind hier selten.

hans

Forumthread: txt-datei einlesen

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

txt-Datei in Excel einlesen mit VBA

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)