Texte aus .txt auslesen aber nur eine bestimmte Zeile

[taktaky]

Hallo

mit dem Code kann man die ganze Inhalt in der Datei .txt auslesen
Ich möchte aber dies nicht in Memo oder ListBox importieren sondern in Edit (Einzelzeile)
wenn ich den Code verwende, wird die letzte Zeile ausgelsen !

Der Code ist da

Ich möchte aber nur eine bestimmte Zeile auslesen.

[Corpsman]

oh man

da steht while not eof(f) do

und du machst daraus einfach nur

Delphi-Quellcode:

i := 0;
while not eof(f) and (i < Zeilennummer)do
inc(i);
..

der Rest bleibt Gleich.

Deine Zeilennumer ist dann die die du haben willst.

wenn deine TXT file so viele zeilen hat. anderfalls wird die Letzte Zeile zurückgegeben.

[Nikolas]

Dann lese nicht, solange die Datei noch nicht zu Ende ist, sondern bis du deine Datei gefunden hast. Also entweder einen Zähler mitlaufen lassen oder nach dem lesen überprüfen ob es deine Zeile ist. Vielleicht solltest du dich etwas mit programmiertechnischen Grundlagen auseinandersetzen, bevor du anfängst mit virtuellen Laufwerken durch die Gegend zu werfen, wenn du da noch keine Zeile verstehst, oder Ahnung von Programmierlogik hast...

[scrat1979]

Hab mal folgendes für Dich geschrieben, muß evtl. angepasst werden, das Prinzip dürfte aber klar sein...

Delphi-Quellcode:

Function LeseZeileAusDatei(Dateiname : String; Zeile : Integer) : String;
VAR Zeilen : TStringList;
Begin
  Zeilen := TStringList.Create;
  Zeilen.LoadFromFile(Dateiname); // Evtl. hier noch Fehlerbehandlung wenn Datei nicht gefunden...
  Try // Falls nicht vorhandene Zeile angegeben wurde....
    Result := Zeilen[Zeile-1];
  Except
    Result := '';
  End;
  Zeilen.Free;
End;

Aufruf z.B.

Delphi-Quellcode:

 Edit1.Text := LeseZeileAusDatei('c:\meinedatei.txt', 14); // Zeile Nr. 14 auslesen

Hoffe geholfen zu haben,

SCRaT

//EDIT: Source nochmal etwas umgeschrieben...

[taktaky]

Hallo Corpsman

also wenn ich deinen Vorschlag nehme, dann bekomme ich immer nur die 1. Zeile !!!

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
var i:Integer;
begin
         AssignFile(Datei,'test.txt');
         //AssignFile(Datei,'c:\text.txt');
         Reset(Datei);
         i := 0;
while not eof(datei) and (i = 5)do
inc(i);
         //while not eof (Datei) do
         begin
                ReadLn(Datei,namedat);
                Edit2.Text:=namedat;
                ListBox1.Items.Add(namedat);
               //ListBox1.Items.Add(namedat + ' nicht erreichbar');
                //CloseFile(Datei);
         end;
end;

Die Funktion von Scart funktioniert super !

Delphi-Quellcode:

  _____        ___   __   _   _   _    _____  
|  _  \     /   | |  \ | | | | / /  | ____| 
| | | |    / /| | |   \| | | |/ /   | |__   
| | | |   / / | | | |\   | | |\ \   |  __|  
| |_| |  / /  | | | | \  | | | \ \  | |___  
|_____/ /_/   |_| |_|  \_| |_|  \_\ |_____|

Nun möchte ich dass beim Fehler wie z.B. die Datei nicht Vorhanen, ... Keine Meldung erscheint
es soll nichts passieren und bleibt die Zeile leer. :gruebel:

[Muetze1]

Zitat:

Zitat von taktaky

also wenn ich deinen Vorschlag nehme, dann bekomme ich immer nur die 1. Zeile !!!

Willst du dich nicht langsam mal damit beschäftigen anstatt nur Copy&Paste? Was macht er denn in der While Schleife laut dem Code? Welche Befehle greifen auf die Datei zu und tut er dies auch in der Schleife? Wie könnte er in die 5. Zeile kommen?

Zitat:

Zitat von taktaky

Nun möchte ich dass beim Fehler wie z.B. die Datei nicht Vorhanen, ... Keine Meldung erscheint
es soll nichts passieren und bleibt die Zeile leer. :gruebel:

Steht in der Hilfe genauso wie hier im Forum. Ansonsten: neue Frage neuer Thread - was bei der Frage aber unnötig sein sollte...

[Klaus01]

Zitat:

Zitat von taktaky

Nun möchte ich dass beim Fehler wie z.B. die Datei nicht Vorhanen, ... Keine Meldung erscheint
es soll nichts passieren und bleibt die Zeile leer. :gruebel:

Guten Morgen,

dann solltest Du den Fehler abfangen.
Hierzu kannst du try except verwenden oder IOResult auswerten.

Viel Spaß beim probieren, denn nur der Versuch macht klug.

Grüße
Klaus

[Corpsman]

hossa,

wie hier schon einige geschrieben haben , ist es sehr schlecht einfach einen Code zu Copieren ohne dessen Funktion zu verstehen.

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
var i:Integer;
begin
         AssignFile(Datei,'test.txt');
         //AssignFile(Datei,'c:\text.txt');
         Reset(Datei);
         i := 0;
while not eof(datei) and (i = 5)do
// inc(i); <-- hier ist die While die i auf 5 setzt und Endet
(*
Dieser Block wird dann nach der While aufgerufen und kann natürlich nur 1 mal die 1. Zeile Lesen
*)
         //while not eof (Datei) do
         begin
