Bestimmte Bereiche aus Datei auslesen und in neue schreiben

**Luckie**

Was macht pos?
Was kann ich mit dem was pos macht im Zusammenhang mit copy anfangen?
Wenn du das hast, warum habe ich dir als Stichwort noch TStringList gegeben? Was ist eine StringListe? Welche Methoden kennst sie? (Ganz besonders von Interesse wären wohl die zum Hinzufügen und zum Abspeichern.

**Oli.1010**

also gut hier mal mein sourcecode, kann aber nach durchlaufen des Programms keine Veränderungen an der *.html-datei einsehen.

zusammenfalten · markieren

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?

**Khabarakh**

Ich glaube dir nicht, dass du das kompilieren konntest

. Und wenn ich annehme, dass du unten ein end; vergessen hast, glaube ich dir nicht, dass das Programm ohne Fehlermeldung läuft

.

**Oli.1010**

oh da die habe ich vergessen hier rein zu kopieren.

ist ja nur ein ausschnitt aus dem quellcode.
zu kompilieren ging es. aber es machte dann halt nicht was ich möchte.

**Khabarakh**

Zitat von Oli.1010:

oh da die habe ich vergessen hier rein zu kopieren.

ist ja nur ein ausschnitt aus dem quellcode.
zu kompilieren ging es. aber es machte dann halt nicht was ich möchte.

Das end steht also unten? Dann müsste es aber eine AccessViolation geben, da du die Stringlisten im ersten Schleifendurchlauf freigibst.

**mytar**

Ich denke eine Codeformatierung wäre angebracht!

Eine gute Quellcodestruktur erleichtert erheblich das Verstehen!

**Oli.1010**

stimmt wenn ich dann das programm ausführe kommt eine fehlermeldung.

Was mach ich falsch?

**Wuaegner**

Was für eine Fehlermeldung?

**Oli.1010**

Zugriffsverletzung bei Adresse 0049D42D in Modul 'Projekt.exe'. Lesen von Adresse 0000000D.

**Wuaegner**

GetFilesInDirectory hast du selber geschrieben oder? Wie sieht die aus?

Bestimmte Bereiche aus Datei auslesen und in neue schreiben

Re: Bestimmte Bereiche aus Datei auslesen und in neue schrei

Re: Bestimmte Bereiche aus Datei auslesen und in neue schrei

Re: Bestimmte Bereiche aus Datei auslesen und in neue schrei

Re: Bestimmte Bereiche aus Datei auslesen und in neue schrei

Re: Bestimmte Bereiche aus Datei auslesen und in neue schrei

Re: Bestimmte Bereiche aus Datei auslesen und in neue schrei

Re: Bestimmte Bereiche aus Datei auslesen und in neue schrei

Re: Bestimmte Bereiche aus Datei auslesen und in neue schrei

Re: Bestimmte Bereiche aus Datei auslesen und in neue schrei

Re: Bestimmte Bereiche aus Datei auslesen und in neue schrei

Forumregeln

Khabarakh Registriert seit: 18. Aug 2004 Ort: Brackenheim VS08 Pro 2.876 Beiträge	#13 Re: Bestimmte Bereiche aus Datei auslesen und in neue schrei 29. Mär 2005, 16:03 Ich glaube dir nicht, dass du das kompilieren konntest . Und wenn ich annehme, dass du unten ein end; vergessen hast, glaube ich dir nicht, dass das Programm ohne Fehlermeldung läuft . Sebastian Moderator in der EE
	Zitat

Oli.1010 Registriert seit: 24. Mär 2005 14 Beiträge Delphi 7 Professional	#14 Re: Bestimmte Bereiche aus Datei auslesen und in neue schrei 29. Mär 2005, 16:18 oh da die habe ich vergessen hier rein zu kopieren. ist ja nur ein ausschnitt aus dem quellcode. zu kompilieren ging es. aber es machte dann halt nicht was ich möchte.
	Zitat

mytar Registriert seit: 30. Mai 2004 Ort: Zermatt 411 Beiträge Delphi 6 Enterprise	#16 Re: Bestimmte Bereiche aus Datei auslesen und in neue schrei 29. Mär 2005, 16:50 Ich denke eine Codeformatierung wäre angebracht! Eine gute Quellcodestruktur erleichtert erheblich das Verstehen! Francis Obikwelu greetz mytar
	Zitat

Oli.1010 Registriert seit: 24. Mär 2005 14 Beiträge Delphi 7 Professional	#17 Re: Bestimmte Bereiche aus Datei auslesen und in neue schrei 30. Mär 2005, 09:51 stimmt wenn ich dann das programm ausführe kommt eine fehlermeldung. Was mach ich falsch?
	Zitat

Wuaegner Registriert seit: 8. Feb 2004 406 Beiträge Delphi 6 Enterprise	#18 Re: Bestimmte Bereiche aus Datei auslesen und in neue schrei 30. Mär 2005, 09:59 Was für eine Fehlermeldung? Wuaegner Gruß Flo Unternehmensberatung
	Zitat

Oli.1010 Registriert seit: 24. Mär 2005 14 Beiträge Delphi 7 Professional	#19 Re: Bestimmte Bereiche aus Datei auslesen und in neue schrei 30. Mär 2005, 10:06 Zugriffsverletzung bei Adresse 0049D42D in Modul 'Projekt.exe'. Lesen von Adresse 0000000D.
	Zitat

Wuaegner Registriert seit: 8. Feb 2004 406 Beiträge Delphi 6 Enterprise	#20 Re: Bestimmte Bereiche aus Datei auslesen und in neue schrei 30. Mär 2005, 10:11 GetFilesInDirectory hast du selber geschrieben oder? Wie sieht die aus? Wuaegner Gruß Flo Unternehmensberatung
	Zitat