Hent adresse ud fra telefonnummer
Hej ExpFandt denne kode her inde på exp.dk
<?php
// Ændr nummer
$nummer = "20 87 78 11";
$nummer = str_replace( " ", "+", $nummer );
$url = "http://www.degulesider.dk/vbw/super/resultat.do?compTrade=&compZip=&compCity=&compAddress=&compRegionID=&Image51.x=0&Image51.y=0&compPhone=";
$resnum = "/<strong>Navne<\/strong>\s+- (\d+)\s+resultat\s+af <strong>(\d+)<\/strong>(.*)/s";
$navn = '/<td class="navn" align="left" valign="middle">(.*?)<\/td>/';
$adr = '/<table border="0" cellspacing="0" cellpadding="0">\s+<tr>\s+<td style="width: 22px;"><\/td>\s+<td>(.*?)<\/td>\s+<\/tr>\s+<\/table>/s';
$cont = file_get_contents( $url . $nummer );
preg_match( $resnum, $cont, $m );
$antal = $m[2];
$rest = $m[3];
preg_match( $navn, $rest, $n );
$navn = $n[1];
preg_match( $adr, $rest, $a );
$adresse = $a[1];
echo "Der var $antal match" . ( $antal != 1 ? 'es' : '' ) . "...<br><br>";
echo "$navn<br>";
echo $adresse;
?>
Men koden er fra 02/01-2005 og den virker ikke mere er der nogen som kan omskrive den så den virker ?
Har selv prøvet men nu er Delphi ikke lige min beste side ;-)
Kunne også være godt hvis man kunne opdele dig i nogen flere grupper fx.
Navn
Adresse
Post nummer
By