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

[Nalincah]

Das Problem bei Pos ist aber das du ersten den genauen String wissen musst und zweitens das die länge der IP unterschiedlich sein kann

90.0.0.1 ist z.B. kürzer als 132.43.235.213

Er müsste also nach dem Aufbau suchen


Wie sieht denn z.B. so eine Datei aus wo du die IP ändern willst?

[RomanK]

Hoi,
aber wie wärs wenn er nach dem / nach der IP sucht?
Hier ein Beispiel:

Delphi-Quellcode:

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;

Das ganze wird so aufgerufen:
Button1.Caption := changeIP('http://192.168.168.100/secure/mp3/der Tietel.mp3','192.168.168.230');

[mlspider]

Ok Sebastian,

ich hab Dir mal so ein Teil hochgeladen. Wobei die Endung natürlich *.asf lautet.

[Nalincah]

Gute Idee...Ich übernehm einfach mal deinen Code und pass das etwas an

Delphi-Quellcode:

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;

Das ganze wird so aufgerufen:

Delphi-Quellcode:

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

In Edit1 würd dann die neue IP stehen

[mlspider]

Hallo Roman,

die Idee ist nicht schlecht. Allerdings muß immer nach http:// die IP folgen!

Trotzdem Danke

[Nalincah]

Tuts doch:

result := 'http:///' + newIP + s; newIP ist deine neue IP z.B. 196.65.3.5 und
s ist z.B. "/MP3Files/MyFile.mp3"

Daraus wird:

http:///196.65.3.5/MP3Files/MyFile.mp3

[RomanK]

Hoi mlspider,
was denn sonst? Noch einmal ein / wie bei deinem Beispiel?
Dann mach einfach aus:
delete(s,1,pos('//',s)+1); ein delete(s,1,pos('//',s)+5); Ist ja egal ob du auch nen paar Stellen der IP löschst.

[RomanK]

Ach ja, in deinem Fall willst du dir die Datei in deinem Programm ja nicht anschauen,oder?
Daher würde ich eine TStringList benützen. Mehr dazu: StringList

[mlspider]

Oohahh,

Jetzt hab ich es geschnallt. Hatte eben einen kleinen logischen Denkfehler!!!!

[RomanK]

Na dann hoffe ich, dass wir dir helfen konnten.