class - Поиск - Библиотека программиста

Поиск

PHP. Генерация meta name=keywords "на лету"

Дата: 22.02.2025 Модуль: Категория: PHP

Создавая свой php движок для нового сайта, я, как и всегда не захотел выполнять нудную работу сам и поэтому такое задание как подбор ключевых слов к каждой странице сайта доверил php скрипту, который написал меньше чем за полчаса.

Конечно, многие могут сказать, что поисковики не учитывают мета теги keywords и description, и вовсе незачем голову морочить проблемой подбора ключевых слов, но учитывают или нет, это известно только администраторам поисковых машин. В частности, я недавно проводил эксперимент, в котором участвовало три пары сайтов, на каждой паре сайтов был один и тот же контент, но на одном из сайтов каждой пары были прописаны keywords и description. И что вы думаете, через месяц, все три сайта с keywords и description были выше в выдаче Яндекса, чем их двойники без этих мета тегов. (Примечание: сайты были оптимизированы под абсолютно не конкурентные запросы и не имели бэклинков).

Принцип работы php скрипта, основной задачей которого является “на лету” подбирать к тексту ключевые слова (keywords), заключается в разделении всего текста на слова и занесение их в массив. Из исходного текста сначала удаляются все знаки препинания, затем слова помещаются в массив и каждому слову присваивается число его повторений в тексте. После заполнения массива слова упорядочиваются по количеству повторений, и в качестве результатов берется верхушка массива – 15-25 самых часто употребляемых слов.

А вот и сам исходный код этого php-скрипта для подбора ключевых слов:

PHP - Код




class Counter

{

    var $origin_arr;

    var $modif_arr;

    var $min_word_length = 3;

 

function explode_str_on_words($text)

{

    $search = array ("'ё'",

                     "'<script[^>]*.*?</script>'si",  // Вырезается javascript

                     "'<[&#092;/&#092;!]*?[^<>]*'si",           // Вырезаются html-тэги

                     "'([&#092;r&#092;n])[&#092;s]+'",                 // Вырезается пустое пространство

                     "'&(quot|#34);'i",                 // Замещаются html-элементы

                     "'&(amp|#38);'i",

                     "'&(lt|#60);'i",

                     "'&(gt|#62);'i",

                     "'&(nbsp|#160);'i",

                     "'&(iexcl|#161);'i",

                     "'&(cent|#162);'i",

                     "'&(pound|#163);'i",

                     "'&(copy|#169);'i",

                     "'&#(&#092;d+);'e");

    $replace = array ("е",

                      " ",

                      " ",

                      "&#092;&#092;1 ",

                      "&#092;" ",

                      " ",

                      " ",

                      " ",

                      " ",

                      chr(161),

                      chr(162),

                      chr(163),

                      chr(169),

                      "chr(&#092;&#092;1)");

    $text = preg_replace ($search, $replace, $text);

    $del_symbols = array(",", ".", ";", ":", "&#092;"", "#", "&#092;$", "%", "^",

                         "!", "@", "`", "~", "*", "-", "=", "+", "&#092;&#092;",

                         "|", "/", ">", "<", "(", ")", "&", "?", "?", "&#092;t",

                         "&#092;r", "&#092;n", "{","}","[","]", "'", "“", "”", "•",

                         "как", "для", "что", "или", "это", "этих",

                         "всех", "вас", "они", "оно", "еще", "когда",

                         "где", "эта", "лишь", "уже", "вам", "нет",

                         "если", "надо", "все", "так", "его", "чем",

                         "при", "даже", "мне", "есть", "раз", "два",

                         "0", "1", "2", "3", "4", "5", "6", "7", "8", "9"

                         );

    $text = str_replace($del_symbols, array(" "), $text);

    $text = ereg_replace("( +)", " ", $text);

    $this->origin_arr = explode(" ", trim($text));

    return $this->origin_arr;

}

 

function count_words()

{

    $tmp_arr = array();

    foreach ($this->origin_arr as $val)

    {

        if (strlen($val)>=$this->min_word_length)

        {

            $val = strtolower($val);

            if (array_key_exists($val, $tmp_arr))

            {

                $tmp_arr[$val]++;

            }

            else

            {

                $tmp_arr[$val] = 1;

            }

        }

    }

    arsort ($tmp_arr);

    $this->modif_arr = $tmp_arr;

}

 

function get_keywords($text)

{

    $this->explode_str_on_words($text);

    $this->count_words();

    $arr = array_slice($this->modif_arr, 0, 30);

    $str = "";

    foreach ($arr as $key=>$val)

    {

       $str .= $key . ", ";

    }

    return trim(substr($str, 0, strlen($str)-2));

}

}

