- 1
$NETCAT_FOLDER = join( strstr(__FILE__, "/") ? "/" : "\\", array_slice( preg_split("/[\/\\\]+/", __FILE__), 0, -3 ) ).( strstr(__FILE__, "/") ? "/" : "\\" );
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+163
$NETCAT_FOLDER = join( strstr(__FILE__, "/") ? "/" : "\\", array_slice( preg_split("/[\/\\\]+/", __FILE__), 0, -3 ) ).( strstr(__FILE__, "/") ? "/" : "\\" );
Метод определения абсолютного пути к папке, лежащей на сколько-то уровней выше текущей.
−99
'Поиск с использованием Mid()
'-------
Dim B
'переменная Б - номер символа
Dim foundn
' номер найденной строки
Dim A As String
'A - текст в котором ищем
Dim find As String
'--------
A="this is text ! ololo 12345 abcd"
Call found("ololo",1)
Function found(Text As String, start)
B = start
find = Text
Do While Not (Mid(A, B, Len(find)) = find)
B = B + 1
If B > 1000000 Then
MsgBox ("overfloow")
'если номер символа > 10000000 - остановка процесса
End
End If
Loop
foundn = B
End Function
Поиск в string
+171
function isSpace(s){
return (s==" " || s=="n" || s=="13" || s=="t" || s=="r")?true:false
}
function count(){
var c=0
var i
var prevspace=true
var str=document.forms.form.text.value
for(i=str.length-1;i>=0;i--){
if(isSpace(str.charAt(i)) && prevspace){
}else{
c++
}
prevspace=isSpace(str.charAt(i))
}
document.forms.form.total.value=c
return false
}
Вычисляем количество слов в поле. http://javascript.ru/forum/misc/9381-podschet-slov-v-forme.html
P.S. спамеры могут не спрашивать, где здесь C++ — он в 12-ой строчке:)
+144
<?php if(sizeof($v[1])==1) {?>
<?php
}
?>
<?php if(sizeof($v[1])>1) { $v[1]=ass_array_shuffle($v[1]); ?>
и в завершение говнопоноса... не думаю что мне нужон был именно sizeof
+136
if (init) {
} else {
// thread is not initialized, run first time local state setup
...
}
+103
private ListBoxItem FindItem(string guid)
{
return _userlist.Items.Cast<ListBoxItem>().FirstOrDefault(item => ((TextBlock) ((StackPanel) item.Content).Children[1]).Text == guid);
}
Функция поиска элемента в ListBox по значению Guid в одну строку. Наговнокодил ReSharper.
−122
sub PrintToFile {
my ($filename, @file) = @_;
@file = sort {$a <=> $b} @file;
open BK, ">backup.txt";
foreach $line(@file) {
print BK "$line";
}
close BK;
rename "backup.txt", "$filename";
unlink "backup.txt";
}
А вот так мы записываем в файл. И нас не интересует многопоточность или проверка имени файла (в вызывающей функции тоже нет). А не записать ли нам ../index.html?
Прошу не кидаться калом. Первый раз вижу перл. Может быть так и надо? Волшебник-интерприатор все поправит, и не даст сучиться ужасному?
ps взято с разломанного недображелателем хостинга, для того, чтобы "поправить все как следует".
−119
sub getMessages{
local($mop,$pg,$all)=@_;
if(!&db_query("select insurance_faq_main.id,date_format(insurance_faq_main.date,'%d.%m.%Y'),insurance_faq_main.name,insurance_faq_main.email,insurance_faq_main.www,insurance_faq_main.city,insurance_faq_main.message,insurance_faq_main.ip,answer from insurance_faq_main, insurance_faq_ans where insurance_faq_ans.idm=insurance_faq_main.id order by id desc limit ".$pg*$mop.",$mop")) {$body .= $db_message; return -1}
$id;
@date;
@name;
@email;
@www;
@city;
@msg;
@ip;
@answer;
for(local $i=0;defined($rows->[$i]);$i++)
{
$id[$i]=$rows->[$i]->[0];
$date[$i]=$rows->[$i]->[1];
$name[$i]=$rows->[$i]->[2];
$email[$i]=$rows->[$i]->[3];
$www[$i]=$rows->[$i]->[4];
$city[$i]=$rows->[$i]->[5];
$msg[$i]=$rows->[$i]->[6];
$ip[$i]=$rows->[$i]->[7];
$answer[$i]=$rows->[$i]->[8];
}
return $i;
}
Мужской способ возвращать результаты из функции
−89
Public Class TreeKuBi003
''' -----------------------------------------------------------------------------
''' <summary>
''' Подключение KuBi.
''' </summary>
''' <remarks>
''' </remarks>
''' <history>
''' [Max Pro] 30.01.2009 Created
''' </history>
''' -----------------------------------------------------------------------------
Public Const sKuBi As String = _
" SELECT" & sEnter & _
" iIdTreeKuBi," & sEnter & _
" iIdTreeNone" & sEnter & _
" FROM" & sEnter & _
" TreeKuBiNone" & sEnter & _
" ORDER BY" & sEnter & _
" iIdTreeKuBi;"
End Class 'TreeKuBi003
'''
А так Максим Прохоров использует классы. На мой вопрос - максим, а зачем тебе нужны классы?
- ну, чтобы хранить данные.
+156
Избранные куски кода:
Генерация разметки html страницы: (и так страниц 5-6 кода примерно)
document.body.style.margin = "0px";
document.title = sTitle;
document.body.style.backgroundColor = sColor0;
document.body.style.backgroundImage = "url(" + sImgUrl0 + ")";
document.body.style.backgroundRepeat = "repeat-x";
tableMain = document.body.appendChild(document.createElement("table"));
tableMain.style.fontFamily = "serif";
tableMain.style.fontSize = "10.5pt";
tableMain.style.fontWeight = "bold";
tableMain.id = "tableMain";
tableMain.style.width = "100%";
tableMain.style.borderCollapse = "collapse";
tableMain.cellPadding = "0px";
Данные в базе:
⌠var var oCell; //рабочая ячейка. var divAny; ⌡var ⌠ini oCell = document.getElementById("cellInfo"); ⌡ini ⌠one ₢₢₢InfoClear(); ⌡one // 0 ₢₢₢A2Add(oCell,"∃∃∃"); oCell.appendChild(document.createTextNode("\u00A0\u00A0\u00A0")); // 1 ₢₢₢A2Add(oCell,"∃∃∃"); oCell.appendChild(document.createTextNode("\u00A0\u00A0\u00A0")); // 2 ₢₢₢A2Add(oCell,"∃∃∃","1_2_76_22"); oCell.appendChild(document.createTextNode("\u00A0\u00A0\u00A0")); // 3 ₢₢₢A2Add(oCell,"∃∃∃"); ₢₢₢BrAdd(oCell); ₢₢₢BrAdd(oCell); // 4 ₢₢₢TextAddDivBlack(oCell,"∃∃∃",1); ₢₢₢BrAdd(oCell); divAny=₢₢₢div6Add(oCell); // 5 ₢₢₢TextAdd(divAny,"∃∃∃"); ₢₢₢TextAdd(divAny,"www.bolshoybiznes.ru"); // 6 ₢₢₢TextAdd(divAny,"∃∃∃"); // 7 ₢₢₢TextAddBrDivGray(oCell,"∃∃∃"); // 8 ₢₢₢TextAddDivGray(oCell,"∃∃∃"); // 9 ₢₢₢TextAddBrDivBlack(oCell,"∃∃∃"); // 10 ₢₢₢TextAddBrDivBlack(oCell,"∃∃∃"); // 11 ₢₢₢TextAddBrDivBlack(oCell,"∃∃∃"); // 12 ₢₢₢TextAddBrDivBlack(oCell,"∃∃∃"); // 13 ₢₢₢TextAddBrDivBlack(oCell,"∃∃∃"); ₢₢₢BrAdd(oCell); // 13+4=17 divAny=₢₢₢divList6Add(oCell,["∃∃∃","∃∃∃","∃∃∃","∃∃∃"]);
Это яваскрипт имени Максима Прохорова.