Re: txt-datei einlesen
13.01.2003 09:54:34
Hans W. Herber
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