Генерированный контент или создание саттелитов

|

И так, здравствуйте! Сегодня речь пойдет о генерированном контенте. Он удобен, входит в индекс и занимает считанные минуты, от запуска программы, до получения готового сайта. Вот код программы, написанной мной на DELPHI

unit Unit1;

interface

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

type
TForm1 = class(TForm)
Memo1: TMemo;
Edit1: TEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
ip1,ip2,ip3,ip4,port,i1,i2:integer;
begin

for i1:=0 to 100000 do
begin
ip1:=RANDOM(255);
ip2:=RANDOM(255);
ip3:=RANDOM(255);
ip4:=RANDOM(255);
port:=RANDOM(64999);
memo1.lines.Add(inttostr(ip1)+’.’+inttostr(ip2)+’.’+inttostr(ip3)+’.’+inttostr(ip4)+’:’+inttostr(port));
end;
showmessage(‘Контент готов! Разработчик совта F1shka’);
end;
end.

Вот такая программа у меня получилась.

Генерированный контент или создание саттелитов

Открываем textKit
Жмем «Импорт»-«Нарезка файлов». Выбираем наш файл с генерированным контентом. Указываем число символов для обрезки. После нарезки расставляем keyword’ы, расставляем даты публикации. !НЕ ЗАБУДЬТЕ МАССОВО ПЕРЕИМЕНОВАТЬ ЗАГОЛОВКИ!

«Записи»-«Массовое редактирование записей» -«Подготовленный список».

Список Вы можете создать сами, используя готовые слова и разбавленные различными значениями: {data}, {keyword} и другими.

Оставить комментарий