[Delphi] hoe deze file inlezen?

[PleXtor]

Het gaat om het volgende bestand:

1
00:04:51,040 --> 00:04:53,680
Duitse jagers op twee uur.
- Meer gas.

2
00:04:58,840 --> 00:05:00,920
Dat is fout.

3
00:05:01,000 --> 00:05:04,320
Rudder schrijf je met twee D's.

enz enz.


bestand : file;
temp : string;

Hoe kan ik dit inlezen? Met readln(bestand,temp) doet ie het niet. Het is namelijk niet een komma gescheiden bestand oid. Dus hoe kan ik delphi nou zover krijgen dat hij per regel de tekst binnen kan halen...

[Verwijderd]

Op woensdag 14 november 2001 17:13 schreef PleXtor het volgende:
Het gaat om het volgende bestand:

1
00:04:51,040 --> 00:04:53,680
Duitse jagers op twee uur.
- Meer gas.

2
00:04:58,840 --> 00:05:00,920
Dat is fout.

3
00:05:01,000 --> 00:05:04,320
Rudder schrijf je met twee D's.

enz enz.


bestand : file;
temp : string;

Hoe kan ik dit inlezen? Met readln(bestand,temp) doet ie het niet. Het is namelijk niet een komma gescheiden bestand oid. Dus hoe kan ik delphi nou zover krijgen dat hij per regel de tekst binnen kan halen...

kijk hier maar ff : http://www.web-con.nl/index.php?id=142

[Creepy]

readln HAALT de tekst binnen per regel! readln kijkt niet naar komma's o.i.d.

[Verwijderd]

Ook wel handig: TStringList.LoadFromFile.

code:

procedure HandleFile(AFileName: string);
var
  slFile: TStringList;
begin
  slFile := TStringList.Create;
  try
    slFile.LoadFromFile(AFileName);
    // bestand is nu ingelezen, doe er wat leuks mee.
    // via slFile.Text kun je de hele tekst benaderen, en
    // via slFile[0] t/m slFile[slFile.Count-1] de
    // afzonderlijke regels.
  finally
    slFile.Free;
  end;
end;

Misschien niet 't meest efficient, maar voor snelle hacks en voor niet al te grote bestanden erg prettig.

[Verwijderd]

gebruik dus zo (dan leest readln het als hele regel )


bestand : text;
temp : string;