Entwickler-Ecke :: Thema anzeigen - Bestimmten Wert aus einer Datei lesen???

achi 3.0 - Mi 25.06.08 09:09
Titel: Bestimmten Wert aus einer Datei lesen???

Hi,

habe folgende Frage. Wie kann ich aus einer Datei einen Bestimmten Wert auslesen. Ich weiß zwar wie ich die ganze datei auslese aber ich brauche nur einen teil.

die datei sieht z.B. so aus:

also das wären die ersten zeilen. ich benötige nur die werte hinter dem gleich..

(**** Konvertiert aus 14244a ***)

(* koo2din.dll from Apr 8 1997 10:33:03 *)
(Modell P1501= 4.0)
(Aler P1534= 210)
(Preis P1535= 1450)

Moderiert von Narses: Topic aus VCL (Visual Component Library) verschoben am Mi 25.06.2008 um 17:37

ZeitGeist87 - Mi 25.06.08 09:34

[Witz]Computer sagt "Nein"[/Witz] (vllt kennt jemand Little Britain) ;-)

Also..mein Programm hat folgende Werte geliefert:

Quelltext

1:
2:
3:

4.0
210
1450

So..was genau suchst, bzw. brauchst du jetzt??
Wo hängst du fest?

Clemens L. - Mi 25.06.08 11:35

Die Befehle Pos (und PosEx ab Delphi 7), Copy sowie Delete könnten dir da weiterhelfen. Vielleicht auch mal hier nach Suche in: Delphi-Forum

PARSENsuchen!

[OffTopic] Little Britain ist super :wink: [/OffTopic]

Clemens L. - Do 26.06.08 11:16

Clemens L. hat folgendes geschrieben:

Die Befehle Pos (und PosEx ab Delphi 7), Copy sowie Delete könnten dir da weiterhelfen. Vielleicht auch mal hier nach Suche in: Delphi-Forum

PARSENsuchen!

Dann ist das was dir weiterhelfen sollte.

achi 3.0 - Do 26.06.08 13:12

wie nutze ich den pos ..... sorry in der hilfe steht nur schmarrrrrn

habe jetzt schonmal das hier, aber es liest nur die erste zeile.

- Problem1 wie kann ich mehrere Zeilen lesen
- Problem2 wie kann ich über pos die position von 'string' rausbekommen
- Problem3 wie kann ich sagen z.B. label1.caption:= ***das was hinter einer bestimmten position steht***

bin für jede hilfe dankbar, habe mir auch ein paar bücher bestellt um auch was selber zu lösen

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

var
   F: TextFile;
   S: string;


begin
    if Opendialog1.Execute then

    begin
    AssignFile(F,OpenDialog1.FileName);

    Reset(F);
    Readln(F,S);


    edit1.Text:=S;
    CloseFile(F);

    end;

Moderiert von Narses: Delphi-Tags hinzugefügt

ZeitGeist87 - Do 26.06.08 13:45

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

var F: TextFile;
    S: string;
begin
 if Opendialog1.Execute then
 begin
  AssignFile(F,OpenDialog1.FileName);

  Reset(F);

  //Lies solang, bis die Datei zu Ende ist
  while not eof(F) do
  begin
   Readln(F,S);
   //edit1.Text:=S; //WÜrde jedesmal einen anderen Wert annehmen
  end;

  //Datei wieder schließen
  CloseFile(F);
 end;
end;

achi 3.0 - Fr 27.06.08 15:10

hi jungs,

kann ich abfragen das kein zeichen vorhanden ist.

damit meine ich z.B. while s='' do und '' heißt leider leerzeichen aber ich meine kein zeichen also a,b,c,d,.......

danke für eure hilfe

Hidden - Fr 27.06.08 21:00

Hi,

'' =leerer String <> ' '

Im Prinzip solltest du, solange es sich nur um Zahlen handelt, mit einem false als Rückgabewert bei Suche in der Entwickler-Ecke

TRYSTRTOFLOAT invalide Eingaben rausfiltern können. Ich frage mich garade, ob ein leerer String als 0 geparst wird :gruebel: Wenn dir das nicht recht ist, solltest du eventuell trotzdem auf '' prüfen.

Auch interessant: Suche in der Entwickler-Ecke

STRTOFLOATDEF, gibt bei Fehlschlag einen vordefinierten Wert zurück.

mfG,

ZeitGeist87 - Fr 27.06.08 21:02

ich prüfe Strings immer auf Länge > 0

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:

if length(String) > 0 then
begin
 //String OK, nicht leer
end
else
begin
 //String ist leer
end;

Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!