- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
Перем Да, Нет Экспорт;
Да = 1;
Нет = 0;
и далее в кодах идет
Если <что то>=Да Тогда
....
КонецЕсли;
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
−128.6
Перем Да, Нет Экспорт;
Да = 1;
Нет = 0;
и далее в кодах идет
Если <что то>=Да Тогда
....
КонецЕсли;
сразу скажу....это все пишется в 1С 7.7
походу ребятки ПЕРЕКОДИЛИ в 8-ке и снова вернулись на 7-ку
+151.6
## типа база для копипаста. изначально intval отсутствовал, но не суть важно
$sqll='select tt.title as titletag, t.id_news as id, DATE_FORMAT(n_d.data, "'.DATE_FORMAT.'") as data, n.title as titlenews, n.subject from '.T_TAGS.' as tt, '.T_NEWS_TAGS.' as t, '.T_ANALIT_DATA.' as n , '.T_ANALIT.' as n_d where t.id_news=n.news_id and n.news_id=n_d.id and t.id_tags="'.intval($_GET["param2"]).'" and t.id_tags=tt.id order by n_d.data desc';
$resultt = $DB->Execute($sqll) or DB_Error(__LINE__, $sqll, $DB);
$block='main.news';
while ($roww = $resultt->FetchRow()) {
foreach ($roww as $_key=>$_value) $xtpl->assign($_key, stripslashes($_value));
$xtpl->assign('titletag', $roww['titletag']);
$xtpl->assign('title_title', $roww['titletag']);
$xtpl->parse($block.'.newstags.row');
}
## аццкий отжиг
$sqll='select tt.descr from '.T_TAGS.' as tt, '.T_NEWS_TAGS.' as t, '.T_ANALIT_DATA.' as n , '.T_ANALIT.' as n_d where t.id_news=n.news_id and n.news_id=n_d.id and t.id_tags="'.intval($_GET["param2"]).'" and t.id_tags=tt.id order by n_d.data desc';
$resultt = $DB->Execute($sqll) or DB_Error(__LINE__, $sqll, $DB);
$roww = $resultt->FetchRow();
foreach ($roww as $_key=>$_value) $xtpl->assign($_key, stripslashes($_value));
if($roww['descr']!='') $xtpl->parse($block.'.newstags.descr');
копипаст неискореним.
+143.6
<?php
try {
$mysqlhost = "localhost";
$mysqluser = "root";
$mysqlpass = "";
if ($db = mysql_connect ($mysqlhost,$mysqluser,$mysqlpass)){
echo "Successfully connected to the database.";
mysql_close ($db);
} else {
throw new exception ("Sorry, could not connect to mysql.");
}
} catch (exception $e) {
echo $e->getmessage ();
}
?>
как не надо подключаться к mysql
+143.8
CREATE TABLE EMP (EMPNO NUMBER(4) NOT NULL,
ENAME VARCHAR2(10),
JOB VARCHAR2(9),
MGR NUMBER(4),
HIREDATE DATE,
SAL NUMBER(7, 2),
COMM NUMBER(7, 2),
DEPTNO NUMBER(2));
INSERT INTO EMP VALUES (7369, 'SMITH', 'CLERK', 7902, TO_DATE('17-DEC-1980', 'DD-MON-YYYY'), 800, NULL, 20);
INSERT INTO EMP VALUES (7499, 'ALLEN', 'SALESMAN', 7698, TO_DATE('20-FEB-1981', 'DD-MON-YYYY'), 1600, 300, 30);
INSERT INTO EMP VALUES (7521, 'WARD', 'SALESMAN', 7698, TO_DATE('22-FEB-1981', 'DD-MON-YYYY'), 1250, 500, 30);
INSERT INTO EMP VALUES (7566, 'JONES', 'MANAGER', 7839, TO_DATE('2-APR-1981', 'DD-MON-YYYY'), 2975, NULL, 20);
INSERT INTO EMP VALUES (7654, 'MARTIN', 'SALESMAN', 7698,TO_DATE('28-SEP-1981', 'DD-MON-YYYY'), 1250, 1400, 30);
INSERT INTO EMP VALUES (7698, 'BLAKE', 'MANAGER', 7839,TO_DATE('1-MAY-1981', 'DD-MON-YYYY'), 2850, NULL, 30);
INSERT INTO EMP VALUES (7782, 'CLARK', 'MANAGER', 7839,TO_DATE('9-JUN-1981', 'DD-MON-YYYY'), 2450, NULL, 10);
INSERT INTO EMP VALUES (7788, 'SCOTT', 'ANALYST', 7566,TO_DATE('09-DEC-1982', 'DD-MON-YYYY'), 3000, NULL, 20);
INSERT INTO EMP VALUES (7839, 'KING', 'PRESIDENT', NULL,TO_DATE('17-NOV-1981', 'DD-MON-YYYY'), 5000, NULL, 10);
INSERT INTO EMP VALUES (7844, 'TURNER', 'SALESMAN', 7698,TO_DATE('8-SEP-1981', 'DD-MON-YYYY'), 1500, 0, 30);
INSERT INTO EMP VALUES (7876, 'ADAMS', 'CLERK', 7788,TO_DATE('12-JAN-1983', 'DD-MON-YYYY'), 1100, NULL, 20);
INSERT INTO EMP VALUES (7900, 'JAMES', 'CLERK', 7698,TO_DATE('3-DEC-1981', 'DD-MON-YYYY'), 950, NULL, 30);
INSERT INTO EMP VALUES (7902, 'FORD', 'ANALYST', 7566,TO_DATE('3-DEC-1981', 'DD-MON-YYYY'), 3000, NULL, 20);
INSERT INTO EMP VALUES (7934, 'MILLER', 'CLERK', 7782,TO_DATE('23-JAN-1982', 'DD-MON-YYYY'), 1300, NULL, 10);
prompt C R E A T E N E W E M P L O Y E E R E C O R D
prompt
prompt Enter the employee's information:
prompt
accept l_ename char format a10 prompt 'Last name: '
accept l_empno number format '9999' prompt 'Employee #: '
accept l_sal number format '99999.99' prompt 'Salary [1000]: ' default '1000.00'
accept l_comm number format '99999.99' prompt 'Commission % [0]: ' default '0'
accept l_hired date format 'mm/dd/yyyy' prompt 'Hire date (mm/dd/yyyy): '
prompt List of available jobs:
select distinct job
from emp
order by job
/
accept l_job char format a9 prompt 'Job: '
prompt List of managers and employee numbers:
select empno, ename
from emp
order by ename
/
accept l_mgr number format '9999' prompt 'Manager''s Employee #: '
prompt List of department numbers and names:
select deptno, dname
from dept
order by deptno
/
accept l_dept number format '99' prompt 'Department #: '
insert into emp (empno, ename, job, mgr, hiredate, sal, comm, deptno)
values (&l_empno, '&l_ename', '&l_job', &l_mgr,
to_date('&l_hired','mm/dd/yyyy'), &l_sal, &l_comm, &l_dept)
/
drop table emp;
+143.8
using System;
class MyGenericClass<T> {
T ob;
public MyGenericClass(T o) {
ob = o;
}
public T getob() {
return ob;
}
public void showType() {
Console.WriteLine("Type of T is " + typeof(T));
}
}
public class Test {
public static void Main() {
MyGenericClass<int> iOb;
iOb = new MyGenericClass<int>(102);
iOb.showType();
int v = iOb.getob();
Console.WriteLine("value: " + v);
MyGenericClass<string> strOb = new MyGenericClass<string>("Generics add power.");
strOb.showType();
string str = strOb.getob();
Console.WriteLine("value: " + str);
}
}
как не надо юзать шаблоны классов
+107.4
DirectoryEntry en = this.InitDirectoryEntry(ADObject);
try
{
en.Parent.Children.Remove(en);
}
catch (Exception ex)
{
//??????????????????????????????
}
Удаление объекта в каталоге Active Directory
+143
using System;
unsafe public struct program
{
public static void Main()
{
test obj1 = new test();
obj1.call();
}
public void Run()
{
Main();
}
}
unsafe struct test
{
public void call()
{
program obj1 = new program();
program* p = &obj1;
p->Run();
}
}
сабж
+142.6
using System;
unsafe struct program
{
static void Main()
{
program obj1 = new program();
program* p = &obj1;
p->Main();
}
}
попытка обратиться к члену структуры
+143.4
using System;
public unsafe class Starter {
public static void Main() {
char* pChar = stackalloc char[26];
char* _pChar = pChar;
for (int count = 0; count < 26; ++count) {
(*_pChar) = (char)(((int)('A')) + count);
++_pChar;
}
for (int count = 0; count < 26; ++count) {
Console.Write(pChar[count]);
}
}
}
Выделяем 26 символов в стеке, цикл присваивает буквы к каждому элементу
+142.8
using System;
class program
{
unsafe public static void Foo(int* pa)
{
for (int* ip = pa; ip < (pa+5); ip++)
{
Console.WriteLine("value {0} at address: {1}", *ip, (int)ip);
}
}
static void Main(string[] args)
{
unsafe
{
int* pa = stackalloc int[5];
pa[0] = 12;
pa[1] = 34;
pa[2] = 56;
pa[3] = 78;
pa[4] = 90;
Foo(pa);
}
}
}
Использование stackalloc для выделения памяти под массив