如何从txt文件中的url中提取主机名？

Question

我在文本文件中有几个网址，只想提取他们的主机名并将它们保存回同一个文件。

前：

https://github.com/markjaquith/WordPress/blob/master/

我只需要主机名：

github.com

有什么想法吗？

Answer 1

使用此功能从http（或https）URL中提取域。没有对提供的URL执行验证，它应该是一个完整，有效的http / https URL。

FUNCTION ExtractDomain(CONST URL : STRING) : STRING;
  VAR
    P : Cardinal;

  BEGIN
    Result:=URL;
    IF COPY(Result,1,7)='http://' THEN DELETE(Result,1,7);
    IF COPY(Result,1,8)='https://' THEN DELETE(Result,1,8);
    P:=POS('/',Result);
    IF P>0 THEN SetLength(Result,PRED(P))
  END;

Answer 2

      function extractdomain(url : string) : string;
           var
             p : cardinal;
           begin 
             result:=''; 
             if trim(url)='' then exit;
             url:=trim(url)+'/';
             p:=pos('://',url);
             if p>0 then delete(url,1,p+pred(length('://')));
             p:=pos('/',url);
             result:=copy(url,1,pred(p));
           end;