Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
−133
Функция ПроверкаНогИВанны()
Строка = ТаблицаНоменклатуры.Найти(Справочники.Номенклатура.НайтиПоКоду("50641 "), "Номенклатура");
Если Строка = Неопределено Тогда
Возврат Ложь;
Иначе
СтрокаВанна = ТаблицаНоменклатуры.Найти(Справочники.Номенклатура.НайтиПоКоду("50624 "), "Номенклатура");
Если СтрокаВанна = Неопределено Тогда
Возврат Истина
Иначе
Возврат Ложь
КонецЕсли;
КонецЕсли;
КонецФункции
glavdir,
02 Марта 2012
+134
0 0,2,4,6,8,10,12,14,16,18,20,22 * * * /path-to-scriptЗамечательный конфиг крона)
imsamurai,
28 Февраля 2012
+141
<html>
<title>NOTICE</title>
<body>
<img src="/banner.jpg"/>
</body>
</html>megaupload.com
bot,
27 Февраля 2012
+956
using System;
namespace Угадай_цифру
{
class Program
{
struct IntNull
{
public static Random Rand = new Random();
public static int CompInt;
public static string UserInt;
}
public static void Main(string[] args)
{
try
{
Console.WriteLine("Игра: отгадай число.");
Console.Write("Правила игры просты, компьютер загадывает цисло от одного до 10, вы должны его отгадать.");
Console.ReadLine();
Console.Clear();
GetInt();
}
catch (Exception ex)
{
Console.WriteLine(ex.Message);
Console.ReadLine();
}
}
public static void GetInt()
{
try
{
IntNull.CompInt = IntNull.Rand.Next(0, 10);
Console.Clear();
Console.WriteLine("Комптютер загадал число, отгадайте его");
string User = Console.ReadLine();
IntNull.UserInt = User;
Console.Clear();
GetProverka();
}
catch (Exception ex)
{
Console.WriteLine(ex.Message);
Console.ReadLine();
}
}
public static void GetProverka()
{
try
{
if(IntNull.CompInt == Convert.ToInt32(IntNull.UserInt))
{
Console.Clear();
Console.WriteLine("Молодец, правильный ответ {0}", IntNull.CompInt);
Console.WriteLine("Нажмите Enter для продолжения");
Console.ReadLine();
GetInt();
}
else
{
Console.Clear();
Console.WriteLine("Лошара, ответ неверный, правильный ответ {0}", IntNull.CompInt);
Console.WriteLine("Нажмите Enter для продолжения");
Console.ReadLine();
GetInt();
}
}
catch (Exception ex)
{
Console.WriteLine(ex.Message);
Console.ReadLine();
}
}
}
}Один программист выложил на малоизвестном сайте
IIIypuk,
27 Февраля 2012
+164
<script language="JavaScript">
<!--
document.write('<a href="#top" onclick="takeThis(\'<?php echo $PMA_Theme; ?>\'); return false;">');
document.write('<img src="<?php echo $screen_directory; ?>/screen.png" border="1" ');
if (document.getElementById) {
document.write('style="border: 1px solid #000000;" ');
}
document.write('alt="<?php echo htmlspecialchars(addslashes($theme_name)); ?>" ');
document.write('title="<?php echo htmlspecialchars(addslashes($theme_name)); ?>" />');
document.write('</a><br />');
document.write('[ <b><a href="#top" onclick="takeThis(\'<?php echo $PMA_Theme; ?>\'); return false;">');
document.write('<?php echo addslashes($strTakeIt); ?>');
document.write('</a></b> ]');
//-->
</script>Чужая самописная CMF. Файл themes в админке.
zii,
22 Февраля 2012
+163
$textb = Db::getInstance()->ExecuteS("SELECT * FROM "._DB_PREFIX_."productotzyv WHERE `id_product` = ".$idProduct);
$count_otz = count($textb);
if ($p==0) $p = 1;
$limit = 99;
$texta = get("SELECT *, date_format(data, '%d.%m.%Y') as data_ FROM "._DB_PREFIX_."productotzyv WHERE `id_product` = ".$idProduct." LIMIT ".$limit);
$ed = count(Db::getInstance()->ExecuteS("SELECT * FROM "._DB_PREFIX_."productotzyv WHERE `id_product`=".intval($_GET['id_product'])." and `rating`=1"));
$dva = count(Db::getInstance()->ExecuteS("SELECT * FROM "._DB_PREFIX_."productotzyv WHERE `id_product`=".intval($_GET['id_product'])." and `rating`=2"));
$tri = count(Db::getInstance()->ExecuteS("SELECT * FROM "._DB_PREFIX_."productotzyv WHERE `id_product`=".intval($_GET['id_product'])." and `rating`=3"));
$four = count(Db::getInstance()->ExecuteS("SELECT * FROM "._DB_PREFIX_."productotzyv WHERE `id_product`=".intval($_GET['id_product'])." and `rating`=4"));
$five = count(Db::getInstance()->ExecuteS("SELECT * FROM "._DB_PREFIX_."productotzyv WHERE `id_product`=".intval($_GET['id_product'])." and `rating`=5"));
$uri = $_SERVER['REQUEST_URI'];
$i = strrpos($uri, "/");
$uri1 = substr($uri, 0, $i);
$i = strrpos($uri1, "/");
$uri = substr($uri1, 0, $i);
$uri = $uri."/";
$monUrl = "http://".$_SERVER['HTTP_HOST'].$uri;
foreach ($textb as $s => $a){
$text += $a['rating'];
}
$smarty->assign('ed', $ed);
$smarty->assign('dva', $dva);
$smarty->assign('tri', $tri);
$smarty->assign('four', $four);
$smarty->assign('five', $five);
$smarty->assign('ed_proc', $ed/$count_otz*100);
$smarty->assign('dva_proc', $dva/$count_otz*100);
$smarty->assign('tri_proc', $tri/$count_otz*100);
$smarty->assign('four_proc', $four/$count_otz*100);
$smarty->assign('five_proc', $five/$count_otz*100);
$smarty->assign('rating2', round($text/$count_otz, 0));
$smarty->assign('countotz', $count_otz.' '.endingsForm($count_otz,"отзыв","отзыва","отзывов"));
$smarty->assign('monUrl',$monUrl);
$smarty->assign('text',$texta);Prestashop, реализация отображения отзывов и рейтига товара
uint,
19 Февраля 2012
+154
<?php
iconv_set_encoding("input_encoding", "UTF-8");
iconv_set_encoding("internal_encoding", "UTF-8");
iconv_set_encoding("output_encoding", "UTF-8");
$curl = curl_init();
$curl_set = array(
CURLOPT_COOKIESESSION => 0,
CURLOPT_VERBOSE => 1,
CURLOPT_USERAGENT => 'Opera/9.60 (J2ME/MIDP; Opera Mini/4.2.14912/812; U; ru) Presto/2.4.15',
CURLOPT_RETURNTRANSFER => 1
);
curl_setopt_array($curl, $curl_set);
for($i=1;$i<50;$i++){
$url = 'http://utemplate.ru/load/19-1-0-'.$i;
curl_setopt($curl, CURLOPT_URL ,$url);
$data = curl_exec($curl);
preg_match_all('#<div class="entrytitle">(.*)</div>(.*)<hr>#isU', $data, $matches);
$content[title] = $matches[1][0];
$content[desc] = $matches[2][0];
unset($matches);
preg_match_all('#<img src\="http://utemplate.ru/_ld/0/(.*)"/>#isU', $data, $matches);
$content[img] = $matches[1][0];
if($content[title] AND $content[desc] AND $content[img]){
unset($matches);
mkdir($content[title], 0777);
curl_setopt($curl, CURLOPT_URL ,'http://utemplate.ru/_ld/0/'.$content[img]);
$image = curl_exec($curl);
curl_setopt($curl, CURLOPT_URL ,'http://utemplate.ru/load/0-0-0-'.$i.'-20');
$file_inf = curl_exec($curl);
preg_match_all('#<A HREF="(.*)"#isU', $file_inf, $matches);
$ext_file = substr($matches[1][0], -4);
$ext_img = substr($content[img], -4);
curl_setopt($curl, CURLOPT_URL , $matches[1][0]);
$file = curl_exec($curl);
file_put_contents($content[title].'/'.$content[title].$ext_file, $file);
file_put_contents($content[title].'/'.$content[title].$ext_img, $image);
file_put_contents($content[title].'/'.$content[title].'.txt', $content[title]."\n".$content[desc]);
}
};Злобный самописный, рабочий граббер uCoz сайта
__construct,
19 Февраля 2012
+152
function run_service($ivf_service)
{
$ivf_result = null;
if ( file_exists('base/services/'.$ivf_service.'/config.php') )
{
$ivf_result.= include_once('base/services/'.$ivf_service.'/config.php');
}
if ( file_exists('base/services/'.$ivf_service.'/index.php') )
{
$ivf_result.= include_once('base/services/'.$ivf_service.'/index.php');
}
return $ivf_result;
}Проблема в том что каждый раз "вручную" писать это ни к чему. А такой вид вызывает сомнения в рациональности и скорости обработки. Как можно это удобно реализовать без юзания классов и автоинклудинга?
belkir,
16 Февраля 2012
+87
var
x,y,R:real;
l11,l12,l1,l21,l22,l2,l3,l41,l42,l4,l51,l52,l5,l6,l71,l72,l7:boolean;
begin
x:= StrToFloat(edit1.text);
y:= StrToFloat(edit2.text);
R:=StrToFloat(edit3.text);
l11:=(y<x) and (x*x+y*y<R*R) and (y>0);
l12:=(x*x+y*y<r*r) and (x<0)and (y>0);
l1:=l11 or l12;
l21:=(y>0) and (x*x+y*y<R*R)and (y>x);
l22:= ( x*x+y*y<R*R)and (y>x) and (x<0);
l2:= l21 or l22;
l3:=(y<0) and ( x*x+y*y<R*R)and (y>x);
l41:= (x>0) and ( x*x+y*y<R*R)and (y<x);
l42:= (x<-1) and ( x*x+y*y>R*R)and (y>x);
l4:= l41 or l42;
l51:= (x>1) and ( x*x+y*y>R*R)and (y<x);
l52:= (x>-1) and ( x*x+y*y>R*R)and (y<x);
l5:= l51 or l52;
l6:= (y>0) and ( x*x+y*y<R*R)and (y>x);
l71:= (x>0) and (x*x+y*y>R*R) and (y<0);
l72:= (y<0) and (x*x+y*y>R*R) and (y<x) and (x<0);
l7:= l71 or l72;
if l1= true then
begin
edit4.text:='T принадлежит 1 области';
end
else
begin
edit4.text:='T не принадлежит 1 области';
end;
if l2= true then
begin
edit4.text:='T принадлежит 2 области';
end
else
begin
edit4.text:='T не принадлежит 2 области'
end;
if l3= true then
begin
edit4.text:='T принадлежит 3 области'
end
else
begin
edit4.text:='T не принадлежит 3 области'
end;
if l4= true then
begin
edit4.text:='T принадлежит 4 области'
end
else
begin
edit4.text:='T не принадлежит 4 области'
end;
if l5= true then
begin
edit4.text:='T принадлежит 5 области'
end
else
begin
edit4.text:='T не принадлежит 5 области'
end;
if l6= true then
begin
edit4.text:='T принадлежит 6 области'
end
else
begin
edit4.text:='T не принадлежит 6 области'
end;
if l4= true then
begin
edit4.text:='T принадлежит 7 области'
end
else
begin
edit4.text:='T не принадлежит 7 области'
end;
end;
end....
Cyanide,
15 Февраля 2012
−138
Для Каждого СтрПЛ Из ПутевыеЛисты Цикл
ЗаказСсылкаИзПЛ = СтрПЛ.ЗаказНаИспользованиеТС;
Если Не ЗаказСсылкаИзПЛ.Пустая() Тогда
ЗапросВыборкаЗаказовПоСсылкеИЗПЛ = Новый Запрос;
ЗапросВыборкаЗаказовПоСсылкеИЗПЛ.Текст = "ВЫБРАТЬ
| АСУ_ЗаказНаИспользованиеТС.Ссылка
|ИЗ
| Документ.АСУ_ЗаказНаИспользованиеТС КАК АСУ_ЗаказНаИспользованиеТС
|ГДЕ
| АСУ_ЗаказНаИспользованиеТС.ДатаС <= &Дата1
| И АСУ_ЗаказНаИспользованиеТС.ДатаПо >= &Дата2
| И АСУ_ЗаказНаИспользованиеТС.Ответственный = &Ответственный
| И АСУ_ЗаказНаИспользованиеТС.Номер = &Номер";
ЗапросВыборкаЗаказовПоСсылкеИЗПЛ.УстановитьПараметр("Дата1", КонецДня(Дата));
ЗапросВыборкаЗаказовПоСсылкеИЗПЛ.УстановитьПараметр("Дата2", НачалоДня(Дата));
ЗапросВыборкаЗаказовПоСсылкеИЗПЛ.УстановитьПараметр("Ответственный", Ответственный);
ЗапросВыборкаЗаказовПоСсылкеИЗПЛ.УстановитьПараметр("Номер", ЗаказСсылкаИзПЛ.Номер);
РезультатЗаказыПоСсылкеИзПЛ = ЗапросВыборкаЗаказовПоСсылкеИЗПЛ.Выполнить().Выгрузить();
Если РезультатЗаказыПоСсылкеИзПЛ.Количество() > 0 Тогда
Для Каждого СтрЗаказПоСсылкеИзПЛ Из РезультатЗаказыПоСсылкеИзПЛ Цикл
...
КонецЦикла;
КонецЕсли;
КонецЕсли;
КонецЦикла;
Ищем заказ по номеру. А номер берем из заказа. И, конечно же, их может оказаться множество. (КонтрольУникальности = Истина, периодичность = Непериодический).
А также хитровылепленный способ убедиться, что заказ попадает в указанный период и имеет указанного ответственного.
И, конечно же, запрос надо создавать заново для каждой СтрПЛ, а вдруг он испортился...
Вот такие у нас крайне осторожные прогромисты.
mrbus,
13 Февраля 2012
Follow us!