-
−186
- 001
- 002
- 003
- 004
- 005
- 006
- 007
- 008
- 009
- 010
- 011
- 012
- 013
- 014
- 015
- 016
- 017
- 018
- 019
- 020
- 021
- 022
- 023
- 024
- 025
- 026
- 027
- 028
- 029
- 030
- 031
- 032
- 033
- 034
- 035
- 036
- 037
- 038
- 039
- 040
- 041
- 042
- 043
- 044
- 045
- 046
- 047
- 048
- 049
- 050
- 051
- 052
- 053
- 054
- 055
- 056
- 057
- 058
- 059
- 060
- 061
- 062
- 063
- 064
- 065
- 066
- 067
- 068
- 069
- 070
- 071
- 072
- 073
- 074
- 075
- 076
- 077
- 078
- 079
- 080
- 081
- 082
- 083
- 084
- 085
- 086
- 087
- 088
- 089
- 090
- 091
- 092
- 093
- 094
- 095
- 096
- 097
- 098
- 099
- 100
FUNCTION traslate2eng (
as_str_i IN VARCHAR2
) RETURN VARCHAR2
IS
ls_out_str VARCHAR2(2000);
lb_flag BOOLEAN;
TYPE r_tran_symbols IS RECORD (
ukr_char VARCHAR2(1)
, eng_char VARCHAR2(4)
);
TYPE t_tran_symbols IS TABLE OF r_tran_symbols INDEX BY BINARY_INTEGER;
lt_tran_symbols t_tran_symbols;
BEGIN
lt_tran_symbols.DELETE;
lt_tran_symbols(1).eng_char := 'A';
lt_tran_symbols(1).ukr_char := 'А';
lt_tran_symbols(2).eng_char := 'B';
lt_tran_symbols(2).ukr_char := 'Б';
lt_tran_symbols(3).eng_char := 'V';
lt_tran_symbols(3).ukr_char := 'В';
lt_tran_symbols(4).eng_char := 'G';
lt_tran_symbols(4).ukr_char := 'Г';
lt_tran_symbols(5).eng_char := 'H';
lt_tran_symbols(5).ukr_char := CHR(165);--'_';
lt_tran_symbols(6).eng_char := 'D';
lt_tran_symbols(6).ukr_char := 'Д';
lt_tran_symbols(7).eng_char := 'E';
lt_tran_symbols(7).ukr_char := 'Е';
lt_tran_symbols(8).eng_char := 'YE';
lt_tran_symbols(8).ukr_char := 'Є';
lt_tran_symbols(9).eng_char := 'ZH';
lt_tran_symbols(9).ukr_char := 'Ж';
lt_tran_symbols(10).eng_char := 'Z';
lt_tran_symbols(10).ukr_char := 'З';
lt_tran_symbols(11).eng_char := 'Y';
lt_tran_symbols(11).ukr_char := 'И';
lt_tran_symbols(12).eng_char := 'I';
lt_tran_symbols(12).ukr_char := '_';
lt_tran_symbols(13).eng_char := 'YI';
lt_tran_symbols(13).ukr_char := 'Ї';
lt_tran_symbols(14).eng_char := 'Y';
lt_tran_symbols(14).ukr_char := 'Й';
lt_tran_symbols(15).eng_char := 'K';
lt_tran_symbols(15).ukr_char := 'К';
lt_tran_symbols(16).eng_char := 'L';
lt_tran_symbols(16).ukr_char := 'Л';
lt_tran_symbols(17).eng_char := 'M';
lt_tran_symbols(17).ukr_char := 'М';
lt_tran_symbols(18).eng_char := 'N';
lt_tran_symbols(18).ukr_char := 'Н';
lt_tran_symbols(19).eng_char := 'O';
lt_tran_symbols(19).ukr_char := 'О';
lt_tran_symbols(20).eng_char := 'P';
lt_tran_symbols(20).ukr_char := 'П';
lt_tran_symbols(21).eng_char := 'R';
lt_tran_symbols(21).ukr_char := 'Р';
lt_tran_symbols(22).eng_char := 'S';
lt_tran_symbols(22).ukr_char := 'С';
lt_tran_symbols(23).eng_char := 'T';
lt_tran_symbols(23).ukr_char := 'Т';
lt_tran_symbols(24).eng_char := 'U';
lt_tran_symbols(24).ukr_char := 'У';
lt_tran_symbols(25).eng_char := 'F';
lt_tran_symbols(25).ukr_char := 'Ф';
lt_tran_symbols(26).eng_char := 'KH';
lt_tran_symbols(26).ukr_char := 'Х';
lt_tran_symbols(27).eng_char := 'TS';
lt_tran_symbols(27).ukr_char := 'Ц';
lt_tran_symbols(28).eng_char := 'CH';
lt_tran_symbols(28).ukr_char := 'Ч';
lt_tran_symbols(29).eng_char := 'SH';
lt_tran_symbols(29).ukr_char := 'Ш';
Я даже не знаю что тут можно прокомментировать :(
CamelTM,
16 Декабря 2010
-
−133
- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
- 29
- 30
- 31
- 32
- 33
- 34
- 35
- 36
- 37
- 38
- 39
- 40
- 41
- 42
- 43
- 44
- 45
- 46
- 47
Процедура БазоваяПриИзменении(Элемент)
Если ЭтаФорма.ЕдОтчетов = Истина Тогда
ЭтаФорма.ВДаллах = Ложь;
ЭтаФорма.ВРублях = Ложь;
ЭтаФорма.Ед_храненияОст = Ложь;
Иначе
ЭтаФорма.ВДаллах = Ложь;
ЭтаФорма.ВРублях = Истина;
ЭтаФорма.Ед_храненияОст = Ложь;
КонецЕсли;
КонецПроцедуры
Процедура ВДаллахПриИзменении(Элемент)
Если ЭтаФорма.ВДаллах = Истина Тогда
ЭтаФорма.ЕдОтчетов = Ложь;
ЭтаФорма.ВРублях = Ложь;
ЭтаФорма.Ед_храненияОст = Ложь;
Иначе
ЭтаФорма.ЕдОтчетов = Ложь;
ЭтаФорма.ВРублях = Истина;
ЭтаФорма.Ед_храненияОст = Ложь;
КонецЕсли;
КонецПроцедуры
Процедура Ед_храненияОстПриИзменении(Элемент)
Если ЭтаФорма.Ед_храненияОст = Истина Тогда
ЭтаФорма.ЕдОтчетов = Ложь;
ЭтаФорма.ВРублях = Ложь;
ЭтаФорма.ВДаллах = Ложь;
Иначе
ЭтаФорма.ЕдОтчетов = Ложь;
ЭтаФорма.ВРублях = Истина;
ЭтаФорма.ВДаллах = Ложь;
КонецЕсли;
КонецПроцедуры
Процедура ВРубляхПриИзменении(Элемент)
Если ЭтаФорма.ВРублях = Истина Тогда
ЭтаФорма.ЕдОтчетов = Ложь;
ЭтаФорма.Ед_храненияОст = Ложь;
ЭтаФорма.ВДаллах = Ложь;
Иначе
ЭтаФорма.ЕдОтчетов = Ложь;
ЭтаФорма.ВРублях = Истина;
ЭтаФорма.ВДаллах = Ложь;
КонецЕсли;
КонецПроцедуры
Замечательная реализация радиобаттонов через флажки
ingenuus,
16 Декабря 2010
-
+168
- 1
- 2
- 3
$.each( $(this).parent().parent().parent().parent().parent().parent().parent().parent().parent().parent().parent().parent().parent().parent().next().find(".det-project"), function(i, item) {
$tracks.push( $(item).attr("rel") );
});
Проверял какой код ребята из команды написали - нашел вот такое.
Mike,
16 Декабря 2010
-
+118
- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
static double SingleToDouble(Single v)
{
return double.Parse(v.ToString());
}
static void Scan()
{
double q = 0.0;
while (q <= 10.0)
{
Single s = (Single)q;
Double d = SingleToDouble(s);
if (d == q)
MessageBox.Show(q.ToString());
q = q + 0.1;
}
}
народ, кто-нибудь знает чем можно заменить код "return double.Parse(v.ToString());" в SingleToDouble?
"return v;" не подходит - на экран выводятся только 0, 0.5 и 4.5. А нужно чтобы все выводились 0, 0.1, 0.2 ... 0.9.
4eburashka,
16 Декабря 2010
-
+131
- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
orig_labels = sort(unique(Y));
Y_new = Y;
new_labels = 1:length(orig_labels);
for i=1:length(orig_labels)
Y_new(find(Y==orig_labels(i)))=Inf;
Y_new(isinf(Y_new))=new_labels(i);
end
Y = Y_new;
Matlab. Масштабирование. То есть типа вектор [100 230 400 300 230] переводится в [1 2 4 3 2].
Можно было сделать внутри цикла "Y_new(Y == orig_labels(i)) = i".
Побочным эффектом стало то, что если Y имеет элементы с типом не double, а int32 к примеру, то Inf превращается в maxint32, проверка isinf() возвращает false и код внезапно не работает.
burdakovd,
16 Декабря 2010
-
−178
- 1
select count(*) from contacts left join orders on contacts.id = orders.contactId where not ISNULL(orders.contactId)
Комментарий автора "в inner можно что-то потерять, а left всегда работает"
Анонимус,
16 Декабря 2010
-
+80
- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
/**
* произвольные группы районов
*/
public enum DistrictGroup {
/*...*/
public int getOrdinal() {
for (int i = 0; i < values().length; i++) {
if (this == values()[i]) {
return i;
}
}
throw new Error("no ordinal found"); // never can be
}
}
Вот так пишут выпускники ВМК МГУ.
yvu,
16 Декабря 2010
-
+92
- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
- 29
- 30
unit uncrt;
interface
procedure ClrScr;
procedure Sound(Hz: Word);
procedure NoSound;
procedure TextColor(Color: Byte);
procedure TextBackground(Color: Byte);
var
TextAttr: Byte; { Для особо продвинутых случаев }
implementation
procedure ClrScr;
begin end;
procedure Sound(Hz: Word);
begin end;
procedure NoSound;
begin end;
procedure TextColor(Color: Byte);
begin end;
procedure TextBackground(Color: Byte);
begin end;
end.
Вас достала школота, раскрашивающая свои бибикающие программы?
Вам поможет этот модуль!
TarasB,
16 Декабря 2010
-
+114
- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
protected void Page_Load(object sender, EventArgs e)
{
String a = Convert.ToString(max);
RangeValidator1.MinimumValue = "0";
RangeValidator1.MaximumValue = "3333";
int ind=Convert.ToInt16(DropDownList1.SelectedIndex);
if ((curind < 0)||(ind<0))
{
WareHouse WH = new WareHouse();
string[] list = WH.RefreshList(curProd);
int i = 0;
int len = list.Length;
DropDownList1.Items.Clear();
while (i < len)
{
if (curProd != list)
{
DropDownList1.Items.Add(list);
}
i++;
}
}
}
Чувак прислал резюме и пример проекта ASP.NET. А в нем это. Особо забавляет строка 7 и цикл while
Terran,
16 Декабря 2010
-
+157
- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
- 29
- 30
- 31
- 32
- 33
- 34
- 35
- 36
- 37
$query = "SELECT * FROM records WHERE id_film='$id_film'";
$results = mysql_query($query);
$var1 = "<?xml version=\"1.0\" encoding=\"utf-8\"?>\n";
$var1 = $var1. "<playlist>\n";
while($line = mysql_fetch_assoc($results))
{
$tmp_us = $tmp_us.$line['id_user'];
$var1 = $var1."<vid src=\"http://homelinux.com:8080/sample1/content/audiorecord/"
. $line['id_user']
."/"
. $line["file_name"]
."_d.flv"
. "\" label=\""
. $line["file_name"]
."\""
." id_film=\""
. $line["id_film"]
."\""
." time_begin=\""
. $line["time_begin"]
."\""
." time_end=\""
. $line["time_end"]
."\""
." id_user=\""
. $line["id_user"]
."\""
." sh_val=\""
. $line["sh_val"]
."\""
." id_record=\""
. $line["id_record"]
."\""
."/>\n";
}
$var1 = $var1."</playlist>\n";
echo "var1=$var1";
Вот так некоторые Flash-еры формируют xml пакеты
Agel_Nash,
16 Декабря 2010
Follow us!