Aqui te mando una forma de hacerlo, pero no es la mejor si no te sirve me lo dices y te mando algo mas especifico. El codigo es el siguiente: //ESTE CODIGO ES PARA OBTENER EL COD_NAV $existe=""; $tok2= $HTTP_USER_AGENT; $tok2=substr("$tok2",13,1); if ($tok2=="[") { $nomnave="Netscape"; } else { $tok3= $HTTP_USER_AGENT; $tok3 = strtok ($tok3,";"); $tok3 = strtok (";"); $nomnave=trim($tok3); } $filename = "navegadores.txt"; $fp = fopen( $filename , "r"); while (!feof($fp)) { $texto = fgets($fp , 256); $tok = strtok ($texto,"?"); $aux=strtok ($texto,"?"); $tok = strtok ("?"); while ($tok) { if ($tok==$nomnave) { $existe = true; $cod_nav=$aux; } $tok = strtok ("?"); } $tok = strtok ("?"); $aux= strtok ("?"); $aux= strtok ("?"); } fclose ($fp); if($existe==true) { $pos=0; $fich_nav = fopen("navegadores.txt","r"); $i=0; if(!feof($fich_nav)) { while(!feof($fich_nav)) { $linea= fgets($fich_nav,1024); if(strlen($linea) > 0) { $codnave=substr($linea,0,2); $linea=substr($linea,3); $linea= strtok ($linea,"?"); $nombrenave=$linea; $linea= strtok ("?"); $linea=substr($linea,0,-2); $impactos=$linea; $navegadores[$i]=array(); $navegadores[$i][0]=$codnave; $navegadores[$i][1]=$nombrenave; $navegadores[$i][2]=(int)$impactos; $i++; } } $numnavegadores=$i; fclose($fich_nav); } for($i=0;$i<$numnavegadores;$i++) { if ($cod_nav==$navegadores[$i][0]) { $navegadores[$i][2]=(int)$navegadores[$i][2]+1; break; } } //Ahora se carga los datos desde el array modificado otra vez al fichero de sectores $fich_nav=fopen("navegadores.txt","w"); if(!feof($fich_nav)) { $i=0; while($i<$numnavegadores) { $linea=$navegadores[$i][0]."?"; $linea=$linea.$navegadores[$i][1]; $linea=$linea."?"; $linea=$linea.$navegadores[$i][2]; $linea=$linea."#\n"; fputs($fich_nav,$linea); $i++; } fclose($fich_nav); } } else { $impactos=1; $filename = "navegadores.txt"; $fp = fopen( $filename , "r"); while (!feof($fp)) { $texto = fgets($fp , 256); $tok = strtok ($texto,"?"); $tok = strtok ("?"); while ($tok) { $tok = strtok ("?"); } $i++; $tok = strtok ("?"); } fclose ($fp); $codnave=$i; $tok2= $HTTP_USER_AGENT; $tok2=substr("$tok2",13,1); if ($tok2=="[") { $nomnave="Netscape"; } else { $tok= $HTTP_USER_AGENT; $tok = strtok ($tok,";"); $tok = strtok (";"); $nomnave=trim($tok); } $fich_sec = fopen("navegadores.txt","a"); if (!feof ($fich_sec)) { if ($codnave < 10) { $codnave=(string)"0" . $codnave; } $linea=$codnave."?"; $linea=$linea.$nomnave; $linea=$linea."?"; $linea=$linea.$impactos; $linea=$linea.$act1; $linea=$linea."#\n"; fputs ($fich_sec,$linea); fclose($fich_sec); } }
el 24 jul. 01