Nach String suchen und mit anchließenden Zeichen ausgeben

[marabu]

Hallo Overburn,

diesen Code kannst du bestimmt an deine Bedürfnisse anpassen:

Delphi-Quellcode:

procedure ExtractText(const filename, prefix, suffix: string; tl: TStringList);
var
  sl: TStringList;
  i, iPrefix, iSuffix: integer;
  s: string;
begin
  sl := TStringList.Create;
  try
    sl.LoadFromFile(filename);
    for i := 0 to sl.Count - 1 do begin
      s := sl[i];
      iSuffix := 0;
      repeat
        Inc(iSuffix, Length(suffix));
        iPrefix := PosEx(prefix, s, iSuffix);
        if iPrefix = 0 then Break;
        Inc(iPrefix, Length(prefix));
        iSuffix := PosEx(suffix, s, iPrefix);
        tl.Values[IntToStr(Succ(i))] := Trim(Copy(s, iPrefix, iSuffix - iPrefix));
      until iSuffix = 0;
    end;
  finally
    sl.Free;
  end;
end;

Der Aufruf wäre dann etwa so:

Delphi-Quellcode:

uses
  Classes,
  StrUtils,
  SysUtils;

var
  sl: TStringList;

begin
  sl := TStringList.Create;
  ExtractText(ParamStr(1), '{$IFDEF', '}', sl);
  WriteLn(sl.Text);
  sl.Free;
end;

Geliefert werden die Fundstellen im Format "Zeilennummer=Text"

Grüße vom marabu