Имя: Пароль:
1C
Жизнь форума
Тестирование выделения программного кода
0 Волшебник
 
модератор
11.10.05
12:39
Здесь можно потестировать точность выделения программного кода на языке 1С. Эта ветка - продолжение ТехИнфо: реализовано выделение программного кода.

Ниже идет пример модуля.

//------------- какой-то произвольный модуль ---------
Перем ИмяПеременной1;

Функция КакаяТоФункция(Параметр1, Параметр2)
 Если Параметр2 = Критерий Тогда
   ВызовДругойПроцедуры(Параметр1);
 КонецЕсли;
 Возврат Параметр1;
КонецФункции

ИмяПеременной1 = 0;
//------------- вот и кончился модуль -----------------

Пишите сюда свои фрагменты, только не очень большие.
1 OFF
 
11.10.05
12:45
Процедура ПередЗаписью(Отказ)
   Если Не ЭтоГруппа Тогда        
       ПередЗаписьюЭлемента(Отказ);
   КонецЕсли;
КонецПроцедуры
2 Ёпрст
 
11.10.05
12:46
Перем Тест;
 Тест=а;
 ф=b;
 f=Тест;
3 КонецЦикла
 
11.10.05
12:47
//мама, мама, что я буду делать...
Если ПустоеЗначение(Файл.Цуцу) = 1 Тогда
4 Волшебник
 
модератор
11.10.05
12:47
(3) "мало. еще хочу" :)
5 КонецЦикла
 
11.10.05
12:47
И как понимать? Если нужен кусок?
6 Волшебник
 
модератор
11.10.05
12:48
//мама, мама, что я буду делать...
Если ПустоеЗначение(Файл.Цуцу) = 1 Тогда
 ВызовСамойГлавнойПроцедуры();
КонецЕсли;
7 Ёпрст
 
11.10.05
12:49
Эта Процедура() показывает,что
    Если Это есть код = Код на языке 1С Тогда
 Сообщить() это код синег света...
8 fabrikant
 
11.10.05
12:49
В отдел внедрения крупной компании требуются программисты 1С.
Плюсы:
- З/п от 18000 (определяется по результатам собеседования);
- Питание;
- Хороший опыт работы;
- Хороший колектив;
Минусы:
- Местоположение (Восточный промузел, за ЗИЛом);
- Командировки;
9 Кудесник
 
11.10.05
12:50
Попытка
ЗапоститьНаМисте();
Сообщить("ну чиво?");
Исключение
Сообщить("я не Волшебник, я только учусь");
КонецПопытки
10 Кудесник
 
11.10.05
12:50
2(6) Так все же... если кусок?
11 Ёжик в тумане
 
11.10.05
12:51
Ну раз продолжение, тогда сюда скажу..
12 Таня
 
11.10.05
12:52
//******ТЮ
Процедура ЗаполнитьСписок()
ВыбКвартал.УдалитьВсе();
Для Н = 0  По 3 Цикл
ВыбКвартал.ДобавитьЗначение(ДобавитьМесяц(Дата(Год,01,01),Н*3),Формат(ДобавитьМесяц(НачГода(РабочаяДата()),Н*3),"Д КККК")+" "+Год);
КонецЦикла;
КонецПроцедуры    // ЗаполнитьСписок()
//*****ТЮ
13 Ёжик в тумане
 
11.10.05
12:52
Как уже смешно читать все эти разговоры про искусственный интеллект. Многие люди явно не вполне понимают сам термин ИИ.

Так, первичное значение ИИ означало полностью механизированный по принципам формальной логики интеллект. Однако узкие рамки формальной логики неизбежно вели к исключению из интеллектуальной системы дестабилизирующие факторы, присущие человеческому интеллекту. А соответственно, и ИИ на такой основе представлял бы из себя "разум" более организованного порядка. Если судить о его возможном поведении по принципу аналогий с известными культурными тенденциями, то такой интеллект (при взаимодействии с человеческим) наверняка не стал бы вступать ни в какие коммуникации (а, возможно, и вовсе бы не обозначил своего присутствия). Таким образом, выходит, что люди вполне могут и не заметить существование рядом грандиозных систем искусственного интеллекта.

Но поскольку сама идея отделения мышления от собственно человека была уж очень привлекательна, то и тему ИИ развили в другом направлении. Сейчас под ИИ подразумеваются больше некие имитаторы человеческого мышления. А для имитации человека достаточно разложить его мышление на различные аспекты и эти аспекты смодулировать в соответствующей взаимосвязи.
По этому поводу уже давно существует ряд теорий, под некоторые из них созданы программные прототипы.
14 Волшебник
 
модератор
11.10.05
12:52
Напомню основные правила для повышения точного распознавания:
1. Фрагмент должен быть не очень маленьким (желательно 3-4 строки)
2. Желательна лесенка (отступы), можно использовать Автоформатирование в 1С.
3. Желательно отделить фрагмент программы от основного текста пустой строкой, чтобы не захватились граничные строки
4. Учитывается наличие ключевых слов встроенного языка 1С. Их написание должно быть обычным, с большой буквы, на русском языке.
5. Каждый оператор лучше писать на отдельной строке
15 Волшебник
 
модератор
11.10.05
12:53
(8) Явный баг. Будем исправляться.
16 Волшебник
 
модератор
11.10.05
12:55
Используется очень много критериев, у каждого есть свой весовой коэффициент. Наличие комментариев, специальных символов, типичных программистких конструкций (вызов функции с параметром или без, обращение к свойству или методу объекта, блочность фрагмента - парность конструкций).
17 Валенок
 
11.10.05
12:55
Если ФлажокКоторыйНаФормеДиалогаСправаСнизу = 1
   ПроцедураКотораяУстанавливаетФлажокКоторыйНаФормеДиалогаСправаСнизуВНоль()
18 Кудесник
 
11.10.05
12:56
Процедура глСообщениеТрассировки(Трассировка, Сообщение, ТипСообщения=0, ИзменениеУровняСообщения=0, Знач _П01="", _П01Формат="", Знач _П02="", _П02Формат="", Знач _П03="", _П03Формат="", Знач _П04="", _П04Формат="",Форма="",Объект="",Контрол="") Экспорт Далее
Процедура глПоказатьТрассировку(Трассировка) Экспорт  Далее
Процедура глСообщениеПроведения(ТекстСообщения, Док, ТипСообщения=-1,ПроводимыйДок="",ВыводитьВТаблицу=1) Экспорт Далее
19 Валенок
 
