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

[Matze]

Mit viel Fantasie vielleicht. ;)

Delphi-Quellcode:

RootURL('http://www.matthias-hielscher.de/blalala/hsahs/basksas.jpg')

Code:

www.matthias-h

[Die Muhkuh]

Mist, jetzt seh ich es.

Ich hatte mein Beispiel nur mit http://www.google.com/bla versucht, da passt es mit den Längen gerade, dass man meint, es kommt das richtige heraus. :mrgreen:

Um PosEx kommt man nicht drum rum, höchstens man schneidet die ersten 8 Zeichen weg, aber Deine Lösung ist da die bessere.

[mkinzler]

Delphi-Quellcode:

function ExtractDomain( const URL: string):string;
    function CheckProtocoll: Integer;
    begin
         Result:= Pos( '://', URL)+4;
    end;
begin
    Result := Copy(URL, 1, PosEx('/', URL, CheckProtocoll));
end;

[DeddyH]

Und was macht Ihr bei ftp oder https? Da passt die 8 dann auch nicht mehr :mrgreen:

[edit] Ah, mkinzler hat auch daran gedacht. ;) [/edit]

[mkinzler]

Wenn man nur die Domäne ohne Protokoll haben will:

Delphi-Quellcode:

function ExtractDomain( const URL: string; StripProtocoll: Boolean):string;
 var
    start: Integer;
    prot: Integer;

    function CheckProtocoll: Integer;
    begin
         Result:= Pos( '://', URL)+4;
    end;
begin
    prot := CheckProtocoll;
    if StripProtocoll then
        start := prot-1
    else
        start := 1;

    Result := Copy(URL, start, PosEx('/', URL, prot));
end;

[Christian Seehase]

Moin Zusammen,

wobei es nicht ganz "ungefährlich" ist nach :// zu suchen.
Wenn man ganz auf Nummer sicher gehen will ist :/ besser geeignet, da die beiden // nur deshalb unmittelbar aufeinander folgen, weil das, was laut RFC (ich weiss die Nummer jetzt gerade nicht) dazwischen angegeben werden kann/muss, eigentlich nie angegeben wird (mir fällt jedenfalls nichts ein ;-))

[marabu]

Hallo,

die Suche nach dem net path introducer // finde ich nicht so schlimm, die Code-Beispiele funktionieren ja schon aus einfacheren Gründen nicht zuverlässig.

Der RFC 2396 hat insgesamt 40 Seiten. Selbst der einfache Fall "Extrahieren des Servers" (oder wird hier wirklich die Domain gewünscht?) verlangt schon etwas mehr Überlegung als ich hier erkennen kann.

Ich würde bei InternetCrackUrl und einer allgemeinen Lösung bleiben.

Freundliche Grüße

[mkinzler]

Es muss eigentlich gar kein / vorhanden sein, da dies protokollabhängig ist. Bei http://, ftp:// file:// sind sie Teil des Protokolls bei mailto:[e-mail] oder news:blabla.blubb.tld nicht.
http://www.faqs.org/rfcs/rfc1738
http://tools.ietf.org/html/rfc3986