inc(i); // <-- so wäre es Richtig gewesen.
                ReadLn(Datei,namedat);
                Edit2.Text:=namedat;
                ListBox1.Items.Add(namedat);
               //ListBox1.Items.Add(namedat + ' nicht erreichbar');
                //CloseFile(Datei);
         end;
end;

[Zacherl]

Zitat:

Zitat von Klaus01

Zitat:

Zitat von taktaky

Nun möchte ich dass beim Fehler wie z.B. die Datei nicht Vorhanen, ... Keine Meldung erscheint
es soll nichts passieren und bleibt die Zeile leer. :gruebel:

Guten Morgen,

dann solltest Du den Fehler abfangen.
Hierzu kannst du try except verwenden oder IOResult auswerten.

Viel Spaß beim probieren, denn nur der Versuch macht klug.

Grüße
Klaus

Allerdings ist das "verschlucken" einer Fehlermeldung keinesfalls sinnvoll ..

[Klaus01]

Guten Morgen,

ich nochmal, wie Du vielleicht weißt gibt es für datensatzorientierte Dateien
die Funktion Seek um zu einem bestimmten Datensatz zu springen.

Für TextFiles findest Du TextSeek hier.

Grüße
Klaus

[shmia]

Unter Unix gibt es ein Programm namens tail.
Damit kann man die letzten x Zeilen einer beliebig grossen Datei abrufen.
Selbst wenn die Datei viele Gigabyte hat, geht das in Null komma nix.
Das funktioniert so:
Man öffnet die Datei, springt ans Ende und dann 4 kByte zurück und liest diesen 4kByte Block ein.
Dann braucht man nur noch im Block rückwärts die Zeilenumbrüche zu zählen.
Sollte in dem Block nicht genügend Zeilenumbrüche vorhanden sein, liest man solange einen weiteren Block ein, bis die Anzahl der Zeilenumbrüche vorhanden ist.

> Für TextFiles findest Du TextSeek hier.
Das taugt nicht für Windows. Es werden INT 21 Aufrufe verwendet.

[taktaky]

Hallo zusammen und Danke für die Erklärung!

nun möchte ich auch mit dem Befehl loadformfile ausprobieren.
ich bekomme diese Meldung Undeclared loadformfile . Was soll ich in Bereich uses schreiben?

Delphi-Quellcode:

uses, ...?

procedure TForm1.Button1Click(Sender: TObject);
begin
ListBox1.Items.LoadFormFile('test.txt');
end;
end.

[DeddyH]

Form und From verwechsel ich auch gerne mal :mrgreen:

[pstruh]

Moin, Moin,
@Klaus: Ist dass jetzt (ein gelungener!) Scherz? Der Link ist ja wirklich interessant, aber welche Sprach ist das? Russisch?
Gruß

[taktaky]

Zitat:

Zitat von DeddyH

Form und From verwechsel ich auch gerne mal :mrgreen:

Danke, ich hab's versehen :stupid:

Delphi-Quellcode:

 _____    _____    _   _   _____   _____  
/  ___| |  _  \  | | | | /  ___/ /  ___/ 
| |     | |_| |  | | | | | |___  | |___  
| |  _  |  _  /  | | | | \___  \ \___  \ 
| |_| | | | \ \  | |_| |  ___| |  ___| | 
\_____/ |_|  \_\ \_____/ /_____/ /_____/

[taktaky]

Zitat:

Zitat von pstruh

Moin, Moin,
@Klaus: Ist dass jetzt (ein gelungener!) Scherz? Der Link ist ja wirklich interessant, aber welche Sprach ist das? Russisch?
Gruß

Kennst kein Russisch? :mrgreen:
hier ist die Übersetzung :

Delphi-Quellcode:

From: Alexeev Vlad < 
[email][e-mail][/email] > Subject: Position in the text- 
sirloin! Date: 12 Jul 1994 05:09:38 -0000 organization: 
Ugtu-upi > how do you do. Privetik! > arose 
problemka: > necessary to be moved in the text file from 
programki on TP > for reading of the lines > necessary at the given 
moment to make this necessarily without closing of file > moreover 
Seek there not working: ( > someone can advise? But your 
poblemka exists already long ago, here module for its solution... 
With respect Vlad. --- Alexeev Vlad e-burg.su;

[taktaky]

bei memo und Listbox funktioniert super

aber so geht nicht

Delphi-Quellcode:

"Edit1.Text.LoadFromFile('test.txt');"

wieso?

[Klaus01]

Hast Du schon mal die Hilfe zu Rate gezogen und geschaut was für ein Typ TEdit.text ist.
Dann solltest Du dir Deine Frage selber beantworten können.

Grüße
Klaus

[taktaky]

Hallo

die einfache Lösung ist so :

Delphi-Quellcode:

var aStringList : TStrings;
begin
aStringList := TStringList.Create();  
aStringList.LoadFromFile('test.txt');
Edit1.Text := aStringList[2]; 
end;
end.

[silver-moon-2000]

Zitat:

Zitat von taktaky

Hallo

die einfache Lösung ist so :

Delphi-Quellcode:

var aStringList : TStrings;
begin
aStringList := TStringList.Create();  
aStringList.LoadFromFile('test.txt');
Edit1.Text := aStringList[2]; 
end;
end.

Ein kleiner Hinweis am Rande:

Zu jedem .Create gehört ein .Free.
Schreib also viuelleicvht einfach noch ganz ans Ende:

Delphi-Quellcode:

aStringlist.Free

[leddl]

Als ich ihm das Codestück in einem anderen Thread präsentiert habe, war das Free noch drin :stupid: