Datei auslesen

[xstream]

hallo

ich möchte ein programm machen, welches aus einer datei einen bestimmten text liest. Der Inhalt der datei sieht etwa so aus:

Zitat:

Quickly Answer
2
BeschreibungBeschreibung
3
config.php
index.php
login.php
//1.File//
$bla='super';
//2.File//
$blabla='blasuper';
//3.File//
$blablabla='blablasuper';

Mein Skript sollte ein programm geben, welches automatisch mods in ein phpBB-Forum installiert.
Nun möchte ich, das mein Skript die Linie vom Text //1.File// (bzw. //2.File//,//3.File//) heraussucht, und dann den text, bis zur linie vom text 2. File (kurz gesagt, text zwischen //1.File// und //2.File//)
... Kann mir jemand helfen? Vielen dank!

[omata]

Moin,

eine einfache Möglichkeit wäre folgende:

Delphi-Quellcode:

procedure Datei_lesen(Dateiname:string; Zeilen:TStrings);
var Datei:Textfile;
    Zeile:string;
    lesen:boolean;
begin
  lesen:=false;
  assignfile(Datei, Dateiname);
  try
    reset(Datei);
    while not Eof(Datei) do begin
      readln(Datei, Zeile);
      if trim(Zeile) = '//1.File//' then
        lesen:=true
      else
      if trim(Zeile) = '//2.File//' then
        lesen:=false
      else
        if lesen then
          Zeilen.Append(Zeile);
    end;
  finally
    closefile(Datei);
  end;
end;

Eine andere Alternative wäre mit regulären Ausdrücken zuarbeiten.

MfG
Thorsten

[xstream]

ok vielen dank!