Text aus String wegschneiden?

**mlspider**

Hallo,

Ich versuche mit folgenden Code meine IP zu ermitteln:

Memo1.Lines[0] := IdHTTP1.Get('http://checkip.dyndns.org'); Dieser gibt mir zwar meine IP aus, allerdings mit HTML-Tags:

<html><head><title>Current IP Check</title></head><body>Current IP Address: 217.231.61.98</body></html>

Wie kann ich nun diese wegschneiden, so das nur noch die IP übrig bleibt???

Danke!

**Sharky**

Zitat von mlspider:

...Wie kann ich nun diese wegschneiden, so das nur noch die IP übrig bleibt???

Hai,

das sollte mit Delphi-Referenz durchsuchen

Copy und

Pos möglich sein.

**mlspider**

Bin nicht der geborene Delphianer. Es würde mir ein kleines Code-Beispiel sehr viel helfen.

**Alexander**

Ich denke, in der Delphi Hilfe sollten mehr als genug Beispiele sein.
Aber noch mal ganz kurz: Mit COPY kopierst du alles nach "Address:" (das kannst du mit POS (liefert den Start-Index, d.h. du musst noch die Länge (length()!) von Address: dazuzählen) suchen oder gleich abzählen...) bis die IP endet, also bis </body>, das du wieder mit POS suchen kannst.

**mlspider**

Da steig ich nicht hinter! Ich habe mir überlegt, den ganzen Kram in einer StringList zu übergeben:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.Button1Click(Sender: TObject);

var

 slWork : TStringList;

begin

 Memo1.Lines[0]  := IdHTTP1.Get('http://checkip.dyndns.org');

 try

 slWork := TStringList.Create;

 Memo1.Lines.AddStrings(slWork);

 finally

 FreeAndNil(slWork);

end;

end;

Wie kann man den Faden jetzt weiter spinnen?

**fiasko**

Hallo,

besser ist IMHO wenn du hier mit Hier im Forum suchen

reguläre Ausdrücke arbeitest (siehe auch

hier was das ist). Im Prinzip mußt du nur schauen das das Muster (\d{1,3}.\d{1,3}.\d{1,3}.\d{1,3}) auf die Rückgabe von dem GET matched. Das Muster erkennt zwar auch sowas wie 888.12.43.234 als gültige IP-Adresse - das kann man hier imho vernachlässigen.

Auf den ersten Blick mag das bißchen kompliziert aussehen - ist dafür aber nicht so anfällig wenn sich die Ausgabe der Internetseite mal leicht verändert - und im DP-Archiv scheint es auch viel zum Thema zu geben.

**mlspider**

Boah!!! Daraus werde ich erst recht nicht schlau! Trotzdem Danke!!!

**Alexander**

Mit einer StringList würde ich nicht arbeiten.
Hier mal ein kleines Beispiel:

markieren

Delphi-Quellcode:

			procedure TForm1.Button1Click(Sender: TObject);

var

  s : String;

  index, count : Integer;

begin

  s := '<html><head><title>Current IP Check</title></head><body>Current IP Address: 217.231.61.98</body></html>';

  index := POS('Address: ', s) + length('Address: ');

  count := Length(s) - index - length('</body></html>') +1;

  s := Copy(s, index, count);

end;

Index gibt den Index an, aber der kopiert werden soll und copy wie viele Zeichen kopiert werden sollen...
Habe es nicht getestet, hoffe aber, dass es funktioniert.
Wenn sich aber die Struktur der Website ändert, passt auch der Code nicht mehr, logisch oder?

**Sharky**

Und hier auch noch ein Beispiel von mir

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.Button1Click(Sender: TObject);

var

  myString : String;

  ipString : String;

  i      : Integer;

begin

  myString := '<html><head><title>Current IP Check</title></head><body>Current IP Address: 217.231.61.98</body></html>';

  i := Pos (':',mystring);  // Position von ":" ermitteln.

  Delete (myString,1,i);  // Alles bis zur "IP-Adresse" löschen

  i := Pos ('<',mystring);  // Position von "<" ermitteln.

  ipString :=  Copy(myString,1,i-1); // Alles bis zur Postion von "<" -1 in einen neuen String kopieren.

  Label1.Caption := ipString;

end;

**mlspider**

Leuchtet schon ein. Nur wie übergebe ich jetzt den gefilterten String in ein weiteres Memo. Ich hoffe ich nerve nicht all zu sehr!!!

Text aus String wegschneiden?

Text aus String wegschneiden?

Re: Text aus String wegschneiden?

Re: Text aus String wegschneiden?

Re: Text aus String wegschneiden?

Re: Text aus String wegschneiden?

Re: Text aus String wegschneiden?

Re: Text aus String wegschneiden?

Re: Text aus String wegschneiden?

Re: Text aus String wegschneiden?

Re: Text aus String wegschneiden?

Forumregeln

Sharky Registriert seit: 29. Mai 2002 Ort: Frankfurt 8.251 Beiträge Delphi 2006 Professional	#2 Re: Text aus String wegschneiden? 12. Okt 2004, 08:33 Zitat von mlspider: ...Wie kann ich nun diese wegschneiden, so das nur noch die IP übrig bleibt??? Hai, das sollte mit Copy und Pos möglich sein. Stephan B. "Lasst den Gänsen ihre Füßchen"
	Zitat

mlspider Registriert seit: 22. Okt 2003 Ort: Berlin 661 Beiträge Delphi 7 Enterprise	#3 Re: Text aus String wegschneiden? 12. Okt 2004, 08:35 Bin nicht der geborene Delphianer. Es würde mir ein kleines Code-Beispiel sehr viel helfen. Mario
	Zitat

mlspider Registriert seit: 22. Okt 2003 Ort: Berlin 661 Beiträge Delphi 7 Enterprise	#7 Re: Text aus String wegschneiden? 12. Okt 2004, 08:53 Boah!!! Daraus werde ich erst recht nicht schlau! Trotzdem Danke!!! Mario
	Zitat

mlspider Registriert seit: 22. Okt 2003 Ort: Berlin 661 Beiträge Delphi 7 Enterprise	#10 Re: Text aus String wegschneiden? 12. Okt 2004, 09:10 Leuchtet schon ein. Nur wie übergebe ich jetzt den gefilterten String in ein weiteres Memo. Ich hoffe ich nerve nicht all zu sehr!!! Mario
	Zitat