function obtenerNombre($pal) {
	    $result=$pal;
        for ( $i =0;$i<= strlen($pal);$i++) {
	    $linea=substr($pal,$i,1);
        if (( !validarDatos($linea) ) ||  ( $linea == "=" ) || ( $linea == "=".chr(34) )) { return substr($pal,0,$i);  }
        } 
        return $result;
}


function validardatos($datos) {

if ( eregi("^[a-z]+$",$datos) ) { return true; }  
if ( eregi("^[0-9a-z]+$",$datos) ) { return true; } 
if ( eregi("^[0-9]+$",$datos) ) { return true; }  
if ( eregi("^[-]+$",$datos) ) { return true; } 
if ( eregi("^[_]+$",$datos) ) { return true; } 
return false;
}

$coordenadas="";

$handle = fopen("http://www.intbondmarket.com/lenguajes/pruebases.txt", "r");
if ($handle) {
   while (!feof($handle)) {
      $lineaReal=fread($handle, 8192);
      
      
     // echo "<br>".$lineaReal;
      
      
       for ( $i =0;$i<= strlen($lineaReal);$i++) {
	         $caracter=substr($lineaReal,$i,1);
          if ( $caracter == chr(36) ) { 
	          $frase=substr($lineaReal,$i+ 1);
	           $obt=obtenerNombre($frase);

	           if ( strlen($obt) > 0 ) {  $texto="&".$obt; }
	           else { $texto=""; }
	        
	            $busqueda = strpos($coordenadas, $texto);
	
                if (( $busqueda === false) && ( strlen($texto) > 0 )) {
	            if ( strlen($coordenadas) == 0 ) { $coordenadas=$texto; }
				 else { $coordenadas=$coordenadas.$texto; }
                }

	       }
       }    
   }
   fclose($handle);
}