Вернуться   SEO форум - оптимизация и продвижение сайтов > Web разработки > Разработка сайтов

Важная информация
Разработка сайтов - Создание сайта, сателлитов, настройка CMS, установка движков, скрипты...

Ответ
 
Опции темы Оценить тему Опции просмотра
Старый 08.04.2009, 07:54   #1
 
Аватар для specialist-seo
 
Сообщений: 2,199
FR (активность): 49,104

Доп. информация
По умолчанию Автор темы Скрипт проверки уникальности текста

В просторах интернета нашел один интересный скрипт, наверное кому-то пригодится может.

[PHP]
<?php
/**
* Скрипт проверки уникальности.
*
* Разбивает введённый в него текст на куски по 10 слов, создаёт из них 10-словные запросы
* для Yandex и Google, разбирает выдачу и формирует отчёт о частоте упоминания комбинаций
* слов в интернете.
* Перед началом использования этого скрипта рекомендуется ознакомиться с правилами Яндекса.
* Автор скрипта не несёт ответственности за любой ущерб причинённый его неправильным использованием.
*
* @see http://rules.yandex.ru/termsofuse.xml
* @author agronom
* @version $Id$
*
*/
ob_start();
?>
<html>
<head>
<title>Проверка уникальности текста</title>
<meta http-equiv="content-type" content="text/html; charset=windows-1251">
</head>
<body>
<h1>Проверка уникальности текста в интернете.</h1>
<form method="post">
<b>Текст для проверки </b>
<small>(Скопируйте сюда текст веб-страницы)</small><b>:</b><br>
<textarea name="query" cols="80" rows="5"></textarea><br>
<input type="submit" value="Проверить">
</form>
<?php
/**
* Выбирает доменное имя
* @param $a
*/
function handle_info($a){
$a = explode("\n", trim(strip_tags($a)));
$a = preg_replace("/^(www\.)?([\w\-\.]+):?([\d]+)?\/?([\s\S]*)?/i", "$2", strtolower($a[0]));
return $a;
}

/**
* Получает информацию о выдаче яндекса по запросу
*
* @param string $query текст запроса без URL кодирования
* @return array $a
* $a[0][1] - число найденных страниц
* $a[0][2] - число найденных сайтов
* $a[1] - массив найденных доменов
*/
function top_10($query) {
$url = "http://yandex.ru/yandsearch?text=".urlencode($query);
$txt = file_get_contents($url);
//echo "Ответ Яндекса";
//echo nl2br(htmlspecialchars(print_r($txt, true)));
$brief = get_brief($txt);
if (!is_array($brief)) {
return false;
}
// Получаем список сайтов yandex top 10
preg_match("/\<ol[\s\S]*?\>[\s\S]*?\<\/ol[\s\S]*?\>/", $txt, $results);
// Из списка ссылок делаем массив
preg_match_all("/\<li[\s\S]*?\>[\s\S]*?\<div class=\"info\">([\s\S]*?)\<\/div\>[\s\S]*?\<\/li[\s\S]*?\>/", $results[0], $results);
$results[1] = array_map("handle_info", $results[1]);
return array($brief, $results[1]);
}
/**
* Получает информацию о выдаче Google по запросу
*
* @param string $query текст запроса без URL кодирования
* @return array
*/
function top_10_g($query) {
$url = "http://www.google.com/search?hl=ru&q=".urlencode($query);
$txt = file_get_contents($url);
$brief = get_brief_g($txt);
if (!is_array($brief)) {
return false;
}
return array($brief, false);
}
/**
* Получает краткую информацию о числе результатов поиска в Yandex
*
* @param string $text текст страницы
* @return array $a $a[1] - число страниц, $a[2] - число сайтов
*/
function get_brief($text){
preg_match("/\<title\>[\s\S]+?:[\s\S]+?(\d+)[\s\S]+?\<\/title\>/i", $text, $ref);
$ref[1] = (@$ref[1]) ? $ref[1] : 0 ;
return $ref;
}
/**
* Получает краткую информацию о числе результатов поиска в Google
*
* @param string $text текст страницы
* @return array $a $a[1] - число страниц
*/
function get_brief_g($text){
$exp = "/\<div id=ssb\>\<div id=prs>\<b\>[\s\S]*?\<\/b\>\<\/div>\<p\>[\s\S]*?\<b\>[\d]*?\<\/b\> - \<b\>[\d]*?\<\/b\>[\s\S]*?\<b\>([\d\s]*?)\<\/b\>[\s\S]*?\<\/p\><\/div\>/i";
if (!preg_match($exp, $text, $ref)) {
return false;
}
$ref[1] = (isset($ref[1]))?(int)str_replace("&nbsp;", "", $ref[1]):0;
return $ref;
}

