nur eine zeile aus datei laden

[Meflin]

Zitat von Pseudemys Nelsoni:

wurde doch schon gesagt: Seek()

stweht in meiner hilfe

Zitat:

Not used with text files

ich habe aber ein textfile

[Pseudemys Nelsoni]

naja du benutzt delphi 2005... ka wie es da ist. in <=7 geht seek() mit allen dateien.... muss ja auch, schliesslich muss man den dateizeiger auch irgendwie bewegen koennen...

[alcaeus]

Zitat von Meflin:

Zitat von Pseudemys Nelsoni:

wurde doch schon gesagt: Seek()

stweht in meiner hilfe

Zitat:

Not used with text files

ich habe aber ein textfile

Dann lies eben mit Readln solange Zeilen ein, bis du die richtige hast, oder ändere die Datei, so dass du nicht mehr mit einer Textdatei arbeiten musst.
@Pseudemys Nelsoni: Ne, Seek ging schon zu TP-Zeiten nicht mit Textfiles, frag mich aber nicht warum. Bei Textdateien (also F: Textfile) kann man nur von oben nach unten durchgehn, und dann mit Reset den Zeiger wieder an den Anfang stellen.

Greetz
alcaeus

[Pseudemys Nelsoni]

stimmt, hab ich mit (un)typisierten dateien verwechselt

[Meflin]

Zitat von alcaeus:

Dann lies eben mit Readln solange Zeilen ein, bis du die richtige hast, oder ändere die Datei, so dass du nicht mehr mit einer Textdatei arbeiten musst.

datei ändern: etwas zu umständlich
also ich hab eine zahl x, und ich will die zeile x in der datei mit möglichst wenig resourcenverbrauch auslesen (da die datei sehr groß ist will ich sie nicht komplett laden). wenn ich jetzt aber die datei wieder von vorne zeile für zeile durchgehe, kann ich sie ja auch gliech ganz auf einmal in eine stringlist laden genau sowas will ich aber verhindern. oder versteh ich da jetzt was falsch??

[alcaeus]

Also, solange x kleiner ist als die Anzahl Zeilen in deiner Datei, ist das Auslesen einzelner Zeilen immer performanter als die gesamte Datei zu laden.

So könnte das Aussehen:

Delphi-Quellcode:

function GetLine(F: TextFile; LineNo: Integer): String;
var
  i: Integer;
  s: String;
begin
  i := 0;
  while (i <= LineNo) and not EoF(F) do
  begin
    Readln(F, s);
    Inc(i);
  end;
  Result := s;
end;

Greetz
alcaeus

PS: Getestet ist der Code (wie immer) nicht

[mirage228]

Zitat von Meflin:

Zitat von Pseudemys Nelsoni:

wurde doch schon gesagt: Seek()

stweht in meiner hilfe

Zitat:

Not used with text files

ich habe aber ein textfile

Bezieht sich die Meldung auf Delphi for Win32 oder Delphi for .NET

Bei Delphi for Win32 sollte es eigentlich keine solchen Einschränkungen geben

mfG
mirage228

[Pseudemys Nelsoni]

moin mirage, ne wie es aussieht geht Seek() mit "TextFile" nicht

[alcaeus]

Hallo Leute,

da wird nicht dran gerüttelt: Seek funktioniert bei Textfiles (jedenfalls bis D7Ent) NICHT. Ich hätte es mir schon oft gewünscht, aber das Problem immer irgendwie umgehen müssen.
Dies hängt damit zusammen, da z.B. bei einem File of <Datentyp> alle Zeilen (also Einträge) eine fixe Größe haben, bei Textfiles aber nicht. Deshalb kann man bei einem File of <Datentyp> ganz einfach die Byteposition ausrechnen (Line*SizeOf(<DatenTyp>)), aber bei Textfiles geht das nicht. Und damit die Borland-Programmierer nicht eine Funktion schreiben, die die Zeilenumbrüche zählt, haben die gesagt dass Seek bei Textfiles nicht geht, und wir armen Schlucker müssen die Funktion eben selbst schreiben

Greetz
alcaeus

[shmia]

Zitat von Meflin:

ich will eine zeile aus einer datei ermitteln. normalerweise würde ich dazu die datei in enie stringlist laden und halt einfach auf den index zugreifen. allerdings wäre es performancemäßig - da ich ja vorher schon weis welche zeile ich brauche - viel besser nur diese eine zeile zu laden. ich kann mir zwar nicht vorstellen, dass das geht, aber wissen kann man ja nie

Du kannst dich nicht Duschen ohne dich nass zu machen!

Also wenn du keine Information darüber hast, wo in der Datei sich die gesuchte Zeile befindet,
dann hilft es nichts: die komplette Datei muss gelesen werden.

Du musst aller aber nicht die ganze Datei am Stück in den Speicher laden;
es reicht aus, die Datei in Blöcken von 8kb bis 256kb zu laden und dort nach den gesuchten Daten zu fanden.
Das Lesen von einzelnen Zeilen mitteln ReadLn ist im Hintergrund gepuffert aber ein Dateizugriff
mit TFileStream oder mit Windows-API ReadFile dürfte noch schneller sein.