Eric @ EricBess WebHome

  <? Php 
  'http://www.php.net/manual/en/install.php' ; $ Path_a = 'http://www.php.net/manual/en/install.php'; 
  'http://www.php.net/downloads' ; $ Path_b = 'http://www.php.net/downloads'; 

  Path A:  " . $path_a ; echo "\ n A Path:". $ path_a; 
  Path B:  " . $path_b ; echo "\ n Pad B:". $ path_b; 
  A to B:  " .  findRelativePath ( $path_a , $path_b ) ; //  ../../downloads/ echo "\ n A naar B:". findRelativePath ($ path_a, $ path_b); / / .. / .. / downloads / 
  B to A:  " .  findRelativePath ( $path_b , $path_a ) ; //  ../manual/en/install.php echo "\ n B naar A:". findRelativePath ($ path_b, $ path_a); / / .. / manual / nl / install.php 
  ?> 

  <? Php 
  $path_1 , $path_2 ) functie findRelativePath ($ path_1, $ path_2) 
  ( 
      $path_1 == ""   || $path_2 == "" ) if ($ path_1 == "" | | $ path_2 == "") 
      ( 
          ; return false; 
      ) 

      "/^( \\ /| \w : \\ /|https?: \\ / \\ /[^ \\ /]  \\ /)?(.*)$/i" , $path_1 , $matches_1 ,  PREG_SET_ORDER ) ; preg_match_all ( "/ ^ (\ \ / | \ w: \ \ / | https?: \ \ / \ \ / [^ \ \ /]   \ \ /)?(.*)$/ i", $ path_1, $ Matches_1, PREG_SET_ORDER); 
      "/^( \\ /| \w : \\ /|https?: \\ / \\ /[^ \\ /]  \\ /)?(.*)$/i" , $path_2 , $matches_2 ,  PREG_SET_ORDER ) ; preg_match_all ( "/ ^ (\ \ / | \ w: \ \ / | https?: \ \ / \ \ / [^ \ \ /]   \ \ /)?(.*)$/ i", $ path_2, $ Matches_2, PREG_SET_ORDER); 

      $matches_1 [ 0 ] [ 1 ] != $matches_2 [ 0 ] [ 1 ] ) if ($ matches_1 [0] [1]! = $ matches_2 [0] [1]) 
      ( 
          ; return false; 
      ) 

      explode ( "/" , $matches_1 [ 0 ] [ 2 ] ) ; $ Path_1_parts = exploderen ( "/", $ matches_1 [0] [2]); 
      explode ( "/" , $matches_2 [ 0 ] [ 2 ] ) ; $ Path_2_parts = exploderen ( "/", $ matches_2 [0] [2]); 

      isset ( $path_1_parts [ 0 ] ) && isset ( $path_2_parts [ 0 ] ) ) while (isset ($ path_1_parts [0]) & & isset ($ path_2_parts [0])) 
      ( 
          $path_1_parts [ 0 ] != $path_2_parts [ 0 ] ) if ($ path_1_parts [0]! = $ path_2_parts [0]) 
          ( 
              break; 
          ) 

          $path_1_parts ) ; array_shift ($ path_1_parts); 
          $path_2_parts ) ; array_shift ($ path_2_parts); 
      ) 

      $i = 0 , $path = "" ; $i < count ( $path_1_parts ) - 1 ; $i    ) for ($ i = 0, $ path = ""; $ i <count ($ path_1_parts) - 1; $ i    ) 
      ( 
          "../" ; $ Pad .= "../"; 
      ) 
      . implode ( "/" , $path_2_parts ) ; return $ pad. implode ( "/", $ path_2_parts); 
  ) 
  ?>