Einzelnen Beitrag anzeigen

Benutzerbild von Khabarakh
Khabarakh

Registriert seit: 18. Aug 2004
Ort: Brackenheim VS08 Pro
2.876 Beiträge
 
#22

Re: Bestimmte Bereiche aus Datei auslesen und in neue schrei

  Alt 30. Mär 2005, 11:31

Zitat:
kann aber nach durchlaufen des Programms keine Veränderungen an der *.html-datei einsehen.
Genial, der Code macht meistens nicht das, was er soll, wenn eine Exception ausgelöst wird, was uns vielleicht nicht verschwiegen werden sollte.
Probier also mal das:
Delphi-Quellcode:
for i:=0 to dateiliste.Count-1 do
begin
  inhalt.LoadFromFile(dateiliste[i]);
  if Pos(ComboBox1.Text, inhalt.Text) > 0 then //statt inhalt[0]
    inhalt.Text := copy(inhalt.text,0,Pos('',inhalt.text)-1)+copy(inhalt.text,Pos('',inhalt.text)+21,Length(inhalt.text));
  // hier verstehe ich gar nichts, "+21" ? Das sieht so aus, als ob du alles außer den begin-end Teil kopierst
  AssignFile(f, dateiliste[i]); //das und folgendes sollte wohl auch in den if-Zweig
  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);
  ShowMessage(' in' +dateiliste[i]+ 'erfolgreich überarbeitet.') ; //statt +Combobox1.Text+
  end; //wichtig, folgendes gehört nicht mehr zur Schleife
dateiliste.free;
inhalt.free;
end;
[edit] Ich schreibe zu langsam .
Sebastian
Moderator in der EE
  Mit Zitat antworten Zitat