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

[FriFra]

Zitat:

Zitat von derpepe

Zitat:

Zitat von FriFra

Das Script an sich ist ja eine gute Idee, aber der verwendete Service taugt nichts... Ich habe gerade mal mehrere Nummern getestet, die definitiv im Telefonbuch stehen, aber goyellow findet nichts. Vielleicht finden die ja nur ihre eigenen kunden? :roll:

Wenn man keine Nummern zum Testen hat, wird's auch nichts mit einer Delphi-Version...

Spontane Suche auf goyellow.de nach "Müller" in "Hamburg":
04043182609

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

[derpepe]

Zitat:

Zitat von FriFra

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

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]; 

?>