if (isset($_POST['query'])) {
$log = array();
$log['query'] = $_POST['query'];
$queries = (get_magic_quotes_gpc())?stripslashes($_POST['query']):$_POST['query'];
$queries = preg_replace("/[?!\(\)'\",]/", "", $queries);
$queries = preg_replace("/[- ]{2}/", " ", $queries);
$queries = preg_replace("/ +/", " ", $queries);
$queries = str_replace(".", "\n", $queries);
$queries = explode("\n", trim($queries)); // Разбиваем на предложения
?>
<h2>Яндекс</h2>
<table border="1">
<tr><td>Страниц</td><td>Запрос</td></tr>
<?php
foreach ($queries as $q) {
if (strlen($q) > 30) {
$q = preg_replace("/(([\S]+?[\s]+){3,9}[\S]+)[\s\S]*/", "$1", $q);
$top = @top_10("\"".trim($q)."\"");
$log["yandex"][] = array($top[0][1], $q);
?><tr><td><span title="<?php echo implode("\r\n", $top[1]); ?>"><?php echo $top[0][1]; ?></span></td><td><a href="http://www.yandex.ru/yandsearch?text=<?php echo urlencode("\"$q\""); ?>" target="_blank"><?php echo $q; ?></a></td></tr><?php
}
}
?></table>
<h2>Google</h2>
<table border="1">
<tr><td>Сайтов</td><td>Запрос</td></tr>
<?php
foreach ($queries as $q) {
if (strlen($q) > 30) {
$q = preg_replace("/(([\S]+?[\s]+){3,9}[\S]+)[\s\S]*/", "$1", $q);
$top = @top_10_g("\"".trim($q)."\"");
$log["google"][] = array(@$top[0][1], $q);
?><tr><td><?php echo (is_int(@$top[0][1]))? $top[0][1] : "N/A"; ?></td><td><a href="http://www.google.com/search?hl=ru&q=<?php echo urlencode("\"$q\""); ?>" target="_blank"><?php echo $q; ?></a></td></tr><?php
}
}
?></table><?php
}
?>
[/PHP]
specialist-seo вне форума  
Ответить с цитированием Сказать Плохо за это бесполезное сообщение Быстрый ответ на это сообщение
"Спасибо" от:
Doka (18.04.2009), komyak (18.04.2009)
Старый 16.04.2009, 19:16   #2
 
Аватар для MisterCom
 
Сообщений: 41
FR (активность): 271

Доп. информация
По умолчанию Ответ: Скрипт проверки уникальности текста

Спасибо, сохранил скриптик. На досуге нужно будет посмотреть.


Земля круглая
MisterCom вне форума  
Ответить с цитированием Сказать Плохо за это бесполезное сообщение Быстрый ответ на это сообщение
Старый 17.04.2009, 19:37   #3
 
Аватар для seofate
 
Сообщений: 1
FR (активность): 5

Доп. информация
По умолчанию Ответ: Скрипт проверки уникальности текста

Спасибо. Я вообще все полезные скрипты собираю


Деньги приносят счастье лишь тогда, когда вы получаете удовольствие от их зарабатывания.
seofate вне форума  
Ответить с цитированием Сказать Плохо за это бесполезное сообщение Быстрый ответ на это сообщение
Старый 17.04.2009, 21:34   #4
 
Аватар для Nooka
 
Сообщений: 3
FR (активность): 16

Доп. информация
По умолчанию Ответ: Скрипт проверки уникальности текста

Спасибо, пригодится.
Nooka вне форума  
Ответить с цитированием Сказать Плохо за это бесполезное сообщение Быстрый ответ на это сообщение
Старый 18.04.2009, 10:59   #5
 
Аватар для komyak
 
Сообщений: 1,178
FR (активность): 31,654

Доп. информация
По умолчанию Ответ: Скрипт проверки уникальности текста

Оффтоп:
А скриптик то действительно работает Спасибо


Сео
komyak вне форума  
Ответить с цитированием Сказать Плохо за это бесполезное сообщение Быстрый ответ на это сообщение
Старый 18.04.2009, 13:00   #6
 
Аватар для Doka
 
Сообщений: 249
FR (активность): 7,739

Доп. информация
По умолчанию Ответ: Скрипт проверки уникальности текста

Замммечательная однако вещ!!!
Doka вне форума  
Ответить с цитированием Сказать Плохо за это бесполезное сообщение Быстрый ответ на это сообщение
Старый 22.10.2009, 14:55   #7
 
Аватар для mumitroll
 
Сообщений: 119
FR (активность): 2,976

Доп. информация
По умолчанию Ответ: Скрипт проверки уникальности текста

Оффтоп:
у меня не работает((
mumitroll вне форума  
Ответить с цитированием Сказать Плохо за это бесполезное сообщение Быстрый ответ на это сообщение
Старый 22.10.2009, 19:20   #8
 
Аватар для Турист
 
Сообщений: 1,153
FR (активность): 55,915

Доп. информация
По умолчанию Ответ: Скрипт проверки уникальности текста

у адвего есть хорошая програмка для проверки на уинк. Сразу процент уника показывает.




Турист вне форума  
Ответить с цитированием Сказать Плохо за это бесполезное сообщение Быстрый ответ на это сообщение
Старый 23.10.2009, 13:43   #9
 
Аватар для specialist-seo
 
Сообщений: 2,199
FR (активность): 49,104

Доп. информация
По умолчанию Автор темы Ответ: Скрипт проверки уникальности текста

В основном адвего и использую, но сфера применения скриптов - веб интерфейс, а адвего десктоп
specialist-seo вне форума  
Ответить с цитированием Сказать Плохо за это бесполезное сообщение Быстрый ответ на это сообщение
Ответ

Быстрый ответ
Ваше имя пользователя: Регистрация. Для входа нажмите здесь
Случайный вопрос

Сообщение:
Опции
Внимание!
Этой теме более 3166 дней. Вы можете оставить сообщение здесь. Но, обращаем внимание. Возможно, рациональней создать новую тему (найти свежее обсуждение)?


Опции темы
Опции просмотра Оценка этой теме
Оценка этой теме:

Ваши права в разделе
Вы не можете создавать новые темы
Вы можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Ищу скрипт проверки наличия ссылок на странице Lucas Разработка сайтов 4 25.12.2014 02:31
Прога для проверки уникальности контента zusicks438 Программы для создания сайтов 3 06.01.2010 19:08
Прога для проверки уникальности статьи gekz Программы для создания сайтов 6 11.08.2009 01:34
Text Analyzer - программа проверки уникальности большого количества текстов Ice Core Программы для создания сайтов 0 22.05.2009 11:11
Скрипт проверки проиндексированных Яндексом страниц для САПы Igor Софт оптимизатора, SEO утилиты 4 30.09.2008 11:06

Текущее время: 17:21. Часовой пояс GMT +3.