11.10.05
12:56
Если ФлажокКоторыйНаФормеДиалогаСправаСнизу = 1 Тогда
  ПроцедураКотораяУстанавливаетФлажокКоторыйНаФормеДиалогаСправаСнизуВНоль()
20 fabrikant
 
11.10.05
12:56
Если ФлажокКоторыйНаФормеДиалогаСправаСнизу = 1 Тогда
  ПроцедураКотораяУстанавливаетФлажокКоторыйНаФормеДиалогаСправаСнизуВНоль();
КонецЕсли;
21 Кудесник
 
11.10.05
12:56
Добавить=Длина-СтрДлина(Стр);
   Добавок="";
   Для Сч = 1 По Добавить  Цикл
       Добавок=Добавок+Чем;
   КонецЦикла;
22 Валенок
 
11.10.05
12:57
Если ФлажокКоторыйНаФормеДиалогаСправаСнизу = 1 Тогда
  ПроцедураКотораяУстанавливаетФлажокКоторыйНаФормеДиалогаСправаСнизуВНоль();
КонецЕсли;
23 fabrikant
 
11.10.05
12:57
Если ФлажокСнизу = 1 Тогда
 ПроцедураСправаСнизу();
КонецЕсли;
24 Кудесник
 
11.10.05
12:57
Для Сч = 1 По Добавить  Цикл
       Добавок=Добавок+Чем;
   КонецЦикла;
   Возврат Стр+Добавок;
КонецФункции
25 Кудесник
 
11.10.05
12:58
Функция глВзятьКонтекст(Конт) Экспорт
   Возврат Конт;
КонецФункции // глВзятьКонтекст()
26 Валенок
 
11.10.05
12:58
Точно, я - валенок.
27 Кудесник
 
11.10.05
12:58
еще разок

Функция глВзятьКонтекст(Конт) Экспорт
   Возврат Конт;
КонецФункции // глВзятьКонтекст()
28 Волшебник
 
модератор
11.10.05
12:59
Алгоритм старается действовать по правилу: лучше не распознать действительно программный код, чем распознать обычный текст как код. Поэтому простые короткие фрагменты могут не набрать необходимого веса. Нужны фрагменты побольше: по 5-7 строк.
29 Кудесник
 
11.10.05
12:59
Прикольно!

Если Метаданные.Справочник(Элемент2.Вид()).Реквизит(Индекс).Периодический = 0 Тогда
                       
                       Если Элемент1.ПолучитьАтрибут(Реквизит) <> Элемент2.ПолучитьАтрибут(Реквизит) Тогда
                           // В случае если в переданном контексте происходило обращение
                           // к реквизиту "Имя", то СтарыйРеквизит.ПолучитьАтрибут("Имя")
                           // вернет старое значение.
                           Рез = 1;
                           Прервать;
                       КонецЕсли;
                       
                   КонецЕсли;
30 Волшебник
 
модератор
11.10.05
13:00
(25)

Функция глВзятьКонтекст(Конт, еще параметр) Экспорт
  Перем а;
  а = а+1;
  Возврат Конт;
КонецФункции // глВзятьКонтекст()
31 Валенок
 
11.10.05
13:03
Еще раз.

Если ФлажокКоторыйНаФормеДиалогаСправаСнизу = 1 Тогда
ПроцедураКотораяУстанавливаетФлажокКоторыйНаФормеДиалогаСправаСнизуВНоль();
ПослатьВсехНаТриБуквы();
ПойтиПитьПиво();
КонецЕсли;
32 Парижская фанера
 
11.10.05
13:05
А не проще было теги ввести и не париться?
33 Кудесник
 
11.10.05
13:05
Движение = Движения.ОстаткиМатериалов.Добавить();
           Движение.ВидДвижения = ВидДвиженияНакопления.Расход;
           Движение.Период = Дата;
           Движение.Материал = ВыборкаРезультатаЗапроса.Номенклатура;
           Движение.Склад = Склад;
           Движение.Количество = ВыборкаРезультатаЗапроса.Количество;
34 АЛьФ
 
модератор
11.10.05
13:09
2(32) Можно присоединиться к твоему вопросу?
35 fabrikant
 
11.10.05
13:10
//******************************************************************************
// Накидаться(КоличествоДенегРуб)
//
// Параметры:
//  КоличествоДенегРуб,СтоимостьПорции
//
// Возвращаемое значение:
//  Нет
//
// Описание:
//  ТекстОписания
//
Процедура Накидаться(КоличествоДенегРуб,СтоимостьПорции)
   
   флЕщеСтою = 1;
   Если КоличествоДенегРуб < СтоимостьПорции Тогда
       Предупреждение("Вали отсюда!");
       СтатусВозврата(0);
       Возврат;
   КонецЕсли;
   
   НачатьТранзакцию();
   Пока (КоличествоДенегРуб >= СтоимостьПорции)
   и    (флЕщеСтою = 1) Цикл
       КоличествоДенегРуб = КоличествоДенегРуб-СтоимостьПорции;
       флЕщеСтою = глТяпнуть();
   КонецЦикла;
   ЗафиксироватьТранзакцию();
КонецПроцедуры // Накидаться()
36 Таня
 
11.10.05
13:11
//Таня умная
37 Парижская фанера
 
11.10.05
13:11
(34) Пожалуйста.

+ тормоза какие-то идут при загрузке - видать обработка текса идет... + "раскраски" текста нету... Короче мне не нравится :(
38 Таня
 
11.10.05
13:11
фу, не работает!
39 Кабан мимо пробеган
 
11.10.05
13:12
(32)
Проще, но тогда это было-б похоже на рилнет и итлэнд.

Для к=1 Пo 10 Цикл
к=к+1
KoнецЦиклa
40 fabrikant
 
11.10.05
13:12
(36) Не прошло, хоть и комментарий :)
41 Кудесник
 
11.10.05
13:12
2(32, 34) И я говорил Волшебнику в КУЛе
Давайте посмотрим - может приживется (людей ломают лишние телодвижения)
42 Парижская фанера
 
11.10.05
13:13
(35) В не предопределенной процедуре есть смысл ставить СтатусВозврата(0)?
43 Парижская фанера
 
11.10.05
13:14
(41) Ответ был типа: "Простых путей не ищем?"
44 Кабан мимо пробеган
 
11.10.05
13:15
Думаю, не отработает :((


Прoцедурa Пощитайка()
 Для к=1 Пo 10 Цикл
    к=к+1
 KoнецЦиклa
КонeцПрoцедуры

ЗЫ
Послеобеденный флейм..
45 fabrikant
 
11.10.05
13:15
(42) Это она у тебя не предопределенная :), а у меня предопределенная. Вызывается по событию "суббота" :)
46 Парижская фанера
 
11.10.05
13:19
(41) Нет, ну отстойная реализация :(( ... Вводим теги для показа текста. Вводим настройку пользователя которая переводит текст в тегах в код. Если настройка откл. не преобразуем текст, показываем как есть - теги покажут начало и конец. Все просто и доступно. Тут понагородили непонятно чего....
47 Парижская фанера
 
11.10.05
13:19
(45) Ясно :)
48 Парижская фанера
 
11.10.05
13:20
(44) Бугага... Пробежало мимо только полкабана...
49 Кудесник
 
11.10.05
13:21
2(43) Не :) Типа все для удобства людей - и это хорошо!
50 Парижская фанера
 
11.10.05
13:22
(49) Данное удобство "удобством" не является т.к. реализация хромает на обе ноги.. См. (46).
51 Волшебник
 
модератор
11.10.05
13:30
(44) Сделай код более правильным

Прoцедурa Пощитайка()
Для к = 1 Пo 10 Цикл
   к = к + 1;
KoнецЦиклa;
КонeцПрoцедуры
52 fabrikant
 
11.10.05
13:30
Интересно, а с ";"

Прoцедурa Пощитайка()
Для к=1 Пo 10 Цикл
   к=к+1;
KoнецЦиклa;
КонeцПрoцедуры
53 oPIRATor
 
11.10.05
13:31
(51)точно ... КонецПроцедуры... это не код...
54 Волшебник
 
модератор
11.10.05
13:31
(51)+ Да... Все равно глючит. Ну будем работать дальше. Добавим еще пару строк (нужно преодолеть критическую массу)

Прoцедурa Пощитайка()
 Для к = 1 Пo 10 Цикл
   к = к + 1; //зачем меняем переменную цикла?
   к = к - 1; //вернем ее назад
 KoнецЦиклa;
 Сделаем = ЧтоНибудь + Полезное;
КонeцПрoцедуры
55 Волшебник
 
модератор
11.10.05
13:32
Сейчас весовые коэффициенты настроены не очень тонко. Лучше не распознать какой-то фрагмент кода, чем испортить обычный текст, поэтому алгоритм старается действовать наверняка. Конечно, не всегда получается.
56 Парижская фанера
 
11.10.05
13:36
Чем бы Волшебник не тешился...
57 Волшебник
 
модератор
11.10.05
13:37
Попробуем ещё так:

//процедура для подсёта чего-то
Прoцедурa Пощитайка()
 Для к=1 Пo 10 Цикл
   к=к+1;
 KoнецЦиклa;
КонeцПрoцедуры //Пощитайка()
58 Волшебник
 
модератор
11.10.05
13:38
//процедура для подсёта чего-то
Прoцедурa Пощитайка() Экспорт //пусть она будет доступна всем
Для к=1 Пo 10 Цикл
  к=к+1;
KoнецЦиклa;
КонeцПрoцедуры //Пощитайка()
59 oPIRATor
 
11.10.05
13:38
а вот так

Перем БДМОД Экспорт;
Перем БДУдаленийМОД Экспорт;
Перем ИмяФайлаБДМОД Экспорт;
Перем БДПакетыМОД Экспорт;
Перем ИмяФайлаБДУдаленийМОД Экспорт;
Перем ГлобальныйID Экспорт;
Перем ГлобальныйVID Экспорт;
Перем ГлобальныйTIP Экспорт;
60 oPIRATor
 
11.10.05
13:38
Перем МОДДлинаIDДокумента Экспорт;//реальная длина IDD документа т.к. поиск у документов требует ведущих пробелов
//(автоматически устанавливается по длине IDD общего реквизита документов)
Перем РазрешитьРепликациюМОД Экспорт;
и вот так
61 Волшебник
 
модератор
11.10.05
13:40
(60) Чем фрагмент более красив и правилен, тем у него больше шансов быть узнанным.
62 oPIRATor
 
11.10.05
13:41
(61)все из стандартной ТиС...
63 Волшебник
 
модератор
11.10.05
13:42
(62) Дай фрагмент побольше, хотя бы 4-5 строчек.
64 oPIRATor
 
11.10.05
13:43
Перем МОДДлинаIDДокумента Экспорт;//реальная длина IDD документа т.к. поиск у документов требует ведущих пробелов
//(автоматически устанавливается по длине IDD общего реквизита документов)
Перем РазрешитьРепликациюМОД Экспорт;
Перем глВыгрБазаМОДВыгр Экспорт;
Перем глСписокПравилМОД Экспорт;
Перем глСписокВидовСпрМОД Экспорт;
Перем глВыгрБазаМОДЗагр Экспорт;
Перем _ТаблицаПравилМОД Экспорт;
Перем _ТаблицаЗагрузкиМОД Экспорт;
вот еще один код
65 oPIRATor
 
11.10.05
13:43
//ПЕРЕМЕННЫЕ ДЛЯ ОПТИМИЗАЦИИ
//переменные означающие, что был хотя бы один фильр условия или замены значения при выгрузке-загрузке
Перем глМОДБылФильтрВыгрузки Экспорт;
Перем глМОДБылФильтрЗагрузки Экспорт;
//переменная необходима для оптимизации доступа к ИДД объектов в пакете
Перем СписокДоступаКИДД Экспорт;
//Переменные для передачи данных в правила загрузки-выгрузки
тест
66 Волшебник
 
