Parse en URL

hehe, gider ikke???

/ZIRON

Nej, ikke hvis det er lavet i forvejen og der er en der ved hvor sagerne ligger ;)

hehe jaja, men gider ikke skirve det lige nu. måske om en ½\'times tid...

/ZIRON

Ok :)
Husk på at @ og . også kan optræde i Dirnavn

hehe, hvad skal du endelig bruge det til????

/ZIRON

Automatisk analyse af html sider

:-)

/ZIRON

link dead...\"automatisk analyse af html sider\"???
hmm...

justincase1089>>Jeg har lavet en function som parser en FTP-url som du har beskrevet...Kan du bruge den ?

------

type
  TFTPUrl = record
    FullUrl: string;
    UserName: String;
    PassWord: String;
    HostName: String;
    DirName: String;
    Filename: String;
  end;


function ParseFTP(Url: string): TFtpUrl;
begin
  Result.FullUrl := Url;
  Url := Edit1.Text;
  if Pos(\'ftp://\', Url) > 0 then
    delete(Url, Pos(\'ftp://\', Url), 6);
  Result.UserName := Copy(Url, 1, Pos(\':\', Url)-1);
  Delete(Url, 1, Pos(\':\', Url));
  Result.PassWord := Copy(Url, 1, Pos(\'@\', Url)-1);
  Delete(Url, 1, Pos(\'@\', Url));
  Result.HostName := Copy(Url, 1, Pos(\'/\', Url)-1);
  Delete(Url, 1, Pos(\'/\', Url));
  Result.DirName := Copy(Url, 1, LastDelimiter(\'/\', Url));
  Delete(Url, 1, LastDelimiter(\'/\', Url));
  Result.Filename := Url;
end;


/SpEeDy

Ups, der var lige lidt rest-kode :)

type
  TFTPUrl = record
    FullUrl: string;
    UserName: String;
    PassWord: String;
    HostName: String;
    DirName: String;
    Filename: String;
  end;


function ParseFTP(Url: string): TFtpUrl;
begin
  Result.FullUrl := Url;
  if Pos(\'ftp://\', Url) > 0 then
    delete(Url, Pos(\'ftp://\', Url), 6);
  Result.UserName := Copy(Url, 1, Pos(\':\', Url)-1);
  Delete(Url, 1, Pos(\':\', Url));
  Result.PassWord := Copy(Url, 1, Pos(\'@\', Url)-1);
  Delete(Url, 1, Pos(\'@\', Url));
  Result.HostName := Copy(Url, 1, Pos(\'/\', Url)-1);
  Delete(Url, 1, Pos(\'/\', Url));
  Result.DirName := Copy(Url, 1, LastDelimiter(\'/\', Url));
  Delete(Url, 1, LastDelimiter(\'/\', Url));
  Result.Filename := Url;
end;


Men er det noget du kan bruge ?

/SpEeDy

Ok hvad så, hvis password og username ikke er nødvendig for ftp sitet ... f.eks. ftp://ftp.netscape.com. Det var derfor jeg spurgte om noget færdiglavet et eller andet sted fra. Det er ikke så let som ovenstående bare lige at lave noget som æder det hele. Jeg kan ikke bruge et net med for store huller i til noget (Det kan jeg selv lave ;)

hmm ... ingen bud