Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
288to292
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
288to292
288to292
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

In Textdatei Zeilenende ermitteln

In Textdatei Zeilenende ermitteln
06.08.2003 07:55:19
Gabor
Hi Community,

gern würde ich mal wieder eure Hilfe in anspruch nehmen...
Mit nachfolgendem Code lese ich Daten aus einem Textfile ein.
Mein Problem ist nun, das die Werte für "Turnen(ZZ).Zeiten" von 1-5 in einer Zeile variieren. Gibt es eine Möglichkeit(Methode) wie bei Textstreamobjekten, das Ende der Zeile festzustellen ?

Gruß Gabor

~begin~
Set FS = CreateObject("Scripting.FileSystemObject")
If FS.Fileexists(ThisWorkbook.Path & "\" & TurnenDat) Then
FF = FreeFile
Open ThisWorkbook.Path & "\" & TurnenDat For Input As FF
Do Until EOF(FF)
ReDim Preserve Turnen(ZZ)
Input #FF, LAbt
If LAbt = AktAbt Then
Turnen(ZZ).Abteilung = LAbt
Input #FF, Turnen(ZZ).Starttag, Turnen(ZZ).Zeiten(1),
Turnen(ZZ).Zeiten(2), Turnen(ZZ).Zeiten(3),
Turnen(ZZ).Zeiten(4), Turnen(ZZ).Zeiten(5)
End If
ZZ = ZZ + 1
Loop
Close #FF
Erfolg = True
Else
Erfolg = False
End If
Set FS = Nothing
~end~

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: In Textdatei Zeilenende ermitteln
06.08.2003 08:35:46
Nike
Hi,
das Ende hast du ja schon mit end of File:
Do Until EOF(FF)

wenn du rausbekommen möchtest wieviele Einträge,
dann würde ich auf ZZ-1 geifen, oder mal mit Ubound( )
versuchen...

Bye

Nike


AW: In Textdatei Zeilenende ermitteln -noch offen
06.08.2003 08:54:52
Gabor
Hi Nike,

danke für deine Antwort. Jedoch stellt EOF das Ende der Datei dar und nicht das Ende einer Zeile in dieser Datei. Ich muss die Anzahl der Einträge vor
Input #FF, Turnen(ZZ).Starttag, Turnen(ZZ).Zeiten(1),Turnen(ZZ).Zeiten(2),
Turnen(ZZ).Zeiten(3),Turnen(ZZ).Zeiten(4), Turnen(ZZ).Zeiten(5)

wissen, da wenn es nur 3 Einträge sind, automatisch ein Fehler auftritt.

Es geht nich darum zu ermitteln wieviele Turnen es gibt, sondern ob z.B. Turnus(1)
5 Zeiten beinhaltet oder nur 3. Und dies vor der Zuweisung an die Variable.

Gruß Gabor


Anzeige
AW: Alternative?
06.08.2003 09:01:50
Nike
Hi,

ich würde vielleicht versuchen nicht Zeilenweise einzulesen,
sondern vielleicht mit Workbooks.OpenText die Datei einzulesen
und dann auszuwerten...
Vielleicht ne Alternative.

Bye

Nike


AW: Alternative?
06.08.2003 10:17:54
Gabor
Hallo Nike,

dies möchte ich umgehen. Naja, dann werde ich entwerde die gesamte Zeile auslesen und mit Instr teilen oder eine Scheinbelegung machen... Hätt ja sein können, das es einfacher geht.

Ich danke dir für deine Mühe.

Gruß

Gábor


AW: Warum?
06.08.2003 11:54:48
Nike
Hi,

> dies möchte ich umgehen.

Könntest du sagen, warum du das umgehen möchtest?
Performance, Umformatierungen oder warum?

Bye

Nike


Anzeige
AW: Warum?
07.08.2003 07:45:34
Gabor
Hi,

ja, Performance ist ein Grund (wäre auf meinem Homerechner sicher kein Problem).
Und natürlich die Umständlichkeit bei der Programmierung.

Ich danke dir.

Gruß

Gabor


Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige