In einer URL an den zweiten Punkt kommen

[Die Muhkuh]

Hi,

wenn ich eine URL hab: www.delphipraxis.net

wie komme ich nun an den zweiten Punkt ran? Mit Pos('.', URL) kommt ich nur bis zu dem nach www. Ich bräuchte aber den vor net.

[Matze]

mit PosEx

Aber das bringt deinem URL-Code für die CodeLib (klick)nichts, nur zu Info ;)

[Die Muhkuh]

Wer sagte das es für die CodeLib ist? :tongue:

[Matze]

Das denke ich mir. ;)

[XHelp]

Du kannst das auch mit einer schleife machen:

Delphi-Quellcode:

function pospunkt(s:string):integer;
begin
for i:=Length(s) downto 1 do begin
  if s[i]='.' then begin
    result:=i;
    Exit;
  end;
end;
end;

Hab das aber nicht getestet, muss aber funktionieren

[Dani]

Wenn der Suchstring keinen Punkt enthält, wäre dann das Ergebnis nicht undefiniert? :gruebel:

[Matze]

@XHelp: Deine Funktion müsste die Position, von hinten gesehen, des letzten Punktes liefern, meine ich.

[MathiasSimmack]

@Dani: Ja. ;)

@Matze: Mensch!

[Matze]

Zitat:

Zitat von MathiasSimmack

@Matze: Mensch!

:?: :duck:

[XHelp]

Zitat:

Zitat von Matze

@XHelp: Deine Funktion müsste die Position, von hinten gesehen, des letzten Punktes liefern, meine ich.

Dann halt:

Delphi-Quellcode:

function pospunkt(s:string):integer;
var
i:integer;
firstpunkt:boolean;
begin
result:=0;
firstpunkt:=false;
for i:=1 to length(s) do begin
  if (s[i]='.') and (firstpunkt=true) then begin
    result:=i;
    Exit;
  end;
  if (s[i]='.') and (firstpunkt=false) then firstpunkt:=true;
end;

[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 :cry: :roll:

[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:

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

Delphi-Quellcode:

if pos('http://www.',LowerCase(s))=1 then lb:=12;

nach den 2 POS einfügen.