procedure TForm1.SpeedButton1Click(Sender: TObject);
var
f: Textfile;
dateiliste, inhalt: TStringList;
content:
String;
contentend:
String;
i: Integer;
begin
if ComboBox2.Text= '
'
then
begin
dateiliste:=TStringList.Create;
inhalt:=TStringList.Create;
GetFilesInDirectory(folders.Path,'
*.htm',dateiliste,False);
for i:=0
to dateiliste.Count-1
do
begin
inhalt.LoadFromFile(dateiliste[i]);
if Pos(ComboBox1.Text, inhalt[0]) > 0
then
inhalt.Text:=copy(inhalt.text,0,Pos('
',inhalt.text)-1)+copy(inhalt.text,Pos('
',inhalt.text)+21,Length(inhalt.text));
AssignFile(f, dateiliste[i]);
Rewrite(f);
Writeln(f, '
<html>');
Writeln(f, '
<head>');
Writeln(f, '
<title>test</title> ');
Writeln(f, '
</head>');
Writeln(f, '
<body>');
Writeln(f, '
');
Writeln(f, '
'+inhalt.Text+'
');
Writeln(f, '
');
Writeln(f, '
</body>');
Writeln(f, '
</html>');
closeFile(f);
dateiliste.free;
inhalt.free;
ShowMessage('
in' +ComboBox1.Text+ '
erfolgreich überarbeitet.') ;
end;