Info z Aresu podle jména

$sock = fsockopen("wwwinfo.mfcr.cz", 80,$errno,$errstr,30); fputs($sock, "GET /cgi-bin/ares/darv_bas.cgi?ico=28254431 HTTP/1.1rnHost: wwwinfo.mfcr.czrn"); fputs($sock, "Connection: closernrn");while ($line = fgets($sock, 128)){$page .= $line; }echo " ";echo $page;jeste sem zkousel primo z justice.cz tímto, ale to mi funguje tak napůl, vono to taky trochu vyplývá z nejednoznačnosti(podobností) názvů firem:function hledej_vyraz_v_url($url,$vyraz,$nadpis){$the_page = fopen($url, "r");while(!feof($the_page)){ $aktualni_radek = fgetss($the_page,4096); if(eregi($vyraz, $aktualni_radek))// pokud najde vyraz { $ico= substr($aktualni_radek, strpos($aktualni_radek,$vyraz)+4,8); return $ico; break; } }$ico=hledej_vyraz_v_url("http://www.justice.cz/xqw/xervlet/insl/index?sysinf.@typ=or&sysinf.@strana=searchResults&hledani.@typ=subjekt&hledani.format.typHledani=x*&hledani.podminka.subjekt=Trh Nápadů s.r.o.","IČO","Justice.cz");