PHP->Delphi: Inverssuche (Rückwärtssuche für Telefonnummern)

[derpepe]

Zitat von FriFra:

Mag sein... ich habe aber 5 Nummern von Bekannten getestet, die alle im Telefonbuch stehen... keine wurde gefunden

Evtl. haben die alle der Rückwärtssuche widersprochen?

Ansonsten versuch mal das hier:

Quelltext für "Das Örtliche":

Code:

<?php

//
// Inverssuche via 'dasoertliche.de'
//
// Copyright (c) 2005 Peter J. Schneider
// [url]www.raketenwerfer.de[/url]
//


define("NL", "
\n");


function get_name_by_number($number) {
   $url = 'http://www.dasoertliche.de/DB4Web/es/oetb2suche/home.htm'.
      '?main=Antwort&AKTION=START_INVERS_SUCHE&SEITE=INVERSSUCHE_V'.
      '&s=2&rg=1&taoid=&si=&SKN=0&kw_invers='.
      urlencode($number);

   // Abfrage
   $file = fopen ($url, "r");
   if (!$file) {
      exit;
   }
   while (!feof ($file)) {
      $line = fgets ($file, 1024);
      if (eregi ("<a class=\"blb\"(.*)</td>", $line, $out)) {
         $result = $out[1];
         break;
      }
   }
   fclose($file);

   // Prä parsen
   $result = substr($result, strpos($result,   '>')+2);

   $vor_array = explode('</a>
', $result);   // 0 : Name
                                    // 1: Anschrift
   
   $vor_array2 = explode(', ', $vor_array[1]); // 0: Straße
                                    // 1: PLZ / Ort

   return array($vor_array[0], $vor_array2[0], $vor_array2[1]);
}



$result = get_name_by_number($_GET['number']);

echo $result[0].NL;
echo $result[1].NL;
echo $result[2]; 

?>