In einer URL an den zweiten Punkt kommen

[Matze]

So wär's einfacher:

Delphi-Quellcode:

function PosPunkt(s: string, Anzahl: integer): integer;
var i, Count: integer;
begin
  Count := 0;
  for i := 1 to Length(s) do
  begin
    if s[i] = '.' then inc(Count);
    if Count = Anzahl then Result := i;
  end;
end;

Aber das spielt ja nun auch keine Rolle.

[Christian Seehase]

Moin Spider,

willst Du eigentlich immer den zweiten, oder einfach den letzten Punkt haben?
In letzterem Falle solltest Du Dir mal die Funktion LastDelimiter anschauen.

[Nightshade]

Und was wäre dann mit einer URL :

"http://127.0.0.1/test.php?a=0.54&b=45.7&do=add"

?

[digleu]

hm komplexer geht's immer ;)
lass' erstmal hören, was Spider jetzt genau will.
mfg Lars

[XHelp]

Hab gerade eine funktion geschrieben:

Delphi-Quellcode:

function GetLink(s:string):String;
var
i:integer;
lb,le:integer; //Link Begin (nach www, http://) und Link End (/)
begin
lb:=1;
if pos('www.',LowerCase(s))=1 then lb:=5;
if pos('http://',LowerCase(s))=1 then lb:=8;

le:=Length(s)+1;
for i:=lb to Length(s) do begin
  if s[i]='/' then begin
    le:=i;
    Continue;
  end;
end;

Result:=Copy(s, lb, ( Length(s) - lb ) - ( Length(s) - le ) );
end;

Aus "http://127.0.0.1/test.php?a=0.54&b=45.7&do=add" macht sie "127.0.0.1" und aus "www.delphipraxis.net/test.php?a=0.54&b=45.7&do=add" macht sie "delphipraxis.net"

Wenn jetzt zwischen den punkten Integer variablen sind, dann ist das ein IP, wenn nicht, dann eine domain. Und dann einfach weiter improvisieren...

Aber wir müssen alle auf Spider warten

[Die Muhkuh]

Na, dann brauch ich ja nicht mehr anstrengen . XHelp hat genau das was ich machen wollte.

[Matze]

Das hat dir Chak doch hier auch schon gepostet.

[XHelp]

Zitat von Spider:

Na, dann brauch ich ja nicht mehr anstrengen . XHelp hat genau das was ich machen wollte.

Hm... jetzt sehe ich gedare dass meine funktion nicht so ganz richtig ist...
Man muss noch
if pos('http://www.',LowerCase(s))=1 then lb:=12; nach den 2 POS einfügen.