Пользоваться данным php классом очень просто, создаете экземпляр класса функцией new а потом вызываете внутреннюю функцию get_keywords(), класса Counter. Вот наглядный пример использования этого класса:

PHP - Код


$word_counter = new Counter();

if (strlen($content)>50000)

{

    $keywords = $word_counter->get_keywords(substr($content, 0, 50000));

}

else

{

    $keywords = $word_counter->get_keywords($content);

}

В переменной $content должен содержатся основной текст страницы, для которой создаются ключевые слова. И еще, полученная строка содержит только ключевые слова, без мета тегов. Скачать данный php класс для подбора ключевых слов в zip архиве вы можете здесь.

Разместил: admin Смотрим и оставляем комментарий »

Создание приложений OLE 2

Дата: 22.02.2025 Модуль: Категория: С++, Visual C++

Разместил: admin Смотрим и оставляем комментарий »

Поочередно показываем рисунки

Дата: 22.02.2025 Модуль: Категория: Delphi и TurboPascal

У нас ест форма, на ней Image1 и Timer1, и на диске в одной папке содержатся рисунки. Попытаемся поочередно показывать эти рисунки в image1,

Код

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Image1: TImage;
Timer1: TTimer;
foto: TListBox;
procedure Button1Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1; i:word;

implementation

uses ShellAPI, ShlObj;// Нужны для работы с диалогом выбора
{$R *.dfm}

procedure FillBMPFileList(Folder: string; sl: TStrings);// процедура добавления файлов в список
var Rec : TSearchRec;
begin
sl.Clear;
if SysUtils.FindFirst(Folder + '*.bmp', faAnyFile, Rec) = 0 then
try
repeat
sl.Add(Folder+Rec.Name);
until SysUtils.FindNext(Rec) <> 0;
finally
SysUtils.FindClose(Rec);
end;
end;

function BrowseDialog(const Title: string; const Flag: integer): string;// вывод диалога выбора файлов
var
lpItemID : PItemIDList;
BrowseInfo : TBrowseInfo;
DisplayName : array[0..MAX_PATH] of char;
TempPath : array[0..MAX_PATH] of char;
begin
Result:='';
FillChar(BrowseInfo, sizeof(TBrowseInfo), #0);
with BrowseInfo do begin
hwndOwner := form1.Handle;
pszDisplayName := @DisplayName;
lpszTitle := PChar(Title);
ulFlags := Flag;
end;
lpItemID := SHBrowseForFolder(BrowseInfo);
if lpItemId <> nil then begin
SHGetPathFromIDList(lpItemID, TempPath);
Result := IncludeTrailingBackslash(TempPath);
GlobalFreePtr(lpItemID);
end;
end;

procedure TForm1.Button1Click(Sender: TObject);// запуск ункции вывода файлов
var fs : string;
begin
fs := BrowseDialog('Выберите папку с BMP файлами', BIF_RETURNONLYFSDIRS);
if fs = '' then Exit;
FillBMPFileList(fs, foto.Items);
timer1.Enabled:=true
end;

procedure TForm1.Timer1Timer(Sender: TObject);// вывод картинок на image
begin
if i= foto.Count-1 then exit;
image1.Picture.LoadFromFile(foto.Items.strings[i]);
inc(i);
end;

end

Разместил: admin Смотрим и оставляем комментарий »

Создание окон произвольной формы

Дата: 22.02.2025 Модуль: Категория: Delphi и TurboPascal

Разместил: admin Смотрим и оставляем комментарий »

Несколько слов об изменении запроса в run-time

Дата: 22.02.2025 Модуль: Категория: Delphi и TurboPascal

Разместил: admin Смотрим и оставляем комментарий »

Разработка расширенных хранимых процедур.

Дата: 22.02.2025 Модуль: Категория: Базы данных

Разместил: admin Смотрим и оставляем комментарий »

Список портов и их сервисов

Дата: 22.02.2025 Модуль: Категория: Сети и протоколы

Разместил: admin Смотрим и оставляем комментарий »

Стратегия безопасности Windows XP

Дата: 22.02.2025 Модуль: Категория: Администрирование

Разместил: admin Смотрим и оставляем комментарий »

Безопасность WINDOWS в INTERNET

Дата: 22.02.2025 Модуль: Категория: Безопасность

Разместил: admin Смотрим и оставляем комментарий »

Настройка меню Start

Дата: 22.02.2025 Модуль: Категория: Операционные системы (ОС)

Разместил: admin Смотрим и оставляем комментарий »

Реализация шаблонов на PHP

Дата: 22.02.2025 Модуль: Категория: PHP

Разместил: admin Смотрим и оставляем комментарий »

Программное определение движения колеса мыши

Дата: 22.02.2025 Модуль: Категория: Delphi и TurboPascal

В приведенном примере показано как отследить (обнаружить) движение колеса мыши.

Принцип работы прост - на события OnMouseWheel, OnMouseWheelDown, OnMouseWheelUp вешаются соответствующие процедуры-обработчики.

Код

unit Unit2;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Label1: TLabel;
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);

