Einzelnen Beitrag anzeigen

Oli.1010

Registriert seit: 24. Mär 2005
14 Beiträge
 
Delphi 7 Professional
 
#12

Re: Bestimmte Bereiche aus Datei auslesen und in neue schrei

  Alt 29. Mär 2005, 15:36
also gut hier mal mein sourcecode, kann aber nach durchlaufen des Programms keine Veränderungen an der *.html-datei einsehen.

Delphi-Quellcode:
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;
jemand ne idee woran des liegen könnte?
  Mit Zitat antworten Zitat