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?

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

[Matze]

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

[MathiasSimmack]

@Dani: Ja.

@Matze: Mensch!

[Matze]

Zitat von MathiasSimmack:

@Matze: Mensch!

[XHelp]

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;