\n";
while ((!feof($f_activo))&&($linea!=$separador)) {
$linea = trim(fgets($f_activo));
if ($linea!=$separador) {
// Volcar registro en salida standard
echo "{$linea}\n";
}
}
}
fclose ($f_activo);
} // ENDIF: No hay numero en linea uno
} // ENDIF: No pudo abrir fichero
// Informe de errores
if ($cod_error != 0) {
switch ($cod_error) {
case 1 :
$msg_error = "Error: Repositorio no accesible";
break;
case 2 :
$msg_error = "Error: Repositorio fuera de formato";
break;
case 3 :
$msg_error = "Error: Numero de registros no coincide en {$almacen01}";
break;
}
echo $msg_error;
}
?>
