Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
−81
$search =~ s/[\ \%\*\[\]\^\$\']+/\%/g; # '
my $search_str = '%' . $search . '%';
$search_str =~ s/\%+/\%/g;эскейп стринга для БД (с) Руслан Залата
SanityIO,
12 Января 2011
+101
procedure TwndMain.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
var
s: string;
begin
s := UpperCase(GetCompName);
CanClose :=
((Pos('VADIM', s) <> 0) and (DM.DefDBID = 0)) or
(ShowConfirmation('Ви дійсно бажаєте вийти з програми?') = mrYes);
end;Программиста Вадима реально задолбало это сообщение :)
stokito,
12 Января 2011
+169
switch($type) {
case 0:
$r_type = 0;
break;
case 2:
$r_type = 2;
break;
case 1:
$r_type = 1;
break;
}нашел в своем старом коде.
luethus,
11 Января 2011
+122
/// <summary>
/// I hate you guys.
/// You guys are assholes.
/// Especially author of this class.
/// I hate him the most.
/// </summary>
public partial class ProfileEditor
Semargl,
11 Января 2011
−100
Private Sub Combo1_Click()
Select Case Combo1.ListIndex
Case 0
enemy1.Picture = LoadPicture(App.Path & "\data\Rescaled\RaZeR.jpg")
Case 1
enemy1.Picture = LoadPicture(App.Path & "\data\Rescaled\Serg.jpg")
Case 2
enemy1.Picture = LoadPicture(App.Path & "\data\Rescaled\Nikton.jpg")
Case 3
enemy1.Picture = LoadPicture(App.Path & "\data\Rescaled\Raider.jpg")
Case 4
enemy1.Picture = LoadPicture(App.Path & "\data\Rescaled\Andrew.jpg")
Case 5
enemy1.Picture = LoadPicture(App.Path & "\data\Rescaled\Gnum.jpg")
Case 6
enemy1.Picture = LoadPicture(App.Path & "\data\Rescaled\Iron Man.jpg")
Case 7
enemy1.Picture = LoadPicture(App.Path & "\data\Rescaled\Anakin.jpg")
Case 8
enemy1.Picture = LoadPicture(App.Path & "\data\Rescaled\Nuparu.jpg")
Case 9
enemy1.Picture = LoadPicture(App.Path & "\data\Rescaled\Deleted.jpg")
Case 10
enemy1.Picture = LoadPicture(App.Path & "\data\Rescaled\LEGOlas.jpg")
Case 11
enemy1.Picture = LoadPicture(App.Path & "\data\Rescaled\Kit Fisto.jpg")
Case 12
enemy1.Picture = LoadPicture(App.Path & "\data\Rescaled\Banky.jpg")
Case 13
enemy1.Picture = LoadPicture(App.Path & "\data\Rescaled\Pazitiffniy.jpg")
Case 14
enemy1.Picture = LoadPicture(App.Path & "\data\Rescaled\GenKen.jpg")
Case 15
enemy1.Picture = LoadPicture(App.Path & "\data\Rescaled\Dimanok.jpg")
Case 16
enemy1.Picture = LoadPicture(App.Path & "\data\Rescaled\Drakon.jpg")
Case 17
enemy1.Picture = LoadPicture(App.Path & "\data\Rescaled\DJ Sim.jpg")
Case 18
enemy1.Picture = LoadPicture(App.Path & "\data\Rescaled\Obi-Van.jpg")
Case 19
enemy1.Picture = LoadPicture(App.Path & "\data\Rescaled\Vitalya.jpg")
Case 20
enemy1.Picture = LoadPicture("data/Rescaled/LukeSW.jpg")
Case 21
enemy1.Picture = LoadPicture("data/Rescaled/Smegorik.jpg")
Case 22
enemy1.Picture = LoadPicture("data/Rescaled/Vitalya.jpg")
Case 23
enemy1.Picture = LoadPicture("data/Rescaled/DJ Sim.jpg")
End Select
End Sub
Private Sub Combo2_Click()
Select Case Combo2.ListIndex
Case 0
enemy2.Picture = LoadPicture(App.Path & "\data\Rescaled\RaZeR.jpg")
Case 1
enemy2.Picture = LoadPicture(App.Path & "\data\Rescaled\Serg.jpg")
Case 2
enemy2.Picture = LoadPicture(App.Path & "\data\Rescaled\Nikton.jpg")
Case 3
enemy2.Picture = LoadPicture(App.Path & "\data\Rescaled\Raider.jpg")
Case 4
enemy2.Picture = LoadPicture(App.Path & "\data\Rescaled\Andrew.jpg")
Case 5
enemy2.Picture = LoadPicture(App.Path & "\data\Rescaled\Gnum.jpg")
Case 6
enemy2.Picture = LoadPicture(App.Path & "\data\Rescaled\Iron Man.jpg")
Case 7
enemy2.Picture = LoadPicture(App.Path & "\data\Rescaled\Anakin.jpg")
Case 8
enemy2.Picture = LoadPicture(App.Path & "\data\Rescaled\Nuparu.jpg")
Case 9
enemy2.Picture = LoadPicture(App.Path & "\data\Rescaled\Deleted.jpg")
Case 10
enemy2.Picture = LoadPicture(App.Path & "\data\Rescaled\LEGOlas.jpg")
Case 11
enemy2.Picture = LoadPicture(App.Path & "\data\Rescaled\Kit Fisto.jpg")
Case 12
enemy2.Picture = LoadPicture(App.Path & "\data\Rescaled\Banky.jpg")
Case 13
enemy2.Picture = LoadPicture(App.Path & "\data\Rescaled\Pazitiffniy.jpg")
Case 14
enemy2.Picture = LoadPicture(App.Path & "\data\Rescaled\GenKen.jpg")
Case 15
enemy2.Picture = LoadPicture(App.Path & "\data\Rescaled\Dimanok.jpg")
Case 16
enemy2.Picture = LoadPicture(App.Path & "\data\Rescaled\Drakon.jpg")
Case 17
enemy2.Picture = LoadPicture(App.Path & "\data\Rescaled\DJ Sim.jpg")Тот же источник, что и #5201. Загрузка картинок из тех самых комбобоксов. А ведь можно было enemy1.Picture = LoadPicture(App.Path & "\data\Rescaled\" & Combo1.SelectedItem & ".jpg").
RaZeR,
10 Января 2011
+161
class my_anekdots
{
private $url="http://anekdots.ru/roulette.pl?catid=";
private $type=2;
private $output;
private $content;
public function getRandAnekdots()
{
$this->content = file_get_contents($this->url.$this->type);
$this->parseAnekdots()->_display();
}
private function parseAnekdots()
{
preg_match('|<font face=Tahoma size=2 style="font-size: 11px;"><p align=justify>(.*?)</p></font>|is',$this->content,$matches);
$this->output = $matches[1];
$this->output = str_replace('\n','<br />',$this->output);
return $this;
}
public function _display()
{
echo "<span style='padding:5px;'>".$this->output."</span>";
}
}
$my_anekdots = new my_anekdots;
$my_anekdots->getRandAnekdots();O_op
DanxilLs,
08 Января 2011
+116
private void pictureBox1_MouseMove(object sender, MouseEventArgs e)
{
label5.Text = Convert.ToInt32(e.X.ToString()).ToString();
label6.Text = Convert.ToInt32(e.Y.ToString()).ToString();
label1.Location = new Point(e.X, e.Y);
}Не знаю лаба это или нет, но взято это с www.cyberforum.ru
psina-from-ua,
07 Января 2011
+126
if (_documentsCount < 0)
{
var docs = new HashSet<int>();
_manager.WalkThroughConcepts(delegate(Concept concept, CancelEventArgs cargs)
{
foreach (var doc in concept.Documents)
docs.Add(doc);
});
_documentsCount = docs.Count;
}
return _documentsCount;Как сосчитать количество документов в дереве? очень просто - надо всех их добавить в один список (и для этого сделать цикл в каждом узле, разумеется) а потом вернуть количество элементов в списке.
eval_2009,
06 Января 2011
−188
exec sp_executesql N'UPDATE [dbo].[sop_user_master]
SET [user_firstname] = @p0, [user_password_hash] = @p1, [user_password_salt] = @p2
WHERE 0 = 1',N'@p0 nvarchar(15),@p1 varbinary(32),@p2 varbinary(6)',@p0=N'AFDAasddddddddd',@p1=0xBB8012CAAB306E470D4918B490D7100DC464B5106A291896D045892B5F303309,@p2=0x80DE1E731993Вот какой запрос генерирует Linq to SQL)))
vanished,
17 Декабря 2010
−98
def non_blank_attrs_amount
return_value = 4
return_value = return_value + 1 if (!country.blank?)
return_value = return_value + 1 if (!address.blank?)
return_value = return_value + 1 if (!phone.blank?)
return_value = return_value + 1 if (!email.blank?)
return_value = return_value + 1 if (!skype.blank?)
return_value = return_value + 1 if (!site.blank?)
return_value = return_value + 1 if (!comment.blank?)
return_value.to_s
end
Dreamfall,
13 Декабря 2010
Follow us!