Hier wird der Inhalt zwischen den beiden ContentNET-Tags auf ein TEdit ausgegeben:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
const TmpFileName='c:\temp_adp.newandhot';
var
rawHTM, buffer : string;
NewAndHotHTMFile : TextFile;
iStart, iStop : integer;
begin
Memo1.Lines.LoadFromFile('temp.html');
AssignFile(NewAndHotHTMFile, ExtractFilePath(Application.Exename) + 'temp.html');
Reset(NewAndHotHTMFile);
while not EOF(NewAndHotHTMFile) do begin
ReadLn(NewAndHotHTMFile, buffer);
rawHTM := Concat(rawHTM, buffer);
end;
iStart := Pos('',rawHTM) + Length('');
iStop := Pos('</!--ContentNET1-->',rawHTM);
Edit1.Text := Copy(rawHTM, iStart, iStop-iStart);
CloseFile(NewAndHotHTMFile);
DeleteFile(TmpFileName)
Nun muß ich nur noch den Inhalt beider Tags ändern können!