модератор
11.10.05
13:45
вот код на восьмерке:

Процедура ПередНачаломРаботыСистемы(Отказ)
   
   ТекущийРежим     = Константы.РежимЗавершенияРаботыПользователей.Получить();
   РежимыЗавершения = Перечисления.РежимыЗавершенияРаботыПользователей;
   
   Если ПравоДоступа("Изменение", Метаданные.Константы.РежимЗавершенияРаботыПользователей) Тогда
       Возврат;
   ИначеЕсли ТекущийРежим = РежимыЗавершения.ЗавершитьБезусловно
         ИЛИ ТекущийРежим = РежимыЗавершения.ЗавершитьССохранениемДанныхПользователя Тогда
       Отказ = Истина;
   КонецЕсли;
   
   ПроверитьВозможностьРаботыПользователя(Отказ);
       
КонецПроцедуры
67 Парижская фанера
 
11.10.05
13:45
Смотрите сегодня на REN TV:

Доктор Курпатов, что мне делать? Волшебник меня игнорирует...
68 Волшебник
 
модератор
11.10.05
13:47
(67) Следующий. ;)
69 fabrikant
 
11.10.05
13:48
(68) А синтаксис контроль планируется?
70 Волшебник
 
модератор
11.10.05
13:50
(69) Пока нет.
71 Парижская фанера
 
11.10.05
13:50
(69) Это как интересно, если глобальные переменные будут и т.п?
72 Груздь
 
11.10.05
13:51
Если Х<1 Тогда Х=-1; Иначе Х=1; КонецЕсли;
73 Парижская фанера
 
11.10.05
13:51
(70) А выполнение вбитого кода на компьютере Волшебника?
74 Ёжик в тумане
 
11.10.05
13:51
//терпеливо жду
   //появления новых функций форума:
   //1) личных сообщений между участниками
   //2) показа причины закрытия/утопления/удаления ветки
   //
75 Волшебник
 
модератор
11.10.05
13:53
(74) А ведь это вполне допустимый код на языке 1С, аналогично 9-му посту!
76 Волшебник
 
модератор
11.10.05
13:53
(72) А если причесать:

Если Х < 1 Тогда
  Х = -1;
Иначе
  Х = 1;
КонецЕсли;
77 Ёжик в тумане
 
11.10.05
13:54
Ага!
   Форматирование первой строки сносится.
   А в остальном очень хорошо.
    
78 oPIRATor
 
11.10.05
14:02
(76)а если почитать пару статей про... то взлетит и то что в (72)
79 Груздь
 
11.10.05
14:03
(76) Может ты заодно с раскрашиванием и причесывать будешь?
80 Волшебник
 
модератор
11.10.05
14:09
(78) Нет цели распознать абсолютно любой фрагмент, я же не компилятор пишу. Есть цель добиться достаточной (95%) точности при распознавании типичных фрагментов программ (обычных, часто встречающихся в реальной жизни, а не специально сконструированных).

(79) А вот это уже нельзя делать, поскольку может изменить смысл сообщения. Иногда "непричесанные" фрагменты красивее и понятнее "причесанных".
81 Груздь
 
11.10.05
14:16
(80) Но ведь причесанные тебе легче красить будет ...
Потому и возникла у меня такая сумасшедшая идея, предложить тебе сначала причесать фрагмент, а уж тогда он и раскрасится корректно ...
82 Кудесник
 
11.10.05
14:20
Предлагаю все непричесанае просто удалять! Вот сюрприз будит!
83 Волшебник
 
модератор
11.10.05
14:21
(81) Можно сделать так: причесать, раскрасить, а затем вернуть как было. Вовсе не сумасшедшая идея. Это технически реализуемо.
84 SKrin
 
11.10.05
14:22
//Выполнено|ОплатаВсего|ОплатаЗаЕд
 // 8,76     1 899,98     168,82
 //------------------------------
 // 5,67     1 230,98     217,26
 // 3,09          669     216,52
 //    0           0           0

:)
85 oPIRATor
 
11.10.05
14:23
//*******************************************
Процедура EnableMake()
   Form.btMake.Enable(?(tabDoc.LinesCnt() = 0, 0, 1));
КонецПроцедуры

//*******************************************
процедура EnableMake()
   Form.btMake.Enable(?(tabDoc.LinesCnt() = 0, 0, 1));
конецпроцедуры


//*******************************************
ПРОцедура EnableMake()
   Form.btMake.Enable(?(tabDoc.LinesCnt() = 0, 0, 1));
КонецПРОцедуры

//*******************************************
ПРОцедура EnableMake()
   Form.btMake.Enable(?(tabDoc.LinesCnt() = 0, 0, 1));
КонецПРОцедурЫ
86 Волшебник
 
модератор
11.10.05
14:26
Слова Процедура и КонецПроцедуры лучше писать без извращений. Регистр букв важен.
87 SKrin
 
11.10.05
14:30
странно, в опере цифры нормально моноширит, а текст нет
88 SKrin
 
11.10.05
14:31
+87 точней русский текст, английский тоже моноширит
89 Волшебник
 
модератор
11.10.05
14:33
Насколько я понял. Опера принципиально не хочет поддерживать тег font.
Бедные пользователи Оперы: они стали заложниками в войне старых и новых стандартов. Или Опера заставит вебмастеров изменить сайты, или заставит пользователей сменить браузер.
90 SKrin
 
11.10.05
14:35
сохранил страничку и поменял шрифт на "Courier New"  - нормально показывает
91 oPIRATor
 
11.10.05
14:35
(86)Стас... все это решается... не просто... а очень просто...


не морочь голову... как Лева... сперва книжки вумные почитай... поверь другие люди тоже их писать умеют... только их еще надо уметь читать....
92 SKrin
 
11.10.05
14:37
(89) попробуй так <font face="Courier New" size=-1 color="#000077">
93 Волшебник
 
модератор
11.10.05
14:39
(90) Дома сделаю Courier New.
(91) Ссылки или названия плиз.
(92) Зачем уменьшать размер?
94 Груздь
 
