1. Pascal / Говнокод #1425

    +146

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    ...
then begin 
sl.Add('['+tt+' '+inttostr(col)+'] '+Edit2.Text+' -> '+nic+edit1.Text);
ProgressBar1.Position:=30;
Re_SL(sl,true);ProgressBar1.Position:=40;
RichEdit2.Lines.Assign(sl);
Re_SL(sl,false);ProgressBar1.Position:=50;
sl.SaveToFile('.\data\chat.hkd');ProgressBar1.Position:=60;StatusBar1.Refresh;
reColor(richEdit2);ProgressBar1.Position:=70;
RichEdit2.Lines.SaveToFile('.\data\_.~tmp');ProgressBar1.Position:=75;StatusBar1.Refresh;
RichEdit1.Lines.LoadFromFile('.\data\_.~tmp');ProgressBar1.Position:=70;
sl.Free;ProgressBar1.Position:=80; StatusBar1.Refresh;

    http://codingrus.ru/forum/viewthread.php?forum_id=33&thread_id=30

    guest, 27 Июля 2009

    Комментарии (0)

  2. PHP / Говнокод #1424

    +150

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    29. 29
    30. 30
    31. 31
    32. 32
    33. 33
    34. 34
    35. 35
    36. 36
    37. 37
    38. 38
    $lines=file("msg.txt");
$f=fopen("msg.txt", "r+t") or die("Не могу открыть файл <b>data/msg.txt</b>");
flock($f, 2);
ftruncate($f, 0);
//кол-во выведенных сообщений
$a=0;
//элемент массива
$s=0;
while (!(count($lines)==$s))
{
    if (!($a==$_GET['num']))
    {
        fputs($f, $lines[$s]); 
        $s++;
        fputs($f, $lines[$s]); 
        $s++;
        fputs($f, $lines[$s]); 
        $s++;
        fputs($f, $lines[$s]); 
        $s++;
        fputs($f, $lines[$s]); 
        $s++;
        fputs($f, $lines[$s]); 
        $s++;
        fputs($f, $lines[$s]); 
        $s++;
        fputs($f, $lines[$s]); 
        $s++;
    }
    else
    {
        $s=$s+8; //пропускаем удаляемое сообщение
    }
    $a++;

}
flock($f, 3);
fclose($f);

    с форума. код из админки гостевой книги предназначеный для удаления постов

    guest, 27 Июля 2009

    Комментарии (1)

  3. PHP / Говнокод #1423

    +151

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    <?php

$code = "<table> <tr><td>1</td></tr> <tr><td>2</td></tr> </table>";


$out_arr = array();
while($line = substr( ($code = substr($code, strpos($code, ($s = "<tr><td>")) + strlen($s))), 0,
                      ($s = strpos($code, "</td></tr>"))) and $s and array_push($out_arr, $line) );

print_r($out_arr);
?>

    лень было с регекспами заниматься ^_^
    упрощеный вариант

    guest, 27 Июля 2009

    Комментарии (3)

  4. Java / Говнокод #1422

    +145.5

    1. 1
    2. 2
    String labOrderOrMrnParam = (null == order)
         ? order.getMayoAccessNumber() : order.getOrderNumber();

    Что же делать если объект - null

    guest, 26 Июля 2009

    Комментарии (4)

  5. Ruby / Говнокод #1421

    −83

    1. 1
    @archive	= File.open(File.expand_path(__FILE__), "rb"){|f| f.read}.gsub(/\r/, "").split(/\n\n/)[-1].split("\n").collect{|s| s[2..-1]}.join("\n").unpack("m").shift

    Жесть

    guest, 26 Июля 2009

    Комментарии (1)

  6. PHP / Говнокод #1419

    +148

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    25/07 21:53]Л@мEp 
// $file - array 
$b = array(); 
$b[0] = $file[2]; 
$b[1] = $file[3]; 
$file[2] = $b[1]; и тд. Такая глупость взбрела . Файлы сакс аще

    Вот такое вот заменение части масива

    guest, 25 Июля 2009

    Комментарии (0)

  7. Куча / Говнокод #1418

    +142

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    NameVirtualHost 127.0.0.1:80

<VirtualHost 127.0.0.1:80>
    ServerAdmin webmaster@localhost
    ServerName site.net
    ServerAlias www.site.net
    DocumentRoot /home/test/www/site.net
    ErrorLog /var/log/apache2/error.log
    LogLevel warn
    CustomLog /var/log/apache2/access.log combined
</VirtualHost>

<VirtualHost 127.0.0.1:80>
    ServerAdmin webmaster@localhost
    ServerName sub.site.net
    ServerAlias www.sub.site.net
    DocumentRoot /home/test/www/sub.site.net
    ErrorLog /var/log/apache2/error.log
    LogLevel warn
    CustomLog /var/log/apache2/access.log combined
</VirtualHost>

    Виртуал хост апатча..

    guest, 25 Июля 2009

    Комментарии (1)

  8. Perl / Говнокод #1417

    −150

    1. 1
    print $string =~ /([http|ftp|https]+:\/\/[\w\/\.\?\&\=]+)/;

    Типичный индусский регэксп (в данном случае ищет УРЛ в строчке)

    guest, 25 Июля 2009

    Комментарии (2)

  9. PHP / Говнокод #1416

    +149

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    if(!$isfileex)
{
    //Если файла с кешем не существует, сгенерировать код.
    if($filecache=="")
    {
        $temp=$filecontent;
    }else
    {
        $temp = file_get_contents($filecache);
    }
}

/*$datacontent ="ура товарищи";*/
/*--------------*/
if(!$isfileex)
{
   if($datacontent==""){
   $temp=shablonning($temp,$name);}
   else{
   $temp=$datacontent;}
}

    guest, 24 Июля 2009

    Комментарии (0)

  10. PHP / Говнокод #1415

    +153

    1. 1
    2. 2
    3. 3
    //я не индийский кодер, просто обновляем переменные сессии, чтобы не экспайрились
$_SESSION['login'] = $_SESSION['login'];
$_SESSION['authstring'] = $_SESSION['authstring'];

    guest, 24 Июля 2009

    Комментарии (4)