funktion die alles ausser die root url abschneidet

[agm65]

hi leute ich suche nach einer funktion die es mir ermöglicht bei einer url alles ausser die root url abzuscheiden...
bsp: http://www.google.com/test/test2/test3

ich möchte: http://www.google.com

[mkinzler]

Zerlege den String (Trenner /) und lösche Alles nach dem 3.

[agm65]

oder oder halt das 3te element bei ner strinlist mit delimeter /...dachte es gibt ne funktion.

[Assertor]

Hi,

und dann kommt ein normaler Benutzer und tippt

Delphi-Quellcode:

www.test.de/abc/def/ghi

Was bekommt dein Code dann zurück? ;)

Ich würd pauschal eine Regular Expression vorschlagen. Oder zumindest, falls Du keine RegEx Komponente hast den Spring auf http:// prüfen...

Gruß Assertor

[s-off]

Zitat:

Zitat von agm65

oder oder halt das 3te element bei ner strinlist mit delimeter /...dachte es gibt ne funktion.

Gibt es auch - indirekt: schau mal hier

[agm65]

an ne regex hatte ich auch gedacht ..aber der user wird im vorfeld schon gezwugen http:// anzugeben ;)

[Die Muhkuh]

Also wenn das http:// immer dran ist:

Delphi-Quellcode:

function RootURL(const URL: string): string;
begin
  Result := Copy(URL, 8, Pos('/', URL) + 8);
end;

[agm65]

jo, danke an alle das passt auch.

[Matze]

Bei mir gibt Manus Funktion das falsche zurück.

Ich würde es so lösen:

Delphi-Quellcode:

uses StrUtils;

function RootURL(const URL: string): string;
begin
  Result := Copy(URL, 1, PosEx('/', URL, 8));
end;

[Die Muhkuh]

Zitat:

Zitat von Matze

Bei mir gibt Manus Funktion das falsche zurück.

Jain, ich hab nur nicht beachtet, dass er das mit http:// vorne dran möchte. Meine kopiert alles nach dem http://