11.10.05
14:40
ТекстЗапроса = "
|Период с НачДата по КонДата;
|Док = Документ.РасходнаяНакладная.ТекущийДокумент,
|      Документ.ПриходнаяНакладная.ТекущийДокумент;
|Функция Счётчик = Счётчик();
|Группировка Док;";
95 SKrin
 
11.10.05
14:42
(93) "Зачем уменьшать размер?"
-он тогда такой же как и в 1с-ке (10-й)
-больше помещается
96 Груздь
 
11.10.05
14:42
(93) Размерчик действительно на шаг уменьшить надо ...
97 Nag
 
11.10.05
14:44
Попробовать что ли...

Если УМеняПолучится = 1 Тогда
  Сообщить("Работает!")
Иначе
  Сообщить("Не работает!")
КонецЕсли;
98 Ёжик в тумане
 
11.10.05
14:46
(93) Я-таки не понял отношение к тэгу <TT>
Или он в опере так же не воспринимается?
Или он тоже уже запрещён?
99 Волшебник
 
модератор
11.10.05
14:47
(98) А что это за тег?
100 SnarkHunter
 
11.10.05
14:47
100
101 oPIRATor
 
11.10.05
14:48
(93)завтра... по мылу кину... дома лежат...


а адреса... я не гугла помнить все...
102 Xbase
 
11.10.05
14:50
// сколько можно извращаться
// все равно не чего не получится
// только глючить начало
// и так все было нормально
// если работает зачем трогать
103 Волшебник
 
модератор
11.10.05
14:51
Цитирую ветку с форума "Территория 1С". Цитирую тут, потому что там эта ветка была удалена, а меня вроде как забанили (не проверял). Честно говоря, не понял за что. Ну да ладно: в чужой монастырь со своим уставом не лезут.

Волшебник
11.10.2005 - 14:06    
Так как форум посвящен 1С:Предприятию 7.7 и 8.0, то на форуме часто встречаются фрагменты программ. Предлагаю внести изменения в движок:
1. Сохранение горизонтальных и вертикальных отступов
2. Синтаксическая подсветка программных конструкций
3. Автоматическое определение границ фрагмента программы без использования тегов [code][/code] (чтобы не заставлять пользователя постоянно помнить об этом)

Денис2
1 - 11.10.2005 - 14:08    
и сюда он добрался... :-)

Дурочка 1С
2 - 11.10.2005 - 14:09    
Кому предлагаешь-то?

Макс 1С
3 - 11.10.2005 - 14:10    
я за... плюс еще бы от таймаутов избавится... вообще красота была бы ;-)

КонецЦикла
4 - 11.10.2005 - 14:10    
2(0) Поддержу!
Только тут давайте сделаем не интеллект, а тупо выделять фрагмент ;)
И ссылки со смайлами!
2(1) :)

Programmer
5 - 11.10.2005 - 14:10    
http://www.kuban.ru/forum_new/forum9/files/245291.html
теперь новая мода пошла по две ветки одинаковые создавать?

Денис2
6 - 11.10.2005 - 14:11    
И подумаем, что на этом сервере не только 1с-вцы гуляют... Остальным зачем такая расцветка?

Волшебник
7 - 11.10.2005 - 14:12    
(4) Кстати, здесь распознавание ссылок на кубанские страницы иногда работает.
Можно сделать и "туповыделение" тегами и интеллектуальное определение. Одно другому не мешает. Еще можно придумать антитеги, т.е. [nocode][nocode], чтобы интеллектуальный алгоритм не пытался раскрасить этот фрагмент.

Волшебник
8 - 11.10.2005 - 14:14    
(5) У меня исчезла страница и я думал, что ветка не создалась. Прошу прощения. Предлагаю модераторам ее удалить и пусть эта будет основной.
А таймауты действительно сильно мешают общению. Но это к теме не относится. Давайте обсуждать именно подсветку программного кода. Если сделать готовый механизм в виде функции и предложить его веб-мастерам, они согласятся, как вы думаете?

КонецЦикла
9 - 11.10.2005 - 14:17    
2(8) Ты очень добрый Волшебник! Куда ж они денутся?

V
10 - 11.10.2005 - 14:20    (8)ага и заплатят тебе за идею...:)

Cool Brother
11 - 11.10.2005 - 14:21    Это ты клево придумал. Я тоже за.
Интересно, сколько это будет стоить?

Волшебник
12 - 11.10.2005 - 14:22    (6)
Я предлагаю расцветку только для форума "Территория 1С".

Волшебник
13 - 11.10.2005 - 14:25    (10,11)
Готов поделиться идеей бесплатно.
.
1. Сохранять отступы очень легко - для этого просто не надо их удалять из исходного сообщения, а надо заменять на HTML-символы.
.
2. На КУЛе есть пример синтаксической расцветки кода на 1С, но там надо выделять фрагмент тегами.
.
3. На мисте можно посмотреть работу механизма автоматического определения границ фрагмента программы без тегов.

OFF
14 - 11.10.2005 - 14:25    (0)
Эт к Филу лучше напрямую обратиться :)
Вот только что он ответит?

Дурочка 1С
15 - 11.10.2005 - 14:25    
Нужно предложить веб-мастерам:
- сделать желтый фон,
- поменять шрифт заголовока на таймньюроман,
- сделать разделы 1С, IT, Life,
- показывать имя последнего обновившего тему,
- отменить обязательную регистрацию,
- показывать умные изречения,
-
-

Programmer
16 - 11.10.2005 - 14:26    
(13) 3 -й пункт исключаем, поскольку это самореклама

Волшебник
17 - 11.10.2005 - 14:28    
(15) Ну это было бы идеально... :)

Борис Николаевич
18 - 11.10.2005 - 14:29    
(15), (17) http://images.disenteria.ru/lshef/image001.jpg

Волшебник
19 - 11.10.2005 - 14:31    
Еще несколько идей по программному коду:
1. Движок может автоматически искать похожий программный код и давать ссылки на него. Новичкам это поможет быстро понять, где ошибка в их коде.
2. На функции, приведенные в программном коде, можно выдавать ссылки на их синтаксис (список параметров, возвращаемое значение). Новички обычно ленятся лезть в синтакс-помощник, а на 90% вопросов можно ответить, зная только синтаксис.

V
20 - 11.10.2005 - 14:32    
по мне так если лень то это их проблемы...

вым
21 - 11.10.2005 - 14:34    
не надо ничего выделять, здешние цвета всех устраивают не один год и еще переживут все новоявленные и "дико посещаемые" мЕста.
кто код понимает ,поймет его и без выделений

Programmer
22 - 11.10.2005 - 14:34    
(19) и все это будет безбожно тормозить

Волшебник
23 - 11.10.2005 - 14:35    
(22) Как мне сказали, это зависит от "кривости" рук вебмастера. Если руки прямые, то ничего тормозить не будет. Операции со строками производятся преимущественно в памяти, без обращения к дискам и базе данных, поэтому сильно тормозить не должно.

Programmer
24 - 11.10.2005 - 14:36    
(21) полностью одобряю (тока я бы заменил "без выделений" на "без подсветки" что ли :)))

Волшебник
25 - 11.10.2005 - 14:37    
(21) Скажем деликатно: тех, кого не устроили здешние цвета и нарочитая простота движка, уже давно нашли мЕста поинтереснее.

Programmer
26 - 11.10.2005 - 14:39    
(25) не все, автор ветки остался

Человек в футляре
27 - 11.10.2005 - 14:42    
(0) И сколько Вам дать дней на ожидание ответа от вэбмастера?

Ветка будет удалена. "Пятничные ОФФы" не в пятничный день будут пресекаться доступными мне способами.

Железяка
28 - 11.10.2005 - 14:42    
Вот читаю и думаю: может забанить автора ветки за незнание правил Т1С.

Programmer
29 - 11.10.2005 - 14:43    
(28) респект

Волшебник
30 - 11.10.2005 - 14:43    
(26) Ну я тут периодами бываю, я не показатель. Редко отвечаю, еще реже создаю ветки. Иногда месяцами не захожу, а потом что-нибудь напишу простое, чтобы ник никто не занял.

Давайте вернемся к сабжу. У кого какие еще пожелания к доработке движка этого форума? Может быть есть готовность реализовать нечто подобное?


Железяка
31 - 11.10.2005 - 14:44    
Всё. Прощаемся с автором и его веткой.

Волшебник
32 - 11.10.2005 - 14:46    
(27) Это не ОФФ, это тема прямо связанная с 1С.
(28) Я их читал гораздо больше раз и более внимательно, чем многие посетители этого форума.
104 Ёжик в тумане
 
11.10.05
14:54
(99) Можно на примере увидеть разницу:
<BR>Обычный шрифт
<BR><B>Жирный шрифт</B>
<BR><I>Наклонный шрифт</I>
<BR><TT>Моноширинный шрифт</TT>
105 Волшебник
 
модератор
11.10.05
15:01
За эту ветку на Т1С мой ник "Волшебник" заблокировали до 17.01.2006. Странные там порядки. Не удивляюсь, что популярность "Территории 1С" упала в 2-3 раза. Я ведь делал конструктивные предложения, приводил примеры реализации, а меня за это забанили и все сообщения удалили. Обидно.
106 SKrin
 
11.10.05
15:02
(105) как насчет (92)? дело пяти минут
107 Волшебник
 
модератор
11.10.05
15:02
(106) Я тебе ответил в 93 посте.
108 oPIRATor
 
11.10.05
15:05
(105)меня вот тут тоже ни за что забанили...
109 Xbase
 
11.10.05
15:05
не фига себе самомнение "Не удивляюсь, что популярность "Территории 1С" упала в 2-3 раза"
110 Груздь
 
11.10.05
15:17
(109) У тебя другие цифры?
111 Груздь
 
11.10.05
15:18
(107) Там не было ответа ...
112 SnarkHunter
 
11.10.05
15:18
(110)Нет, у него другое самомнение.
113 Волшебник
 
модератор
11.10.05
15:23
(109) Это не самомнение, а статистика с 2002-2003 года. На основе показаний счетчика mail.ru
114 Terv
 
11.10.05
15:23
попробуем ...

такс сегодня надо :
- пиво;
- рыба;
- т.п;

Если Допили() = 1 Тогда
   Продолжить;
Иначе
   Пить();
КонецЕсли;
115 Волшебник
 
модератор
11.10.05
15:24
(114) Про пиво уже известный глюк, описанный выше. А фрагмент с Пили/Допили распознался верно.
116 Asmody
 
11.10.05
15:25
НукаДайтеЯПроверю();
 Удивляюсь=Сколько.Людей.Занимаются+Всякой.Фигней()+
 "ВместоТого, чтобы работать"+
КажетсяВсе;
117 Парижская фанера
 
11.10.05
15:25
(105) Прям анекдот какой-то:

Барин глубокомысленно: "Дааа... Не любит тебя Ерофеич..."
118 Волшебник
 
модератор
11.10.05
15:26
(114) если сделать так, то должно быть ок. Точка с запятой - один из признаков программного кода, имеющий серьезный вес. Возможно нужно уменьшить вес этого признака.

такс сегодня надо :
- пиво,
- рыба,
- т.п.
119 Волшебник
 
модератор
11.10.05
15:27
(116) Фича была реализована в свободное от работы время. Неужели ты предлагаешь работать еще после работы?
120 Terv
 
11.10.05
15:27
(118) это;
уже;
понятно;

прикольная фишка;
:) ;
121 Сержант 1С
 
11.10.05
15:27
нука;
122 Сержант 1С
 
11.10.05
15:28
наверное;
так;
получится;
123 Волшебник
 
модератор
11.10.05
15:28
(121) Ну не все так однозначно... :)
124 Сержант 1С
 
11.10.05
15:28
:))
125 Сержант 1С
 
11.10.05
15:29
(124) это;
уже;
понятно;
126 Сержант 1С
 
11.10.05
15:29
(125) это;
уже;
понятно;

прикольная фишка;
:) ;
127 Сержант 1С
 
11.10.05
15:29
не бань, плз, -- интересная фень..
128 VadimG
 
11.10.05
15:30
Кстати, этот парсинг текста является очередным шагом в сторону добавления смайлов.. =)
129 Волшебник
 
модератор
11.10.05
15:30
(126) Да, примерно так. Нужна критическая масса. :)
130 Фокусник
 
11.10.05
15:30
ИМХО, лучше сделать теги, сами расставим где нужно
131 Terv
 
11.10.05
15:30
а если так :)
;
;
;
;
;
;
хватит?;
132 Волшебник
 
модератор
11.10.05
15:32
(128) Лично я против смайлов как таковых. Они делают форум несерьёзным.
133 Волшебник
 
модератор
11.10.05
15:33
(130) Может ты и расставишь, а 90% новичков заниматься этим не будут. Да и тебе в один прекрасный день станет лень оформлять все в теги, или забудешь оформить. Лучше посвятить больше времени общению, сосредоточиться на самом коде, а не на его оформлении.

(131) Я же говорю, не все так однозначно. :)
134 Фокусник
 
11.10.05
15:36
(133) Я бы это еще и для таблиц использовал.
А какие возможности для псевдографики открываются... :)
135 Сержант 1С
 
11.10.05
15:37
//хроники больного зуба

Пришел в поликлинику (к терапевту), далее:
   1. рентген;
   2. терапевт;
   3. рентген;
   4. хирург;
   5. рентген;
   6. терапевт (че-то сделала, дала таблетки);
   7. через 3 дня терапевт (еще что-то сделала, дала те же таблетки);
   8. в итоге: болит
Пошли они все
уже 800 рэ...
136 Xbase
 
11.10.05
15:37
популярность т1с упала не из-за ухода волшебника, а из-за того что нет там Xbase
это не самомнение - это статистика на основе счетчика майл.
просто все были в надежде что там появится такой ник, но когда поняли что там такого не будет, то перестали посещать форум
137 Terv
 
11.10.05
15:39
(134);
Колонка1 ; Колонка2 ; Колонка3 ; Колонка4;
 Знач11 ;   Знач12 ;   Знач13 ;   Знач14;
 Знач21 ;   Знач22 ;   Знач23 ;   Знач24;
 Знач31 ;   Знач32 ;   Знач33 ;   Знач34;
....;
\\таблица

проверка данных
138 Xbase
 
11.10.05
15:39
если кто-то жить порой
честно не хочет
  значит нам вести незримый бой
так навеяно судьбой
для нас с тобой


слова точно не помню
139 Волшебник
 
модератор
11.10.05
15:39
(135) Все дело в пузырьках (точке с запятой) :)

(136) Я никогда оттуда не уходил, потому что никогда не составлял костяк того форума.

Есть надежда, что после общения по e-mail с модератором Желязяка блокировка будет снята. Так что жизнь продолжается! :)
140 AlexanderAA
 
11.10.05
15:40
ИМХО, нужно всё-таки сделать принудительные теги открытия и закрытия секции кода. А то автор сообщения лишается законного права на то, чтобы сообщение выглядело так, как он задумывал, т.к. данный механизм вряд-ли будет чётко работать в 100% случаев.

Например, так (при показе сами теги игнорируются, а оформление делается):

<Код1CV8>
Процедура ПриОтправкеДанныхПодчиненному(ЭлементДанных, ОтправкаЭлемента)
    Сообщить(ЭлементДанных);
КонецПроцедуры
</Код1CV8>
141 Xbase
 
11.10.05
15:40
а так
если кто-то жить порой
     честно не хочет
  значит нам вести незримый бой
  так навеяно судьбой=1
для нас с тобой
конецесли
142 Волшебник
 
модератор
11.10.05
15:41
(141) Движок держится молодцом! :)
143 Волшебник
 
модератор
11.10.05
15:42
(140) А если надо именно показать сами теги?
144 Xbase
 
11.10.05
15:43
а так
//если кто-то жить порой
    честно не хочет
 значит нам вести незримый бой
 так навеяно судьбой=1
для нас с тобой
конецесли
145 Terv
 
11.10.05
15:43
(142) угу, только теперь в правилах должен появиться пунктик;
запрещающий ставить ";" в обычном тексте , кроме кода;

а так правило железное;
работает;
проверено;
146 Волшебник
 
модератор
11.10.05
15:44
(140) И зачем нужны теги, если и так все достаточно точно распознается? Хочется лишней работы? Вы же не оформляете ссылки в теги, они распознаются сами. Рассматривайте это как продолжение. Конечно, здесь точность будет немного ниже, потому что понятие "програмнный код" сложнее формализовать, перевести его на язык условий, циклов и регулярных выражений.
147 AlexanderAA
 
11.10.05
15:45
(140) Даже так: если принудительные теги есть, то следовать только их указаниям, в случае если их нет (автор забыл их вставить) - вот тогда этот супермеханизм и включать.
148 Груздь
 
11.10.05
15:48
(146) Надо ещё и синтаксический контроль фрагментов кода присобачить и проверку орфографии для всего остального ...
149 Сержант 1С
 
11.10.05
15:49
(148) Неосилил много букв в ветке?
150 Фокусник
 
11.10.05
15:50
(136) С восприятием русского языка что-то у тебя. Лично я из (118) понял, что "популярность Т1С упала из-за странных там порядков". И при чем здесь чье-либо самомнение?
151 AlexanderAA
 
11.10.05
15:50
(146) Алгоритм этот интересный конечно, но если Вам известно, ни в одном зенитно-ракетном комплексе, например, автоматике не доверяют всё полностью, особенно принятие решения на запуск ракет. Тут человек сам решает - Да или Нет. Поэтому предлагаю оставить возможность ручного вмешательства - для тех кто знает и хочет руками. Для остальных - автоматика.
152 Xbase
 
11.10.05
15:51
да а аакощушкосщшыфжщшмокшфыможэ;
окшжщомсжыомсшытушмтшщрщам;
щшокущыос шщтьшуцгкт мгкшга;
153 Xbase
 
11.10.05
15:52
чего то не получилось;
у меня;
154 Terv
 
11.10.05
15:51
к()
мы писали, мы писали , наши пальчики устали
а теперь мы отдохнем и опять писать начнем
а = 3;
Если отдохнули = 1 Тогда
  работать();
Иначе
  Продолжить;
КонецЕсли;
155 Волшебник
 
модератор
11.10.05
15:52
(145) Просто доработаем движок, чтобы он не придавал такое большое значение символу ";"
156 Волшебник
 
