text in best form in einer txt speichern...

[marabu]

Hier ein Beispiel:

Delphi-Quellcode:

uses
  HTTPApp,
  HTTPProd;

function Substitute(fnTemplate: TFileName; tagEvent: THTMLTagEvent): String;
begin
  with TPageProducer.Create(nil) do
  begin
    OnHTMLTag := tagEvent;
    HTMLFile := fnTemplate;
    Result := Content;
    Free;
  end;
end;

procedure TDemoForm.ButtonClick(Sender: TObject);
var
  fn: TFileName;
begin
  with TStringList.Create do
  begin
    fn := ExtractFilePath(ParamStr(0)) + 'template.txt';
    Text := Substitute(fn, PageProducerHTMLTag);
    fn := ExtractFilePath(ParamStr(0)) + 'beispiel.txt';
    SaveToFile(fn);
    Free;
  end;
end;

procedure TDemoForm.PageProducerHTMLTag(Sender: TObject; Tag: TTag;
  const TagString: String; TagParams: TStrings; var ReplaceText: String);
begin
  if CompareText(TagString, 'Jahr') = 0 then
    ReplaceText := '2000';
end;

marabu