private

{ Private declarations }

// описание обработчиков событий

// обработка движения колеса мыши
procedure MouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);

// обработка прокрутки колеса вниз
procedure MouseWheelDown(Sender: TObject; Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);

// обработка прокрутки колеса вверх
procedure MouseWheelUp(Sender: TObject; Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);

public

{ Public declarations }
end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin

// Назначаем обработчики для событий:
// движение колеса мыши
Form1.OnMouseWheel:=MouseWheel;

// прокрутка колеса вниз
Form1.OnMouseWheelDown:=MouseWheelDown;

// прокрутка колеса вверх
Form1.OnMouseWheelUp:=MouseWheelUp;

end;

procedure TForm1.MouseWheelDown(Sender: TObject; Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
begin

// Детекция движения колеса вниз
ShowMessage('Колесо повернуто вниз');
end;

procedure TForm1.MouseWheelUp(Sender: TObject; Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
begin

// Детекция движения колеса вверх
ShowMessage('Колесо повернуто вверх');
end;

procedure TForm1.MouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin

// Процедура реакции на движение колеса мыши
ShowMessage('Обнаружено движение колеса мыши...');
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin

// отменяем обработку событий от колеса мыши
Form1.OnMouseWheel:=nil;
Form1.OnMouseWheelDown:=nil;
Form1.OnMouseWheelUp:=nil;

end;

end.

Разместил: admin Смотрим и оставляем комментарий »

Задержка выполнения On

Дата: 22.02.2025 Модуль: Категория: Delphi и TurboPascal

В случае нажатия пользователем клавиши или изменении текущего элемента компонента ComboBox, вы обратите внимание на досадную задержку, возникающую при генерации события On.

Так как "работа кипит", я хотел бы отреагировать на изменение ItemIndex несколько позднее, например, 100 миллисекунд спустя. Вот что у меня получилось. На простой форме располагаем компоненты ComboBox и Label. Необходимым дополнением является вызов Application.ProcessMessages, позволяющий избежать замедления работы PC, когда очередь сообщений для формы пуста.

Код

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs,

StdCtrls;

const

// Просто некоторая константа сообщения
PM_COMBO = WM_USER + 8001;

// 500 миллисекунд
CWantedDelay = 500;

type

TForm1 = class(TForm)
ComboBox1: TComboBox;
Label1: TLabel;
procedure ComboBox1(Sender: TObject);
private
procedure PMCombo(var message : TMessage); message PM_COMBO;
public
end;

var

Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.ComboBox1(Sender: TObject);
begin

PostMessage(Handle, PM_COMBO, 0, 0);
end;

procedure TForm1.PMCombo(var message : TMessage);
const

InProc : BOOLEAN = FALSE;
StartTick : LONGINT = 0;
begin

if InProc then begin
// Обновляем стартовое время задержки
StartTick := GetTickCount;

end else begin
// Организация цикла
InProc := TRUE;

// Инициализация стартового времени
StartTick := GetTickCount;

// Ожидаем истечения стартового времени.
// Пока стартовое время не исчерпалось, позволяем операционной системе обрабатывать сообщения
while GetTickCount - StartTick < CWantedDelay do Application.ProcessMessages;

// Иллюстративное приращение счетчика, задающее некоторую реальную работу обработчику события On
Label1.Caption := IntToStr ( StrToIntDef ( Label1.Caption, 0 ) + 1);

// Завершение цикла
InProc := FALSE;
end;
end;

end.

Разместил: admin Смотрим и оставляем комментарий »

Создание компонента TTable без формы

Дата: 22.02.2025 Модуль: Категория: Delphi и TurboPascal

Данная проблема решается как минимум двумя путями, о чем и будет рассказано ниже.

Решение 1

Действительно, любой компонент можно создать и без (вне) формы или любого другого дочернего компонента. Для этого я использую параметр nil:

Код

FSession := TSession.Create(nil);

FDatabase := TDatabase.Create(nil);
FSession.SessionName := 'DBSession'
FDatabase.Connected := False;
FDatabase.AliasName := Database;
FDatabase.DatabaseName := USER_DATABASE;
FDatabase.SessionName := FSession.SessionName;

FUserTBL := TTable.Create(nil);
FUserTBL.DatabaseName := FDatabase.DatabaseName;
FUserTBL.SessionName := FSession.SessionName;
FUserTBL.TableName := USERTBL;
FUserTBL.IndexName := USERSpIndex;

FUserSource := TDataSource.Create(nil);
FUserSource.DataSet := FUserTBL;

Решение 2

Я привожу некоторый код, касающийся описываемой проблемы: он работал, когда я использовал его в большом приложении. Я не знаю специфического метода создания компонента TTable вне родителей, поэтому я пошел путем создания своего класса от TTable во время инициализации модуля. Удобство такого подхода объясняется наличием под рукой всегда готового к работе экземпляра класса, стоит всего-лишь добавить модуль к вашему приложению.

Конечно, новый класс не должен иметь одиноко выглядящую процедуру со странной технологией фильтрации данных :=))), да и не помешала бы публикация нескольких событий, но этот пример призван все-го лишь продемонстрировать иной подход к решаемой задаче.