модератор
11.10.05
15:52
(152) А вот так уже не надо. Подпадает под 3.1 (вандализм).
157 Сержант 1С
 
11.10.05
15:53
(151) Вполне разумно. Поддерживаю.
158 AlexanderAA
 
11.10.05
15:54
(146) Ссылки и многострочный код на внутреннем языке несравнимы по сложности. Распознать ссылку интернет-ресурса намного легче.
159 orefkov
 
11.10.05
15:54
(51) Кстати в 44 абсолютно правильный код
(сделай синтакс-проверку)
так что действительно, все дело в ;
160 Груздь
 
11.10.05
15:59
Если ЭтоТест=1 Тогда
   ЗапуститьПриложение("http://forum.mista.ru");
КонецЕсли;
161 vvv29
 
11.10.05
15:59
а так
//если кто-то жить порой
   честно не хочет;
значит нам вести незримый бой;
так навеяно судьбой;
для нас с тобой;
конецесли;
162 Волшебник
 
модератор
11.10.05
15:59
(157) Пишем в планы.
(158) Кстати, количество строк на PHP для того и другого на этом форуме примерно одинаково.
163 Груздь
 
11.10.05
16:00
Если ЭтоТест=1 Тогда
   Офигеть();
   Неужели=НеПрокатит;
   ЗапуститьПриложение("http://forum.mista.ru");
КонецЕсли;
164 Волшебник
 
модератор
11.10.05
16:01
(161) Здесь точка с запятой все испортила. Лучше так:

Если ЖитьЧестно(Порой, КтоТо) <> Хочет Тогда
  ВестиНезримыйБой(Нам);
  ТакНавеяно(судьбой, ДляНасСТобой);
КонецЕсли;
165 oPIRATor
 
11.10.05
16:04
Если ЭтоТест = 1 Тогда
  Офигеть();
  Неужели = "НеПрокатит";
  ЗапуститьПриложение("http://forum.mista.ru");
КонецЕсли
166 vvv29
 
11.10.05
16:07
ЕСли ЭтоТест = 1 Тогда
 Офигеть();
 Неужели = "НеПрокатит";
 ЗапуститьПриложение("http://forum.mista.ru");
КонецЕсли
167 vvv29
 
11.10.05
16:08
ЕСЛи ЭТоТест = 1 Тогда
Офигеть();
Неужели = "НеПрокатит";
ЗапуститьПриложение("http://forum.mista.ru");
КОНецЕсли
168 vvv29
 
11.10.05
16:08
Нормально на большие буквы реагирует
169 Волшебник
 
модератор
11.10.05
16:10
(168) Но вес этих строк однозначно снизился. Просто движок рассматривает не только каждую строку в отдельности, но и соседние строки. Если по совокупности фрагмент (не одна строка) набрал критический вес, то он выделяется.
170 vvv29
 
11.10.05
16:16
ЕСЛИ ЭТОТЕСТ = 1 ТОГДА
ОФИГЕТЬ();
НЕУЖЕНЛИ = "НЕПРОКАТИТ";
ЗАПУСТИТЬПРИЛОЖЕНИЕ("http://forum.mista.ru");
КОНЕЦЕСЛИ;
171 Волшебник
 
модератор
11.10.05
16:18
думаю, не сработает:

еСли ЭТОТЕСТ ТОГДА ОФИГЕТЬ конечно
НЕУЖЕНЛИ "НЕ ПРОКАТИТ"
ЗАПУСТИТЬПРИЛОЖЕНИЕ http://forum.mista.ru
КОНЕЦ если
172 Волшебник
 
модератор
11.10.05
16:21
еще тест:

Для Каждого КлючИЗначение Из Отборном Цикл
// бла-бла-бла
КонецЦикла;
173 Груздь
 
11.10.05
16:29
Почему в (160) ссылка не распозналась?
174 Волшебник
 
модератор
11.10.05
16:30
(173) Она внутри кавычек. Точнее в конце ссылки нет пробела. Сравни.

www.forum.mista.ru
"www.forum.mista.ru"
175 Волшебник
 
модератор
11.10.05
16:30
облом. а так:

("http://forum.mista.ru");
176 Волшебник
 
модератор
11.10.05
16:30
177 Волшебник
 
модератор
11.10.05
16:31
178 vvv29
 
11.10.05
16:31
А интересно как ссылка распознаеться

ЕСЛи ЭТоТест = 1 Тогда
Офигеть();
Неужели = "НеПрокатит";
ЗапуститьПриложение(" http://forum.mista.ru ");
КОНецЕсли
179 Волшебник
 
модератор
11.10.05
16:31
180 vvv29
 
11.10.05
16:31
Если ЭтоТест = 1 Тогда
 Офигеть();
 Неужели = "НеПрокатит";
 ЗапуститьПриложение(" http://forum.mista.ru ");
КонецЕсли
181 Волшебник
 
модератор
11.10.05
16:32
в общем редкая комбинация символов ");
http://forum.mista.ru");
182 Волшебник
 
модератор
11.10.05
16:32
(181)+ и начальная кавычка:
"http://forum.mista.ru");
183 vvv29
 
11.10.05
16:33
184 Xbase
 
11.10.05
16:34
(0) как получается. потом список огласите пжалйста
185 Волшебник
 
модератор
11.10.05
16:35
(184) Список чего?
186 Груздь
 
11.10.05
16:48
(182) Западло!
187 Стерва-бух
 
12.10.05
17:20
интересно, а почему это здесь ничего не меняется?
188 Волшебник
 
модератор
12.10.05
17:23
(187) Может быть закешировалось на прокси?
189 qwerty
 
12.10.05
20:55
Волшебник, думаю, что если в дополнению к анализу текста добавить теги, указывающие что тут код, то плохо от этого никому не будет.
190 zgr
 
12.10.05
22:08
(0) (имхо) - сейчас по простому вопросу, по языку даже, некоторым трудно понять, помочь в синтаксисе.
А если, не будет точного воспроизведения кода, который чел хочет донести до форума, то это будет весело.
Разговор будет слепого с глухим. (имхо ещё раз).
Слепой м.б. ещё что-то поймёт, а глухой - не уверен.