La idea es que este codigo funcione y necesito los arrays:
<?php
// Creado originalmente por Bozzolo Pablo para VB6 (2007)
// Variables para Insider2
$posO = array(); // valores de apertura
$posC = array(); // valores de cierre
Function Insider2($cad,$str1,$str2){
# devuelve TODOS los substringS enre str1 y str2
$ix = 0; # indice de los arrays
global $posO; global $posC; # declaro como globales estos arrays
$cadena = " ".$cad; // desplazo con espacio "a proposito" por condicional ($pos1 <> 0)
For ( $i = 0; $i<100; $i++){ #limpio array
$posO[i] = 0; $posC[i] = 0;
}
$tempo = 0;
for ( $i = 0 ; $i < strlen($cadena) ; $i ++) {
$posO[ix] = strpos($cadena, $str1,$i);
If ($posO[ix] <> 0) {
$valor = strpos($cadena, $str2,$i + strlen($str1));
If (($valor > $tempo) && $valor <> 0) {
$posC[ix] = strpos($cadena, $str2,$i + strlen($str1));
$tempo = $posC[ix];
$ix++;
}
}
}
--$posO[ix];--$posC[ix]; // resto 1 a ambas posiciones para ser coherente con el desplazamiento inicial por el espacio
If (($posO[ix] = 0 || $posC[ix] = 0) && $ix > 0) {
$ix--;
}
return $ix; #devuelve numero de elementos
}
} # main
$entrada = "<a href='http1' title='title1'>Anchor1</a> ufeirhhfreui <a href='http2' title='title2' >ANCHOR 2</a> <p/> <a href='http3' title='title3' >aNCHOR III</a>";
$tags = Insider2($entrada, "<a", "</a>");
//print "<p/>Tags: ".$tags."<p/>";
For ($i = 0; $i<$tags; $i++){
$enlace = substr($entrada, $posO[$i], $posC[$i]);
Print $i." ".$posO[$i]." ".$posC[$i]." " .$enlace;
}
?>
Agradecido desde ya!!
![borracho](http://static.forosdelweb.com/fdwtheme/images/smilies/borracho.png)