Elsper

Вообще гордиться особо нечем. Просто взял да спарсил.

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

На форму ставятся два текстовых поля у обоих выключается перенос строк, idHTTP это компонент на вкладке indi clients,его просто лепим на форму.

procedure parsbash;
var i,i2:integer;
begin

for i:=1 to 505 do
begin
memo1.Text:=IdHTTP1.Get(’http://bash.org.ru/index/’+inttostr(i));
memo1.Lines.SaveToFile(’temp’);
memo1.Lines.LoadFromFile(’temp’);

for i2:=0 to memo1.Lines.Count do
if pos(’<div>’,memo1.Lines[i2])=3 then
memo2.Lines.Add(memo1.Lines[i2]);

memo2.Lines.SaveToFile(’vse.txt’);
end;
end;
Результат правда надо почистить от тегов <div> и </div> но уж это точно может каждый.
Выкладываю итоговый результат. Каждая строка это отдельная запись. Лишние теги уже убрал.

elsper.ru/wp-content/vse.rar

Какой то странный ап. Читать полностью »

Прошлый тут

Чего то я все как то не могу тему для поста подобрать, вот только и остаются апы да итоги.

Сапа 17700. (-700) Было проседание, пара сайтов улетело в бан и агс, паре сайтов я сам почистил ссылки. В общем мог запросто перешагнуть 20, что и планировал, но видимо опять откладывается.

Сетлинкс 7200 (+1800) Дальнейший прогноз позитивный. Рост планируется. С высокой вероятность перешагну десятку.

Линкфид. 5600 (-200) Как и планировалось никакого роста, даже легкое падение. В июле с большей вероятностью подниму несколько сотен, чем потеряю.

Майнлинк. Стандартно. 1500.

Лиекс. Переносим в всякую мелочь. (-500)

Тизеры. Тут падение. Июль может показать что то иное, но ближе к середине, и то еще не факт.

Тизернет 4000. (-3000)

Бодиклик 4500 (-3000)

Контекст (адсенс) : 3000 (-1000)

биткэш. 11500 (+1500)

Всякая мелочь 300.

Эм… В общем 55300 (-5100) Падение… Но стоит надеяться что дна достиг, и падать некуда. (Хотя адсенс может обломать еще, да и тизерные сайты не весь траф растеряли)

Расходы. Хостинг, как всегда условно 2000.

Домены. 4500. Планировал больше. Но лень помешала.

Ссылки. Сапа 6200 линкфид 2400. Суммарно на 5600 меньше чем в прошлом. Дальнейшее снижение не планируется.

Копирайтер. 10000. Вчера перевел зарплату почтовым переводом.

ггл. 22500. тоже меньше чем в прошлый раз.

Итого расход 47600

Дальнейшие планы туманны. Если ап тиц порадует то опять ГГЛ, если поборю лень, то домены и хостинг прикуплю.