Код

unit Unit2;

interface
uses db, DBTables, dialogs;

type fake = class(Ttable)

procedure fakeFilterRecord(DataSet: TDataSet; var Accept: Boolean);
end;

var

MyTable : fake;

implementation

procedure fake.fakeFilterRecord(DataSet: TDataSet; var Accept: Boolean);
begin

showmessage('Здравствуй, Вася');
end;

Initialization

MyTable := fake.create(nil);
With Mytable do begin
DataBaseName := 'dbdemos';
TableName := 'biolife';
OnFilterRecord := MyTable.fakeFilterRecord;
Filtered := true;
active := true;
end;

{проверка получением неких данных...}
showmessage(MyTable.fields[1].asstring);

Finalization
{Важно! MyTable не имеет родителя, - уничтожаем объект сами, иначе память не высвобождается...}
MyTable.free;

end.

Разместил: admin Смотрим и оставляем комментарий »

Добавление элементов управления в TNotebook

Дата: 22.02.2025 Модуль: Категория: Delphi и TurboPascal

Разместил: admin Смотрим и оставляем комментарий »

Всего 38 на 3 страницах по 15 на каждой странице

<< 1 2 3 >>

[ Назад | Начало | Наверх ]

Внимание! Если у вас не получилось найти нужную информацию, используйте рубрикатор или воспользуйтесь поиском