Newbie!!! Wie kann ich eine Text-Datei auslesen?

[mlspider]

Ja, das habt ihr!!!! Danke!

[mlspider]

Ich habe jetzt den folgenden Code untergebracht:

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
begin
 Memo1.lines.loadfromfile('c:\Apache\xampp\htdocs\secure\ram\Charts1.asf')
end;

function changeIP(oldadr,newIp:String): String;
var
s: String;
i : Integer;
begin
s := oldadr;
delete(s,1,pos('//',s)+1); // HTTP:// wegschneiden, man geh davon aus dass es immer auf "//" endet
delete(s,1,pos('/',s)-1); // Die IP wegschnippel ( also bis zum nächsten "/")
result := 'http://' + newIp + s; // HTTP davor dann die IP und dann der rest ...
end;

procedure TForm2.Button2Click(Sender: TObject);
var
i:integer;
begin
 for i := 0 to Memo1.Lines.Count do
    changeIP(Memo1.Lines[i],Edit1.text);
end;

end.

Es funtz nicht! Die Ip wird weder wegeschnitten, noch getauscht.

Wo könnte der Fehler liegen. Oder habe ich vieleicht etwas vergessen?

[edit=Christian Seehase]Delphi-Tags korrigiert. Mfg, Christian Seehase[/edit]

[sharkx]

Den jetzigen code den du hast ist doch folgender ...

Du lädst die datei in ein Memo feld, suchst dort nach der alten IP und änderst diese in die neue IP. richtig?

Aber speichern in die Datei tust du nicht. Das fehlt also noch in deiner Sammlung ;-)

[mlspider]

Das ist schon richtig. Aber wie wird nun das Speichern, also Überschreiben gehandhabt?

[Akut-Programming]

Hi!

Um das Memo indem du die Datei bearbeitet hast zuspeichern, musst du einfach nur folgendes eingeben..

Bsp:

Delphi-Quellcode:

Memo1.Lines.SaveToFile('meine_text_datei.txt');

Ich hoffe das es das ist was du wolltest!?

Gruß,

[mlspider]

Okay, das Speichern funtz, aber der IP-Tausch leider immer noch nicht!

[Tom]

1) Pfad nich vergessen ...
2) Ist nicht das Problem. Der Rückgabewert der eingesetzten Funktion changeIP wird nicht übernommen/zugewiesen.

[mlspider]

Und wie kann ich das nun wieder beheben. Ich habe von Delph leider noch nicht diiiiiiieeeeee große Ahnung.

[RomanK]

Hoi,

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
begin
Memo1.lines.loadfromfile('c:\Apache\xampp\htdocs\secure\ram\Charts1.asf')
end;

...

procedure TForm2.Button2Click(Sender: TObject);
var
i:integer;
begin
for i := 0 to Memo1.Lines.Count-1 do
    Memo1.lines[i] := changeIP(Memo1.Lines[i],Edit1.text);
end;
Memo1.lines.savetofile('c:\Apache\xampp\htdocs\secure\ram\Charts1.asf');

end.

ungetestet, sollte aber funzen.

[mlspider]

Super!!!! Jetzt funtzt es.

Nur wie kann ich das mit mehreren Dateien mit der gleichen Zeile, also 200 Dateien laden und mit der IP aus Edit1 ersetzen?