么意思博客

网上找半天没找到，网址盲提取。。 高手路过，可能效率不高，但够用了

网上找半天没找到，网址盲提取。。
高手路过，可能效率不高，但够用了

function tiyu(URL: String): String;
var
  i,y:integer;
  tmp:tstringlist;
  yu :Array Of string;
begin
  SetLength(yu, 260) ;
  yu[0]:='com';
  yu[1]:='net';
  yu[2]:='ru';
  yu[3]:='org';
  yu[4]:='de';
  yu[5]:='cn';
  yu[6]:='br';
  yu[7]:='uk';
  yu[8]:='jp';
  yu[9]:='pl';
  yu[10]:='in';
  yu[11]:='info';
  yu[12]:='it';
  yu[13]:='fr';
  yu[14]:='au';
  yu[15]:='nl';
  yu[16]:='ir';
  yu[17]:='es';
  yu[18]:='ua';
  yu[19]:='gr';
  yu[20]:='cz';
  yu[21]:='ca';
  yu[22]:='ro';
  yu[23]:='eu';
  yu[24]:='biz';
  yu[25]:='tw';
  yu[26]:='za';
  yu[27]:='tv';
  yu[28]:='se';
  yu[29]:='us';
  yu[30]:='mx';
  yu[31]:='edu';
  yu[32]:='co';
  yu[33]:='hu';
  yu[34]:='tr';
  yu[35]:='ar';
  yu[36]:='me';
  yu[37]:='vn';
  yu[38]:='dk';
  yu[39]:='ch';
  yu[40]:='be';
  yu[41]:='at';
  yu[42]:='cc';
  yu[43]:='no';
  yu[44]:='id';
  yu[45]:='kr';
  yu[46]:='sk';
  yu[47]:='pt';
  yu[48]:='fi';
  yu[49]:='my';
  yu[50]:='il';
  yu[51]:='cl';
  yu[52]:='hk';
  yu[53]:='nz';
  yu[54]:='kz';
  yu[55]:='ie';
  yu[56]:='lt';
  yu[57]:='by';
  yu[58]:='sg';
  yu[59]:='su';
  yu[60]:='th';
  yu[61]:='bg';
  yu[62]:='ws';
  yu[63]:='gov';
  yu[64]:='az';
  yu[65]:='asia';
  yu[66]:='pk';
  yu[67]:='rs';
  yu[68]:='tk';
  yu[69]:='hr';
  yu[70]:='lv';
  yu[71]:='ph';
  yu[72]:='pe';
  yu[73]:='mobi';
  yu[74]:='ve';
  yu[75]:='si';
  yu[76]:='ee';
  yu[77]:='sa';
  yu[78]:='pro';
  yu[79]:='fm';
  yu[80]:='ae';
  yu[81]:='to';
  yu[82]:='nu';
  yu[83]:='am';
  yu[84]:='name';
  yu[85]:='ma';
  yu[86]:='lk';
  yu[87]:='ng';
  yu[88]:='xxx';
  yu[89]:='io';
  yu[90]:='ge';
  yu[91]:='ec';
  yu[92]:='uz';
  yu[93]:='mn';
  yu[94]:='eg';
  yu[95]:='bd';
  yu[96]:='cat';
  yu[97]:='mk';
  yu[98]:='uy';
  yu[99]:='ba';
  yu[100]:='do';
  yu[101]:='bz';
  yu[102]:='lu';
  yu[103]:='ke';
  yu[104]:='tn';
  yu[105]:='is';
  yu[106]:='im';
  yu[107]:='pw';
  yu[108]:='la';
  yu[109]:='md';
  yu[110]:='travel';
  yu[111]:='ly';
  yu[112]:='cr';
  yu[113]:='dz';
  yu[114]:='so';
  yu[115]:='al';
  yu[116]:='cy';
  yu[117]:='kg';
  yu[118]:='st';
  yu[119]:='py';
  yu[120]:='gt';
  yu[121]:='kw';
  yu[122]:='cm';
  yu[123]:='vc';
  yu[124]:='pa';
  yu[125]:='li';
  yu[126]:='qa';
  yu[127]:='coop';
  yu[128]:='ps';
  yu[129]:='bo';
  yu[130]:='ag';
  yu[131]:='jobs';
  yu[132]:='sv';
  yu[133]:='om';
  yu[134]:='ug';
  yu[135]:='ms';
  yu[136]:='np';
  yu[137]:='mo';
  yu[138]:='aero';
  yu[139]:='sx';
  yu[140]:='int';
  yu[141]:='tz';
  yu[142]:='jo';
  yu[143]:='lb';
  yu[144]:='gs';
  yu[145]:='af';
  yu[146]:='sh';
  yu[147]:='mu';
  yu[148]:='cu';
  yu[149]:='kh';
  yu[150]:='tj';
  yu[151]:='mm';
  yu[152]:='tc';
  yu[153]:='cx';
  yu[154]:='ac';
  yu[155]:='gg';
  yu[156]:='mil';
  yu[157]:='hn';
  yu[158]:='ni';
  yu[159]:='mt';
  yu[160]:='sc';
  yu[161]:='sd';
  yu[162]:='iq';
  yu[163]:='ci';
  yu[164]:='tl';
  yu[165]:='gh';
  yu[166]:='cd';
  yu[167]:='as';
  yu[168]:='mz';
  yu[169]:='sn';
  yu[170]:='na';
  yu[171]:='re';
  yu[172]:='pr';
  yu[173]:='bh';
  yu[174]:='tt';
  yu[175]:='rw';
  yu[176]:='mg';
  yu[177]:='sy';
  yu[178]:='pn';
  yu[179]:='vg';
  yu[180]:='bw';
  yu[181]:='gd';
  yu[182]:='zw';
  yu[183]:='ao';
  yu[184]:='zm';
  yu[185]:='vu';
  yu[186]:='pf';
  yu[187]:='bn';
  yu[188]:='bt';
  yu[189]:='gl';
  yu[190]:='dj';
  yu[191]:='tel';
  yu[192]:='nf';
  yu[193]:='bf';
  yu[194]:='mr';
  yu[195]:='ad';
  yu[196]:='tm';
  yu[197]:='bi';
  yu[198]:='nr';
  yu[199]:='fo';
  yu[200]:='gi';
  yu[201]:='ai';
  yu[202]:='ye';
  yu[203]:='tf';
  yu[204]:='lc';
  yu[205]:='ht';
  yu[206]:='sm';
  yu[207]:='nc';
  yu[208]:='mv';
  yu[209]:='va';
  yu[210]:='fj';
  yu[211]:='bm';
  yu[212]:='gy';
  yu[213]:='sl';
  yu[214]:='jm';
  yu[215]:='mw';
  yu[216]:='hm';
  yu[217]:='wf';
  yu[218]:='ne';
  yu[219]:='gm';
  yu[220]:='museum';
  yu[221]:='bb';
  yu[222]:='et';
  yu[223]:='je';
  yu[224]:='cv';
  yu[225]:='ky';
  yu[226]:='mc';
  yu[227]:='bs';
  yu[228]:='pg';
  yu[229]:='gp';
  yu[230]:='pm';
  yu[231]:='ki';
  yu[232]:='dm';
  yu[233]:='ls';
  yu[234]:='ml';
  yu[235]:='sz';
  yu[236]:='ga';
  yu[237]:='vi';
  yu[238]:='aw';
  yu[239]:='kp';
  yu[240]:='bj';
  yu[241]:='mp';
  yu[242]:='an';
  yu[243]:='ck';
  yu[244]:='mq';
  yu[245]:='ax';
  yu[246]:='cf';
  yu[247]:='post';
  yu[248]:='sr';
  yu[249]:='lr';
  yu[250]:='yt';
  yu[251]:='km';
  yu[252]:='td';
  yu[253]:='cg';
  yu[254]:='eh';
  yu[255]:='aq';
  yu[256]:='sb';
  yu[257]:='kn';
  yu[258]:='tp';
  yu[259]:='tg';

  if Pos('&token', URL) > 0 then
  begin
    i:=length(url);
    y :=Pos('&token', URL);
    Delete(Url, y, i);
  end;

  if Pos('appid=', URL) > 0 then
  begin
    i:=Pos('appid=', URL);
    Delete(Url, 1, i+5);

  end;

  if Pos('?site=', URL) > 0 then
  begin
    i:=Pos('?site=', URL);
    Delete(Url, 1, i+5);

  end;



  if Pos('http://', URL) > 0 then
  begin
    Delete(Url, 1, 7);
    Result := Copy(Url, 1, Pos('/', Url) - 1);
  end;

  if Pos('https://', URL) > 0 then
  begin
    Delete(Url, 1, 8);
    Result := Copy(Url, 1, Pos('/', Url) - 1);
  end;
  //showmessage(url);
  tmp:=tstringlist.Create;
  tmp.Delimiter := '.';
  tmp.DelimitedText:=url;
  if tmp.Count>2 then
  begin
    //showmessage(tmp[tmp.Count-2]);
    for I := 0 to 260 do
    begin
      if tmp[tmp.Count-2]=yu[i] then
      begin
        Result :=tmp[tmp.Count-3] +'.'+tmp[tmp.Count-2]+'.' +tmp[tmp.Count-1] ;
        Break;
      end
      else
      begin
        if tmp[tmp.Count-1]=yu[i] then
        begin
          Result :=tmp[tmp.Count-2]+'.' +tmp[tmp.Count-1] ;
        end;
      end;
    end;
  end;
  tmp.Free;

  if Result = '' then
  begin
    Result := URL;
  end;

end;