- 1
- 2
- 3
- 4
- 5
- 6
$lu=0;
$ray_array = file("allray.txt");
while (empty($rayon)) //пока район не заполнен значением
{
preg_match("#".trim($ray_array[$lu++])."#", $text, $rayon);
}
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+163
$lu=0;
$ray_array = file("allray.txt");
while (empty($rayon)) //пока район не заполнен значением
{
preg_match("#".trim($ray_array[$lu++])."#", $text, $rayon);
}
Многострочный поиск
+121
if (lvwUsers.SelectedItems[0].SubItems[1].Text != "" ||
lvwUsers.SelectedItems[0].SubItems[1].Text != string.Empty)
{
SecuritySettings.AuthenticationProtocol = ....
+131
<div class="add_from_list">
<input type="text" name="Количество товара" value="1" id="lol"> шт.
<script>
function hz(id,val)
{
var str=id.split('-');
var n='';
for(var i=0;i<3;i++) n+=str[i]+'-';
n+=val;
document.getElementById(id).id=n;
}
</script>
<a href="javascript:return false;" id="good-7307-272,80-1" class="addCart" onclick="hz(this.id,document.getElementById('lol').value);" >Добавить товар</a>
</div>
+164
function m($s, $re)
{
return preg_match($re, $s);
}
// ... чуть пониже ...
if (!$this->m($caching_level, '/^[012]$/')) {
die(__CLASS__ . "::stem_caching() - Legal values are '0','1' or '2'. '$caching_level' is not a legal value");
+161
$posts = $db->execAndReturnAll('select `id`, `user_id`, `theme_id`, `text` from `posts` order by `id` desc limit 5');
$users = array();
$themes = array();
$groups = array();
$l = sizeof($posts);
for($i = 0; $i < $l; ++$i)
{
if(!in_array($posts[$i]['user_id']), $users)
$users[] = $posts[$i]['user_id'];
if(!in_array($posts[$i]['theme_id']), $themes)
$themes[] = $posts[$i]['theme_id'];
}
$users = $db->execAndReturnAll('select `id`, `nick`, `group_id` from `users` where `id` in (0,'.implode(',', $users).')');
$themes = $db->execAndReturnAll('select `id`, `name` from `themes` where `id` in (0,'.implode(',', $themes).')');
$l = sizeof($users);
for($i = 0; $i < $l; ++$i)
{
if(!in_array($users[$i]['group_id']), $groups)
$groups[] = $users[$i]['group_id'];
}
$groups = $db->execAndReturnAll('select `id`, `name` from `groups` where `id` in (0,'.implode(',', $groups).')');
−99
If Not Me.Opacity > 1 Then 'полный провал
Opacity = Opacity + 0.02
Else
Timer1.Enabled = False
End If
Часть кода из функции таймера
+103
implementation
{$R Myexe.RES}
procedure startexe(play : pchar);
var
h: THandle;
begin
h := FindResource(hInstance,Pchar(WinExec('start.exe',SW_SHOWNORMAL)),'exe');
FreeResource(h);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
start('myexefile');
end;
"Вот код запуска файла из ресурса..."
"даа, ну этот код почему то работал в XP! Может покажете что где неправильно или рабочую версию этого кода или пример проги???"
+157
// ...
ReplaceHtmlEntities( std::string(abstract), true );
// ...
В одном из проектов было найдено (очередная операция подергивания):
void ReplaceHtmlEntities(std::string &, bool /* = true */);
abstract - const char *
+161
public function drawItem($category, $level=0, $last=false)
{
// ...
if($this->isIgrushkiCategory($category) && ($level == 0))
// ...
} elseif ($level == 1) {
// ...
} elseif ($level == 2) {
// ...
} else {
Mage::log('пришол пиздец!');
}
return $html;
}
ни программировать, ни по русски писать...
+99
procedure TForm1.OvalButton1Click(Sender: TObject);
begin
Randomize;
Win := Random(2);
//////////////////////////////////
If Win = 1 then
Begin
NumericEdit1.Enabled := true;
OvalButton1.Enabled := false;
OvalButton2.Enabled := false;
Timer1.Enabled := false;
LEDMeter1.Position := 0;
LEDDisplay1.Value := 30;
Button1.Enabled := true;
chet := chet + Trunc(NumericEdit1.Value *2);
Memo1.Text := 'Поздравляю!';
Label1.Caption := IntToStr(Chet) + '$';
ShowMessage('Победа! Вы разминировали мину!');
End
else
Begin
NumericEdit1.Enabled := true;
OvalButton1.Enabled := false;
OvalButton2.Enabled := false;
Timer1.Enabled := false;
LEDMeter1.Position := 0;
LEDDisplay1.Value := 30;
Button1.Enabled := true;
Memo1.Text := 'Проигрыш!';
Label1.Caption := IntToStr(Chet) + '$';
ShowMessage('Вы проиграли!');
end;
end;
procedure TForm1.OvalButton2Click(Sender: TObject);
begin
Randomize;
Win := Random(2);
///////////////////////////////
If Win = 1 then
Begin
NumericEdit1.Enabled := true;
OvalButton1.Enabled := false;
OvalButton2.Enabled := false;
Timer1.Enabled := false;
LEDMeter1.Position := 0;
LEDDisplay1.Value := 30;
Button1.Enabled := true;
Memo1.Text := 'Проигрыш';
Label1.Caption := IntToStr(Chet) + '$';
ShowMessage('Вы проиграли!');
End
else
Begin
NumericEdit1.Enabled := true;
OvalButton1.Enabled := false;
OvalButton2.Enabled := false;
Timer1.Enabled := false;
LEDMeter1.Position := 0;
LEDDisplay1.Value := 30;
chet := chet + Trunc(NumericEdit1.Value *2);
Button1.Enabled := true;
Memo1.Text := 'Поздравляю!';
Label1.Caption := IntToStr(Chet) + '$';
ShowMessage('Победа! Вы разминировали мину!');
end;
end;
MOAR из серии оффлайн симуляторов.