Discussion:
Textdatei lesen
(zu alt für eine Antwort)
Mike Ao
2003-11-08 18:20:26 UTC
Permalink
gibt es eine möglichkeit textdateien zeilenweise einlesen?

etwa sowas?
open file MyFile.TXT
do while .not.eof(My´File.TXT)
MYVar = ReadLn(MyFile.TXT)
TuMalWas_mit_MyVar
EndDo

gruß mike

Viel vergnügen bei der Mondfinsternis
Holger Vorberg
2003-11-08 18:39:42 UTC
Permalink
Hi,
Post by Mike Ao
gibt es eine möglichkeit textdateien zeilenweise einlesen?
nhandle = fopen("meinedatei.txt")
do while !feof(m.nhandle)
cZeile = fgets(m.nhandle)
? m.cZeile
enddo
fclose(m.nHandle)
--
Tschüß,

Holger Vorberg
MS Visual FoxPro MVP
dFPUG Regionalleiter Bielefeld
Mike Ao
2003-11-08 18:58:32 UTC
Permalink
danke

also wieder zurüch nach "C".... *g*

mike
Post by Holger Vorberg
Hi,
Post by Mike Ao
gibt es eine möglichkeit textdateien zeilenweise einlesen?
nhandle = fopen("meinedatei.txt")
do while !feof(m.nhandle)
cZeile = fgets(m.nhandle)
? m.cZeile
enddo
fclose(m.nHandle)
--
Tschüß,
Holger Vorberg
MS Visual FoxPro MVP
dFPUG Regionalleiter Bielefeld
Udo Bierlage
2003-11-08 20:49:44 UTC
Permalink
Hallo Mike,
Post by Mike Ao
gibt es eine möglichkeit textdateien zeilenweise einlesen?
alternativ zu Holgers Vorschlag ( der übrigens fast identisch mit Deinem
Metacode ist ) kannst Du die Datei auf einen Schlag einlesen und dann
zeilenweise abarbeiten:

cFile = filetostr ( "c:\DieDatei.txt")

nLineCount = memlines(cFile)
FOR nLineNo = 1 TO nLineCount
cZeile = mline(cFile, nLineNo )
&& was auch immer mit der Zeile passieren soll ...
NEXT
--
Udo Bierlage, Königswinter bei Bonn
selbständiger EDV-Berater
MVP für Microsoft Visual FoxPro 2002/2003
Antwort-eMails laufen in Leere, PMs bitte an udo_at_bierlage.de
Anders Altberg
2003-11-09 13:15:00 UTC
Permalink
Noch eine möglichkeit

CREATE CURSOR x (txt M)
INSERT INTO x (txt) VALUES (FILETOSTR('name.txt') )
oder
APPEND BLANK
APPEND MEMO txt FROM name.txt

_MLINE=0
n = MEMLINES (x.txt)
FOR i = 1 TO n
lcZeile = MLINE(x.txt, 1, _MLINE)
* etwas mit lcZeile tun
NEXT

-Anders
Post by Mike Ao
gibt es eine möglichkeit textdateien zeilenweise einlesen?
etwa sowas?
open file MyFile.TXT
do while .not.eof(My´File.TXT)
MYVar = ReadLn(MyFile.TXT)
TuMalWas_mit_MyVar
EndDo
gruß mike
Viel vergnügen bei der Mondfinsternis
Jürgen Wondzinski
2003-11-09 13:26:06 UTC
Permalink
Und weil's in VFP immer mehr als einen Weg gibt:

FOR i = 1 TO ALINES(aZeilen,FILETOSTR(GETFILE("TXT"))
? aZeilen(i)
ENDFOR

Hat zwar ein Limit auf max 65000 Zeilen, aber sollte für'n Anfang reichen
--
Servus

wOOdy


|\_/| ------ ProLib - programmers liberty ---------
(.. ) Unsere MVPs bringen den Fuchs zum Laufen...
- / auf www.prolib.de und www.AFPages.de
Mike Ao
2003-11-09 16:15:05 UTC
Permalink
Post by Jürgen Wondzinski
Hat zwar ein Limit auf max 65000 Zeilen, aber sollte für'n Anfang reichen
da gibt's dann bei ELDANORM doch ein problem

ich hab mich derweilen für die 'C'-Variante entschieden, aber gut zu wissen
was man da noch so alles treiben kann

mike

Lesen Sie weiter auf narkive:
Loading...