Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
160to164
160to164
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Textfile einlesen, Leerzeichen am Anfang ignoriere

Textfile einlesen, Leerzeichen am Anfang ignoriere
17.09.2002 11:03:30
Heiko
hi,
ich hab´s zwar hingekriegt, per Makro eine Textdatei mit 2 Spalten, getrennt durch ein Leerzeichen als Feldseparator, in Excel einzulesen, aber die Leerzeichen am Anfang des Strings werden jeweils auch als Feldseparator interpretiert, wodurch am Anfang 2 leere Spalten eingefügt werden. Da die Quelldatei dummerweise am Anfang 2 Leerzeichen enthält, solange die Zahl vor dem Komma einstellig ist und nur noch ein Leerzeichen hat, wo die Zahl zweistellig wird, ist die Anzahl der Leerzeichen vor dem Komma auch noch variabel. Bei zweistelligen Zahlen in Spalte 1 wird also nur noch eine leere Spalte in die Excel-Datei eingefügt.

Bsp:
**1.02*1234.00000
*10.02*1234.00000
* für Leerzeichen

Gibt es eine Möglichkeit bzw. einen Befehl in VBA, um zwischen Leerzeichen am Anfang des Strings und mittendrin zu unterscheiden?

Vielen Dank, Heiko


2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Textfile einlesen, Leerzeichen am Anfang ignoriere
17.09.2002 11:14:55
Harald Kapp
Hallo Heiko,
gibt es so wie gewünscht nicht.
Aber wenn Du eh ein festes Spaltenformat hast, könntest Du das Problem so lösen:

... Zeile in Variable InZeile lesen, dann so weiter ...
Spalte1 = left(InZeile,6)
Spalte2 = mid(InZeile,8,10)

Gruß Harald

Re: Textfile einlesen, Leerzeichen am Anfang ignoriere
17.09.2002 11:15:07
Roland Köstring
Hallo Heiko,
mein Vorschlag:
- gesamte Zeile einlesen,
- vordere Blanks mit LTRIM eliminieren,
- Zeile dann mit SPLIT in einzelne Felder zerlegen
Gruss Roland
Anzeige

332 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige