Шаблоны DLE тематики:
Все Шаблоны
Уникальные Шаблоны Авто и мото Бизнес Недвижимость Строительство Туризм Спорт Фильмы СМИ / Новости Игры / Софт Минимализм Музыка Общие Блоговые Женские сайты Для взрослых
DataLife Engine
Скачать DLE 9.7 Скачать DLE 9.6 Скачать DLE 9.5 Скачать DLE 9.4 Модули для DLE Оптимизируем DLE Платное бесплатно! SEO Блог SEO Видео Разное
Шаблоны для DLE бесплатно

Бесплатный генератор ГСов

 (голосов: 2)

Бесплатный генератор ГСов


Есть много доменов, но нет времени на контент? Ожидаете падения ТИЦ на пустом сайте, а на носу судьбоносный апдейт? Во всех этих случаях есть простое, хоть и глупое решение-генератор ГС. Одна, две или десять тысяч страниц-все это не имеет значения, если у вас есть десктопный генератор ГС. Его написанием мы и займемся. Пишу для полных нулей в программировании на Deplhi, так что не понять что-то будет очень сложно.

Для работы нам понадобится Delphi 7 и два пальца, чтобы кликать мышкой и набирать букафки. Да, и еще не забудьте включить мозг, т.к. текста будет просто огромное количество. Выполняем следующие шаги:

1) Выбираем CMS. Не советую брать громоздкие для нас CMS типа DLE или WordPress. Для себя я выбрал 2Z-Project. На данный момент автор 2Z пропал, а официальный сайт был продан. Сейчас на его месте находится сайт какой-то строительной фирмы. Советую остановиться именно на 2Z, т.к. вам будет проще следить за ходом моей мысли. К тому же, ГСов на данном движке не то чтобы много, а значит что ПС относятся к ним лояльнее.

2) Приступаем к работе!

Устанавливаем на локальной машине 2Z и добавляем одну-две новости. Затем заходим в PhpMyAdmin, выбираем таблицу с новостями и делаем экспорт(не в виде файла, а в виде SQL кода). Берем оттуда нужную часть кода(я выкладываю сразу пример 2Z, по нему и ориентируйтесь):

INSERT INTO `2z_news` (`id`, `postdate`, `author`, `author_id`, `title`, `content`, `alt_name`, `com`, `mainpage`, `allow_com`, `approve`, `views`, `favorite`, `pinned`, `flags`, `editdate`, `catid`, `xfields`, `description`, `keywords`, `rating`, `votes`) VALUES

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

Далее надо разобраться с самой структурой записей ГСа. Я сделал ГС-анкетник, в котором содержится следующего рода информация:

- Пол
- Возраст
- Фото
- Имя и фамилия
- Город проживания
- Семейное положение
- Служба в армии
- График работы
- Занятость
- Количество детей
- Желаемая должность/специальность

Немалый список для ГСа, правда? Тем не менее база собранных мною данных еще более внушающая, но о ней поговорим позже.

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

Отправляемся на Vkontakte и набираем базу фоток. Они должны быть не очень большими, аватарки из этой соц.сети подходят как нельзя кстати. Собираем по 100 фотографий мужчин и женщин, сохраняем их в две разные папки-manphoto и girlphoto. Обязательно дайте имена фотографиям типа 1.jpg, 2.jpg и т.д. Собирать базу имен и фамилий вам не надо-я, так уж и быть, в конце статьи выложу свои.

Сбор нужной нам информации окончен. Переходим непосредственно к программированию генератора ГС.

Но сначала разберемся с функционалом-в ходе работы из объемного меню нам будут интересны только две представленные ниже панели:

Бесплатный генератор ГСов


Запускаем Delphi и заходим в меню File–New–Form, форма для будущего ГСгена была создана. Посмотрите на панель-на данный момент должна быть активной вкладка Standard, в которой вам надо выбрать пункт Label(иконка с буквой А). Выбираем данный пункт и щелкаем на форму. Таким образом мы поместили элемент Label (текст) на форму. Стоит заметить, что у каждого элемента, который возможно поместить на форму, есть большой список свойств. Его можно найти на панели Object Inspector. Чтобы вам было проще её найти, я ознакомлю вас со скриншотом панелив тот момент, когда выбран элемент Label:

Бесплатный генератор ГСов


Теперь идем по пунктам:
- Выбираем Label и в свойстве Caption пишем «База имен М»
- Еще раз щелкаем по элементу Label на панели и вставляем его в форму. Выбираем второй Label и в свойстве Caption прописываем «База имен Ж». Далее создаем еще два Label, в которых пишем «База фамилий М» и «База фамилий Ж»
- Создадим отдельную папку для ГС генератора и закинем туда все папки, что собрали ранее-фото, фамилии и имена. Туда же сохраняем и нашу форму(File–Save As…).
- Задаем переменные: делаем двойной щелчек мыши по форме, открывается окно кода. Крутим в самый верх и находим кусок

var
Form1: TForm1;

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

mfam, zhfam, mname, zhname: tstringlist;

Где mfam и другие можно заменить на свои название, а также добавить новые или удалить лишние. Добавляем информацию о фото и семейное положение по тому же типу:

foto, sempol: integer;

Заранее побеспокоимся о генерации семейного положения и введем переменную, которая будет непосредственно выводить текст:

s1: string;

- Закрываем окно кода и переходим на панель элементов. Выбираем там Button(кнопка с надписью ОК) и ставим на форму. В Caption прописываем «Загрузить». Данная кнопка будет загружать файлы базы, чтобы после из них можно было брать данные.

- На панели элементов находим вкладку Dialogs и выбираем эл-т OpenDialog. Ставим в любое место формы, т.к. во время работы иконка видна не будет. Теперь о OpenDialog можно забыть.

- Дважды щелкаем по установленной ранее кнопке «Загрузить» и снова попадаем в окно кода. Сейчас будем прописывать загрузку баз. При двойном клике по элементу сразу открывается место, в котором следует вводить код-ни вниз, ни вверх крутить окно кода не надо. У меня получилось следующая процедура:

mfam.LoadFromFile(‘ManFam.txt’);
Label1.Font.Color := clLime;
zhfam.LoadFromFile(‘WomanFam.txt’);
Label2.Font.Color := clLime;
mname.LoadFromFile(‘ManName.txt’);
Label3.Font.Color := clLime;
zhname.LoadFromFile(‘WomanName.txt’);
Label4.Font.Color := clLime;

Здесь Label1 и т.д.-это имена строк. Вы можете узнать номер соответствующей строки щелкнув по ней мышкой, имя высвечивается в уже знакомом вам Project Inspector. Следите, чтобы имя переменной(mfam и другие) совпадало с Caption, прописанным в Label-иначе при удалении файла с фамилиями вы будете думать что удален, допустим, файл с женскими именами. ManFam.txt и остальные-это имена файлов баз. Их вы можете задать самостоятельно соответственно вашему желанию или тематике генератора говносайтов.

Советую на этой ноте сделать небольшую паузу, т.к. немалые объемы статьи сложно переварить даже мне. Лучше налейте кофейку…

Продолжим!

- На панели элементов вроде должна быть открыта вкладка Dialogs. Выбираем SaveDialog и вставляем его в форму.

- Переходим в вкладку Standard и ставим еще одну кнопку(Button). В Caption кнопки пишем «Генерировать».

- Двойной щелчок по кнопке «Сгенерировать» и мы начинаем последние шаги в создании ГС генератора. Процедура генерации начнется с указания переменной «Количество анкет». Назовем её просто k. Здесь же я пропишу остальные процедуры, которые вам нужно только вставить(думать о их назначении будет вредно и, может, больно:) ). Кстати, объявление переменной k нужно делать до слова Begin в процедуре кнопки «Генерировать». Не забудьте об этом.

Var k: integer;

Потом идет Begin, а теперь процедура…

res.Clear;
for k:=0 to 1000 do
begin

res.Add(GenStr);
end;

if so.Execute then
res.SaveToFile(so.FileName+’.txt’);
end;

Здесь число 1000-это количество генерируемых анкет. Вы можете не беспокоиться о количестве, мой комп зависал только при генерации 600000 анкет. Четыре-семь тысяч генерируются за две секунды(а то и меньше).

Последний шаг, на котором главное - не запороться. Сделайте двойной клик по форме, перейдите в окно кода и найдите

procedure TForm1.FormCreate(Sender: TObject);

Здесь должен быть прописан следующий текст:

Randomize;
mfam := TstringList.Create;
zhfam := TstringList.Create;
mname := TstringList.Create;
zhname := TstringList.Create;

После слова end;, которым должен заканчиваться прошлый текст, задаем функцию полной генерации SQL кода для базы данных. Ох я напарился с этим кодом… Сначала объявляем переменные функции:

fotka,sempol,davi,idtemi,ppr : integer;
s9,s: string;

В этом коде вас не должны интересовать davi, idtemu, ppr вам не должны быть интересны. Это служебные переменные.
Пишем код, отвечающий за генерацию семейного положения:

case sempol of
0: s1 := ‘ Женат(а)’;
1: s1 := ‘ Свободен(на)’;
2: s1 := ‘ Вдова(ец)’;
end;

Пишем генерацию служебных данных:

davi := 1111111111+random(150000000);
idtemi := random(3000000);
ppr := random(100);
fotka := random(100);

Здесь 100-это количество фотографий в папке(мужских или женских).
А теперь фишечка-т.к. Delphi тоже использует кавычки и они сбивают ход программы, нам придется использовать код символа. Вставляем следующий небольшой код:

s9 := Char(39);

УРА! Теперь тупо вставьте следующий код:

s:= ‘(‘ + inttostr(idtemi) + ‘, ‘ + inttostr(davi) + ‘, ‘ + s9 + ‘Admin’ + s9 + ‘, ‘ + ’1′ + ‘, ‘ + s9 + ‘Анкета’ + s9 + ‘, ‘ + s9 + ‘[ul][li] Имя: ‘+mname.strings[Random(man.Count-1)]+’ Фамилия: ‘mfam.strings[Random(man.Count-1)]+’[/li][li] Семейное положение: ‘+s9+ ‘[/li][/ul]‘ + ‘‘ + ‘
<!--dle_image_begin:manphoto/’%20inttostr(fotka)%20’.jpg|-->Бесплатный генератор ГСов<!--dle_image_end-->
‘ + s9 + ‘, ‘ + s9 + inttostr(idtemi) + s9 + ‘, ‘ + ’0, ‘ + ’1, ‘ + ’1, ‘ + ’1, ‘ + inttostr(ppr) + ‘, ‘ + ’0, ‘+ ’0, ‘ + ’0, ‘ + ’0′ + ‘, ‘ + s9 + s9 + ‘, ‘ + s9 + s9 + ‘, ‘+ s9 + s9 + ‘, ‘+ s9 + s9 + ‘, ‘ + ’0, ‘ + ’0′ + ‘),’;

result := s;

Все. Работает-проверено. Если вы действительно дочитали этот пост до конца-то уж получите и мою версию генератора, более функциональную чем описано здесь. С ней идет и огромнейшая база собранных вручную имен и фамилий, а также городов и прочего. Только не лазайте в коде-не дай бог что-то собьете, потом качать заново… Ах ну да, совсем забыл. Чтобы запустить программу нажмите на эту кнопку:

Бесплатный генератор ГСов


avtogenbash.rar [1.51 Mb] (cкачиваний: 38)
   




alert Уважаемый посетитель, Вы зашли на сайт как незарегистрированный пользователь. Мы рекомендуем Вам зарегистрироваться либо войти на сайт под своим именем.
Добавление комментария

Ваше Имя:
Ваш E-Mail:
Код:

обновить если не виден код
Введите код:
Заработок вебмастера
Популярное
» Строительный шаблон stroy-master для DLE 9.7
» DLE v.9.7 nulled
» Что ожидает seo-индустрию?
» Google запустил Knowledge Graph
» YouTube переведет русские ролики
» Пользователи Apple iTunes натолкнулись на порно фото
» Сколько ботов есть в Twitter?
» Free-lanceru вернула обмен контактами
» Новый директор в компании GoDaddy
» Реестр запрещенных сайтов оценят
» Компания Google объяснила, зачем нужны дудлы
» Как обезопасить сайт? Dominder!!!