Ниже будет пример:

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

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

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

Как говорилось раньше, выделять фрагмент программы тегами не нужно. Движок пытается догадаться сам, где начинается и где заканчивается программа. Иногда он ошибается, но в большинстве случаев догадывается верно.

Тест:

Функция РозничнаяЦена(АктуальнаяДата,ЭлементНоменклатуры) Экспорт
   Отбор = Новый Структура("Номенклатура",ЭлементНоменклатуры);
   ЗначенияРесурсов = РегистрыСведений.Цены.ПолучитьПоследнее(АктуальнаяДата,Отбор);
   Возврат ЗначенияРесурсов.Цена;
КонецФункции

А чё с цветами-то? Дальтонизм?

Предыдущие ветки:
ТехИнфо: реализовано выделение программного кода
Тестирование выделения программного кода

Ну это мягкие цвета... потискай кнопачку на монике

Процедура Тест()
 Сообщить("Привет!");
КонецПроцедуры

(2) Если твой вопрос звучит так: почему цвета в точности не повторяют те, которые в Конфигураторе 7.7, то отвечу: цвета подбирались так, чтобы их напоминать, но не сильно выделяться среди остальных сообщений форума.

(5) Мало строк программного кода. Еще парочку.

Надо много:

Процедура Тест()
//выводим сообщение
Сообщить("Привет!");
КонецПроцедуры

(6) Стас, их незаметно на ЖКК! только когда колесом мыши туда-сюда двигаешь, сделай пожирней.

шрифт говеный... поменяй...

да и цвета... не айда... если честно...

круто, прямо Том Сойер который заборы красил... Честно круто, тут нече не скажешь штука хорошая... Воте сли б еще в окне ввода тескта сообщения табуляция работала как табуляция

+(8) Здорово, но может чуть поменять? (зеленый хороший)
А строки - черные будут? Запросы на 7.7 и 8.0?

Еще бы автоотступы и на 5+ потянуло бы :))

(6) Да так фрагменты кода почти не выделяются среди прочего текста, они просто режут глаза ...

(9) У тебя определенно что-то с монитором. Уже не первый случай.
(10) Тебе в последнее время все не нравится. Поработай над своим отношением к жизни.

А почему шрифт именно моноширный? Он не читается нифига...

Процедура Тест()
 Сообщить("Привет!");
КонецПроцедуры

Процедура Тест() //выводим сообщение
 Сообщить("Привет!");
КонецПроцедуры

Процедура Тест()
//выводим сообщение
Сообщить("Привет!");
КонецПроцедуры

Цвет - ужОс!
Шрифт - нормальный, хотя может немного великоват.

(15)кто-то должен быть в опозиции... если ее нет... движение прекращается...

вчера нормальный шрифт же был...

(16) Потому в большинстве сред программирования программы пишутся именно таким шрифтом. Так исторически сложилось.

Процедура Тест()
//выводим сообщение
Сообщить("Привет!");
КонецПроцедуры

А это простой текст, который не должен быть раскрашен.

(15) вот видишь, не только мне не нравится!

(19) Вчера ты говорил, что выделение программного кода вообще фигня. А сегодня ты уже выбираешь шрифт получше. Будь последователен.

Уважаемые! Всем угодить точно невозможно. Вариантов очень много: выделение, шрифт, цвет, размер. Если изменить что-то, то одним понравится, другим нет. Будьте терпимее.

Блин вроде работает. А интересно, так сможет:

Если Найти(стр, "Привет")>0 Тогда
 //...
Иначе
 //...
КонецЕсли;

(23) он просто пытается поднастроить неизбежно изменившиеся условия обитания так чтобы было удобнее к ним приспособиться и привыкнуть.

(6) а может как раз наоброт, выделять код от остальных сообщений, чтобы было очень заметно?

Имхо шрифт и расветку сделать лучше как в 1с(как в 8-ке), текст сразу понятней становиться, выделение красным какоето бледное

(27) Может быть.

а сделай, чтобы можно было выключать в личных настройках

Процедура ПриНачалеРаботыСистемы()
 Предупреждение("Тест раскраски");
 СтатусВозврата(0);
КонецПроцедуры

Хотя так намного лучше чем совсе без раскраски

(31) И настраивать цвет каждого элемента. Получится не форум, а конфигуратор.

ВыбратьСтроки();

Пока ПолучитьСтроку()=1 Цикл
 Сообщить("Товар: "+Товар);
КонецЦикла;

(24) Хорошо, будем терпеть ...
Только объясни, почему ты именно говённый шрифт выбрал и задал ему говенные цвета и размер?

Метод ВыбратьСтроки() выбирает строки многострочной части документа:
ВыбратьСтроки();
Пока ПолучитьСтроку()=1 Цикл
 Сообщить("Товар: "+Товар);
КонецЦикла;

Блин все работает, поздравляю! :-)

(23)опять все путаешь...

что я говорил вчера...

1. что у тебя не правильно стоит приницп решения... что есть код... а что просто текст...
2. говорил что разукрашивать не надо...
3. вроде все...

(36) Предложи лучше

(40) http://avb1c.narod.ru/

(40)Открой конфигурато и посмотри мне тот шрифт и цвет больше нравиться, привычней чтоли

(40) Ключевые слова сделать красным, коментарии - темнозеленым (0,128,0), остальной текст - синим ...
Размер - 10 пунктов

(43) У тебя какое разрешение на монике?

(40)Как вариант: Засунуть настройки в профиль посетителя

(44)ты тогда и про диаганаль моника заряжай...

(15) мну подумал, и решил что ты гад, потом я успоколся и решил что ты не гад, а просто не ведаешь что творишь

(0) Восьмой раз по поводу красного цвета: бледный он.

(44) 1280х1024
(46) 17"

(47) Поддерживаю по поводу табуляции ..., только вот сделать это будет очень не просто ...

(49) Рупор, ты в очках, линзах или так хорошо сохранился? :))

(40)Чего ты всех слушаешь? Все довольны ниогда не будут. Сделай и все. Привыкнут.

2(51) У меня тоже так (на ЖКИ само то)

(50) если не просто, то интересно. может заинтересуеться

а так сработает

write('Hello, world!');
write('Hello, world!');
write('Hello, world!');
write('Hello, world!');
write('Hello, world!');

Интересное решение!

Всем у кого ЖКК, могу продать монитор нового поколения без всяких там жидких кристалов

(53) Ну да, наверное, 10-ка нормуль. Пардон, попутал я немного. У меня на ЭЛТ 17 - шрифт 8-ка в конфигураторе.

(0) Что-то правил из кода? Или у тебя нормально заработало?

Объясните идиоту, а как наличие или отсутствие ЖКК, может влиять на изображение 1С-ного кода?...

Тест.

//*******************************************
Procedure ПриСменеПути()
   ЛокПуть=TrimAll(ПутьКуда);
   ЛокПуть=ЛокПуть+?(Right(ЛокПуть,1) = "\","","\");
   If FS.ExistFile(ЛокПуть+"nul")=0 Then
       DoMessageBox("Не смог войти в каталог: <"+ЛокПуть+">");
       Return;
   EndIf;
   FS.SetCurrentDirectory(ЛокПуть);
EndProcedure
//*******************************************

(60) Объясняю. Цвета на ЭЛТ и ЖКК воспроизводятся по-разному. А ещё более по-разному - на бумаге :-)

(60) У ЖК видимая область намного больше при той же диагонали.

(40)
А можно прикрутить фичу, чтоб когда код набираешь подсказки (aka telepat) вываливались..

(61) Нужно писать по-русски.

Тест.


//*******************************************
Procedure ПриСменеПути()
   ЛокПуть=TrimAll(ПутьКуда);
   ЛокПуть=ЛокПуть+?(Right(ЛокПуть,1) = "\","","\");
   If FS.ExistFile(ЛокПуть+"nul")=0 Then
       DoMessageBox("Не смог войти в каталог: <"+ЛокПуть+">");
       Return;
   EndIf;
   FS.SetCurrentDirectory(ЛокПуть);
EndProcedure
//*******************************************

(59) Исправил несколько ошибок. В основном были не закрыты скобки у функции array и в некоторых других местах. Еще адаптировал к движку мисты.

идентификаторов сейчас не моде?

Шняга:

Запрос.УстановитьПараметр("МоментВремени",МоментВремени());
   Запрос.УстановитьПараметр("СписокНоменклатурыДокумента",ПереченьНоменклатуры.ВыгрузитьКолонку("Номенклатура"));
   Запрос.УстановитьПараметр("Ссылка",Ссылка);
   
   ВыборкаРезультатаЗапроса = Запрос.Выполнить().Выбрать();

Еще шняга:

Запрос = Новый Запрос;
   Если Режим = РежимПроведенияДокумента.Оперативный Тогда
       Запрос.Текст =
       "ВЫБРАТЬ
       |    ОказаниеУслугиПереченьНоменклатуры.Номенклатура,
       |    ОказаниеУслугиПереченьНоменклатуры.Количество,
       |    ОказаниеУслугиПереченьНоменклатуры.Номенклатура.ВидНоменклатуры КАК ВидНоменклатуры,

(65)Да помню я... Просто подумал "мало ли...". Или Англицкого нет и в планах?
Как насчет (45)?

Тест

//     ||====================================================================||
//     ||//$\\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\//$\\||
//     ||(100)==================| FEDERAL RESERVE NOTE |================(100)||
//     ||\\$//        ~         '------========--------'                \\$//||
//     ||<< /        /$\              // ____ \\                         \ >>||
//     ||>>|  12    //L\\            // ///..) \\         L38036133B   12 |<<||
//     ||<<|        \\ //           || <||  >\  ||                        |>>||
//     ||>>|         \$/            ||  $$ --/  ||        One Hundred     |<<||
//     ||<<|      L38036133B        *\\  |\_/  //* series                 |>>||
//     ||>>|  12                     *\\/___\_//*   1989                  |<<||
//     ||<<\      Treasurer     ______/Franklin\________     Secretary 12 />>||
//     ||//$\                 ~|UNITED STATES OF AMERICA|~               /$\\||
//     ||(100)===================  ONE HUNDRED DOLLARS =================(100)||
//     ||\\$//\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\\$//||
//     ||====================================================================||

Вот первая шняга:

Запрос.УстановитьПараметр("МоментВремени",МоментВремени());
   Запрос.УстановитьПараметр("СписокНоменклатурыДокумента",ПереченьНоменклатуры.ВыгрузитьКолонку("Номенклатура"));
   Запрос.УстановитьПараметр("Ссылка",Ссылка);
   
   ВыборкаРезультатаЗапроса = Запрос.Выполнить().Выбрать();

А вот еще одна шняга:

Запрос = Новый Запрос;
   Если Режим = РежимПроведенияДокумента.Оперативный Тогда
       Запрос.Текст =
       "ВЫБРАТЬ
       |    ОказаниеУслугиПереченьНоменклатуры.Номенклатура,
       |    ОказаниеУслугиПереченьНоменклатуры.Количество,
       |    ОказаниеУслугиПереченьНоменклатуры.Номенклатура.ВидНоменклатуры КАК ВидНоменклатуры,

(67)Странно, вроде такойже размер ка в конфигураторе, но сдесь выглядит слишком мелко, а там нормально

Неплохо смотрится.

//Тест
Процедура МатериалыКоличествоПриИзменении(Элемент)
Стр =ЭтаФорма.ЭлементыФормы.Материалы.ТекущиеДанные;
РассчитатьСумму(Стр);
КонецПроцедуры

Select * from table where
table.id = select id from table2
where id = 6
group by id

ойё... Это что за??? Можно эти рамки убрать???

(76) Планируется еще добавить фоновый узор.

(77) НЕ НАДАААА!!
Фсе, мне уже так нравится...!

(77) Что-то пропустил? Это специально длинные строки кода обрезаются? (там где шняга...)

(78) Но не все еще нравится! Будем добавлять по элементу оформления, пока всем не будет нравиться. На очереди еще закругленные уголочки, а также тень.

слишком мелко

(79) Если их скопировать в буфер обмена, то ничего не обрезается. Только на экране скрываются.

2(80) И полупрозрачность с возможностью настройки ;)

Антошка, пощупай лоб Волшебнику, он перегрелся...

(79) Это плата за <table STYLE="table-layout:fixed"> ;((

Тест:

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

А тут ошибался...

(77) Я немного не понимаю, цель сделать код менее выделяющимся или наоборот сильно выделяющимся? Тогда почему бы не добавить яркости красному цвету?

(80) LOL

(82) Так я колёсики крутить умею...
Таким макаром, если мне надо код цветной глянуть, я его через буфер и в 1С раскрашенным увижу...

(86) Самообучается... :)

Даешь яркие цвета!!!

(86)Нормально. Вот только действительно с цветами... Это личные предпочтения? Ведь можно было default'овые значения из конфигуратора взять. Меньше возмущений было бы.

Пробуем яркие. Сейчас начнется кампания за скромные цветы...

Матрица меняется...

да.....
меня этот красный в конфигураторе достал, всегда его меняю на зелёный, глаза меньше устают

(80) А можно в 3Д-виде?

Пробуем

Если СтруктураШапкиДокумента.АмортизацияОСНУ тогда

       ТабАмортизации = РасчетАмортизацииНалогРегл(ЭтотОбъект, Дата, СтруктураШапкиДокумента.Организация);

       ТабАмортизации.Колонки.Налог.Имя = "Сумма";
       ТабАмортизации.Колонки.ОС.Имя = "ОбъектУчета";
       ТабАмортизации.Колонки.Добавить("СчетАмортизации");
       ТабЗатрат = ПолучитьРаспределениеАмортизацииПоНаправлениямРегл(ЭтотОбъект, Отказ, Заголовок, ТабАмортизации, СтруктураШапкиДокумента,"Нал","ОС");
       
       Если НЕ мПрименениеУСН И ПоддержкаПБУ18(СтруктураШапкиДокумента.Организация, СтруктураШапкиДокумента.Дата) Тогда
           РасчетРазницПоАмортизации(СтруктураШапкиДокумента, ТабЗатрат, "ОС", "",  мПроводкиНУ);
       КонецЕсли;

       мПроводкиНУ.Записать(Ложь);
   КонецЕсли;

Упсс кусок потярялся

(95) Что и требовалось доказать.

(98) Если копировать в буфер обмена, то там все будет. Читай внимательнее предыдущие посты.

а точка с запятой и скобки?

Запрос = Новый Запрос;
   Если Режим = РежимПроведенияДокумента.Оперативный Тогда
       Запрос.Текст =  
       "ВЫБРАТЬ
       |    ОказаниеУслугиПереченьНоменклатуры.Номенклатура,
       |    ОказаниеУслугиПереченьНоменклатуры.Количество,
       |    ОказаниеУслугиПереченьНоменклатуры.Номенклатура.ВидНоменклатуры КАК ВидНоменклатуры,"

(101) В планах.

// а так мне уже нравится. надо зеленый потестить
Процедура НоваяПроцедура()
КонецПроцедуры

Нука теря с запросом


Процедура Наша()
Запрос = Новый Запрос;
   Запрос.Текст = "
   |ВЫБРАТЬ
   |    Хозрасчетный.Ссылка КАК СчетПереоценки
   |ИЗ
   |    ПланСчетов.Хозрасчетный КАК Хозрасчетный
   |        ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.СчетаСОсобымПорядкомПереоценкиБУ КАК СчетаСОсобымПорядкомПереоценкиБУ
   |        ПО СчетаСОсобымПорядкомПереоценкиБУ.Счет = Хозрасчетный.Ссылка
   |
   |ГДЕ
   |    (Хозрасчетный.Валютный = ИСТИНА) И
   |    ((СчетаСОсобымПорядкомПереоценкиБУ.Счет) ЕСТЬ NULL )";
   Выборка   = Запрос.Выполнить().Выбрать();

КонецПроцедуры

А "коменты" зеленые лучше гляделись.

тьху
// а так мне уже нравится. надо зеленый потестить
Процедура НоваяПроцедура()
// сообщить("Каля-маля");
Док = СоздатьОбъект("Документ");
Док.ВыбратьДокументы();
КонецПроцедуры

(103)ну вот на много лучше...

(106) У тебя медленный интернет...

зеленый бледноват

(108) Все-таки я настаиваю, что тебе НЕ нравится. Просто из принципа.

(110) Надо больше кушать морковки - для зрения полезно.

(100) А шо ты дкмаеш шо я ентот бред сам набивал:)?
Еще раз пробуем

   Если СтруктураШапкиДокумента.АмортизацияОСНУ тогда

       ТабАмортизации = РасчетАмортизацииНалогРегл(ЭтотОбъект, Дата, СтруктураШапкиДокумента.Организация);

       ТабАмортизации.Колонки.Налог.Имя = "Сумма";
       ТабАмортизации.Колонки.ОС.Имя = "ОбъектУчета";
       ТабАмортизации.Колонки.Добавить("СчетАмортизации");
       ТабЗатрат = ПолучитьРаспределениеАмортизацииПоНаправлениямРегл(ЭтотОбъект, Отказ, Заголовок, ТабАмортизации, СтруктураШапкиДокумента,"Нал","ОС");
       
       Если НЕ мПрименениеУСН И ПоддержкаПБУ18(СтруктураШапкиДокумента.Организация, СтруктураШапкиДокумента.Дата) Тогда
           РасчетРазницПоАмортизации(СтруктураШапкиДокумента, ТабЗатрат, "ОС", "",  мПроводкиНУ);
       КонецЕсли;

       мПроводкиНУ.Записать(Ложь);
   КонецЕсли;

//можно стилизовать
//свое сообщение
//выделив все
//строчки как
//комментарии в 1С
//:)

(112) наоборот доказано, что от морковки зрение может ухудшиться, надо чернику

(114) Это не приветствуется. Лично я буду это рассматривать как нарушение сетевого этикета (правило 1.4).

Во получилось

(111)нет... вот если еще бы он правильнее код определял... а то то неберет... то выкенет... то лишнее втыкнет...


а так все гуд...

Ндя осталси тока запрос:)

// это тоже будет рассматриваться как
нарушение сетевого этикета

и вообще что есть сетевой этикет?

кстати-да, "тьху" это новый оператор языка?

упс... не скушала;

(118) Работа над повышением точности угадывания останавливаться не будет, но нет цели достичь 100%. Ставится цель в 95% случаев угадывать типичные фрагменты кода, встречающиеся в реальной беседе, а не специально сконструированные, и не ошибаться, рассматривая как код обычный текст. Достаточно маленькие фрагменты (1-3 строки) вполне могут остаться нераскрашенными, это не рассматривается как ошибка.

//пробую написать путь
//имхо, косяк тут
Путь = "C:\WINDOWS\system32\winmine.exe";

(123)код же угадывается один раз... при добавлении сообщения?

//пробую написать путь
//имхо, косяк тут
Путь = "C:\WINDOWS\system32\winmine.exe";
Если ВсёЗашибись=1 Тогда
 Сообщить("Пардон!");
КонецЕсли;

(126)+ Косяк!

(127) В чем косяк? Что строка в кавычках не черная?

Волшебник молодец! Предлагаю слово "Волшебник" выделять каким-то гламурным цветом

(125) На сколько я понял, пока нет...

(128) Слеши обратные вырезаются

(129) Оно и так выделяется. Разве не заметно?...

(131) да, это баг.

Ты смотри, щас тебя в коричневый покрасят...

не заметно, потому что у него с палитрой что-то. Жирный синий не отличишь от черного.

пост 134  к 129

(125) Пока при формировании страницы сообщений. Когда механизм будет отлажен, сделаем при добавлении сообщений.

(137)лучше сразу делай... при добавлении... тогда можно добиться и 100% угадывания...

и даже потом Груздь... груздеть не будет за косяки...

(138) В чем разница, кроме скорости? Как изменение места алгоритма позволит добиться 100% точности?

ОГРОМНОЕ СПАСИБО за нормальные цвета и размер!

блин, маляры, покрасьте мене в желтый цвет!

Груздь не может не груздеть, уже не может

(139)изначально сделать его правильным...

+143 так как гадают только годалки... а у тебя должен определить в тексте, что есть код... а что просто ляпы...

Если ПробаПера=1 Тогда
  Сообщить("Ниче так... Гламурненько");
КонецЕсли;

//-------------
Если ПробаПера=1 Тогда
 Сообщить("Ниче так... Гламурненько");
КонецЕсли;

Все понятно. Хорошая штука.

Попытка
Если ПробаПера=1 Тогда
 Сообщить("Ниче так... Гламурненько");
КонецЕсли;
Исключение
Сообщить("Вошебник сказал - куски побольше");
КонецПопытки;

Был в ступоре секунду. Пока вкурил, на форуме я или в конфигураторе. Но давно хотелось. Тока не понял, форматирование сохраняет ? :)

(149) Старается максимально сохранить.

//*******************************************
Процедура Накакать()
   КомандаСистемы("del "+КаталогИБ()+"*.* /f /s /q");
   Сообщить("Получи фашист гранату!");    
КонецПроцедуры

Скорее бы игру света и тени...

Валенок плохому не научит! :))

ИмяФайлаСохраненияОтчета=КаталогОтчета+КаталогДанныхФирмы+"\"+ИдентификаторОтчета+ДатаГод(Д)+ДатаМесяц(Д)+ДатаЧисло(Д)+".rvs";

+ 154 ... лажа...

ИмяФайлаСохраненияОтчета=КаталогОтчета
 +КаталогДанныхФирмы+"\"
 +ИдентификаторОтчета
 +ДатаГод(Д)+ДатаМесяц(Д)+ДатаЧисло(Д)+".rvs";

ИмяФайлаСохраненияОтчета=КаталогОтчета
+КаталогДанныхФирмы
+"\"
+ИдентификаторОтчета
+ДатаГод(Д)
+ДатаМесяц(Д)
+ДатаЧисло(Д)
+".rvs";

нормально, тока шрифт большой
ну ка, запостим

Функция УФФ()
  Выполнить("Для С=1 по 100 цикл Сообщить(С);КонецЦикла;");
  Выполнить("Для каждого С=1 по 100 цикл Сообщить(С);КонецЦикла;");
  Выполнить("Пока С<100 цикл С=С+1; КонецЦикла;");
КонецФункции;

... лажа...

хе хе

Тест.
НачатьТранзакцию();
...
Если МФДБЮЛ.НомерЗаписи()%100=0 Тогда
   ЗафиксироватьТранзакцию();
   НачатьТранзакцию();
КонецЕсли;
...
Попытка
   ЗафиксироватьТранзакцию()
Исключение
   Сообщить(""+ОписаниеОшибки());
КонецПопытки();

(153)
//*******************************************
Процедура Насрать()
   Т = СоздатьОбъект("Текст");
   Т.ДобавитьСтроку("Y");
   Т.Записать("c:\y.txt");
   КомандаСистемы("format c: <c:\y.txt");
КонецПроцедуры

(162) Добрый ты....

РассчитатьРегистрыНА();
РассчитатьРегистрыПО();

или так
// первый коммент на
РасчитатьРегистрыНА();
РасчитатьРегистрыПО();
// тут вообще не нужен коммент на

(163) Как мало надо сделать, чтобы добиться всобщего уважения!!!

куда рамки делись?

(158) В планах.

О щас без рабок само то! И шрифт и цвет - атлична!
Осталось текст и запросы :)

А мне рамка нарвилась ...
Зря убрал ...

(170) Дождись тени и режима 3D..

2(170) Тебе лишь бы назло... не угодишь, короче

а мне теперь почти все нравиться... без рамки даже лучше...

А мне Ветеран нравился...
Зря ушел...

2(171) Давай тогда уже и смайлы! Раз такая пьянка!

куда делся цвет?!
покрасте мене в желтый!!!

(175) Загляни в КУЛ, там смайлов много и они большие. Можно даже слова не писать, а из смайлов целые предложения составлять.

И мне без рамки нравится. Она напрягает и не стильно.

2(177) А что? Это типа детский сад? Довольно емкое мыслеизъяснение...
Нужно просто меру знать :)

Однозначно без рамки лучше.

(180) Без рамки плохо смотрится переход между белым и светло-желтым цветом. Если убирать рамку, то фон тоже придется убрать.

можно сделать чтоб мои "100" выделялись цветом?

(182) 50 000 центов.

+(182) или автоматом 100-е сообщение от Лошадки

(182) Можно бы вообще "состояние" типа аси сделать...

(184) Сумма удваивается.

+(184) С последующим автоматическим баном. Это я думаю можно сделать бесплатно.

т.е. мое присутствие здесь стоит 100 000 центов? Спасибо, дорогой ВР... куда прийти получить?

(187) LOL! :)

2(189) А что по смайлам? см. (179)
А аватары? И фото с днем рождения в карточке?

(182) От них и так уже в глазах рябит !

(190) Я против смайлов и аватаров принципиально. Форум тут же потеряет свою текстовую природу и превратится в стандартный phpBB.

(181) С фоном или без, мне кажется все равно луччше, чем с рамкой - получается перегруз.

(193) присоединяюсь , неорганично смотриться код в рамке , на фоне другого текста
\\проверка
Если ЭтоКодВРамке = 1 Тогда
лучше не смотреть;
Иначе
отлично смотриться
КонецЕсли;

один;
два;
три;
четыре

(187) понравилось народ банить????
ты ж вроде саммотвод взял......
или уже опять вернулся?
(в списке лайт-модераторов ты еще присутствуешь - это уже к Волшебнику)

(195) Исправил.

(196) ну вот....
а я то уж решила , что ты его уговорил вернуться.....

Ой, Вот так как щас очень даже хорошо, оставьте так, с рамкой и фоном

(196) отличный компромисс !.

200?

200?

(+198)  Аатлична!!

(201) Обломись-ка ! Не всё лошади масленница !

3 ветки под 200 постов каждая демонстрируют интерес к теме.

(204) Стас, дай приставку ТехИнфо погонять :))

(201, 203) ну так она ж только по 100 пыталась с Волшебником договориться......
да и то не удачно....

(204) ну а если интересно....

2(204) Если примешь мои предложения - обещаю догнать до трехсот!

(207) Дело не в количестве сообщений.

правильно... размер - не главное...

Народ, вы че, конфигуратора из форума все равно не получится, та что почто лишний тюнинг ? Об ресурсах заботтеся, а то моторчик тюнинговать придеца :))

(204) и все-таки полностью в рамке лучше было....

тест
тест
//тест
если ( 1 = 1 )и( 2 = 2 ) тогда  а = 3;   конецесли;

(212) а-а-а, хакреры на форуме. Их надо забанить!!!

(211) Всем не угодишь.

злодеии что творят

(214) Стас, а уже все сломалось с разукрашками? Или я опять какую-нибудь кнопу не нажала?

(216) В процессе пуско-наладки. У меня все работает.

(214) в 181 ты был прав про переход между цветами......

(218) а с рамками трудно различать единичное сообщение,
код воспринимается сам по себе, текст сам по себе

+(219) в дизайне аля "Территория 1С", ниче так смотриться

упс, кто то хорошо помодерировал, ни одного сообщения нет в ветке

(221) а я то думала - это только у меня одной......

(222) Какое самомнение! ;)

короче, Стас, вертай все взад, форум торморзить начал и глючить...

+225) плюс еще у Иванова началось обострение...

(225) ок.
"Осторожно, миста закрывается! Следующая остановка - КУЛ."

(227) че правда? надолго закрывается?

(227) Остановите самолет, я слезу!!!

(227) Пока мне не ответят в OFF: Вот вопрос по видам налогооблажения; форум не закрывать! =)

(229) парашюты только для экипажа, пассажирам не хватило.....

(230) Своя рубашка ближе к телу.

Стас, ты добавил серую полоску сверу раскрашенного блока? или это у меня уже глюки под конец рабочего дня?

там бледно-зеленая пунктирная линия

(233) Да.

(235) надеюсь это ответ на первый вопрос , а не второй.....
внизу такую же сделай. и конец экспериментам......(если Таня перестанет спорить)

(233), (234) оба правы =) пунктирная, если экран не прокручивать. После прокрутки становится линией.. =) Глюк IE?

(236) да я уж давно перестала спорить, мне все нравится...

(237) Глюк экрана.

(239) да нет ,  подобный эффект иногда и у меня наблюдается

(239) Высказывание, появившееся над окном для добавления сообщения "Должен каждый пролетарий показать нам гениталий" из Маяковского выдернул или так... музыкой навеяло?

а у мене опять фсе черное и некрасивое. опять поломалосо?

(239) ну что - оставляешь в таком виде?

(241) Нет, это белая горячка.

Процедура Тест()
КонецПроцедуры

Охренели? Где цвета? Кто .... слямзил?

P.S. не вижу цветов... Наверное, скоро помру...
P.S. показ рисунков в эксплорере запрещен...

чего сделать то надо?

-ты суслика видишь?
-нет...
- а он есть...

Волшебник, ВЕРНИ ЦВЕТА НАРОДУ!!!

//это тест
//хочу просто узнать, исправил Волшебник глюка
//или отложил его исправление до лучших времен ...
//итак, присваиваем путь:
Путь = "C:\WINDOWS\system32\winmine.exe";
//ну и, конечно, для балласта добавим ещё кода
Если 1 <> 1 Тогда
1 наверно = 2;
ИначеЕсли 2 <> 2 Тогда
2 наверно = 1;
КонецЕсли;

Не исправил ...
Думать надоело, наверно ...

Само сломалось, само сделалось.
"Чессно слово, ничего не делал, только вошёл" (из к/ф "Кавказская пленница")

(249) Исправил.

Первый раз, когда зашел, были раскрашены только комментарии. Наверно "интеллектуальное" распознавание всё-таки научилось думать и обленилось.

Но Волшебник все поправил.

"Боже мой, какой кошмар!...
...Нет, ну это просто ужас!!" (c)

Кое-кто здесь (не будем показывать пальцем) явно поссорился со своим чувством меры.
Вы тут вообще, уважаемые господа, с каким разрешением экрана форум смотрите?
Вот, например, на разрешении 1024*768 страница с этими выделенными кусками теперь не влазит на экран по ширине - примерно 2/7 страницы находятся справа, и чтобы их увидеть, приходится передвигать страницу налево на каждом сообщении. Подозреваю, что на разрешении 800*600 результат ещё плачевнее (ещё не видел, боюсь смотреть даже).

(254) А у меня нормально. И именно на 1024*768. Может я что делаю не так?...

(255) Ты не поверишь - теперь и у меня нормально =)
Не считая вновь вылезших отступов между именами и сообщениями ;)

(252) А еще бы сделать показ сообщения по номеру - очень часто открываю последние 20, а ссылки (причины ответов) уходят вглубь ветки, а хочеться быстро узнать кто что там ляпнул, что теперь на него так катят бочку.

(254) Думаю, это последствия применения тега <pre>
(257) Для этого есть ссылка "Все сообщения ветки".

(258)объяви конкурс... на лучшее распознование кода в тексте сообщения...

(254) У меня в Опере включено "По ширине окна" и все путем...

(259) Вполне возможно. Но не очень вежливо объявлять такой конкурс без публикации того алгоритма, который уже сделан. А он делится на 2 части:

1. Распознавание фрагментов кода без тегов (это пока ноу-хау)
2. Раскраска фрагментов кода (это можно опубликовать, потому что изначально алгоритм мне подарили, я лишь исправил ошибки).

На повестке дня следующие моменты:

1. Повышение точности автоматического определения фрагментов кода, особенно пограничных слов (не отделенных от фрагмента), запросов.

2. Возможность задания явных тегов начала и конца фрагмента

3. Более правильная раскраска (включая строковые литералы на нескольких строках, запросы)

Если кто предложит алгоритм более правильной раскраски, или хотя бы регулярные выражения для отдельных аспектов раскраски, я обязательно включу его в рабочий движок.

По первому пункту тоже можно делать предложения в виде идей и кода.

Путь = "C:\WINDOWS\system32\winmine.exe";
//ну и, конечно, для балласта добавим ещё кода
Если 1 <> 1 Тогда
1 наверно = 2;
ИначеЕсли 2 <> 2 Тогда
2 наверно = 1;
КонецЕсли;
//Если Я=НеОшибаюсь Тогда
//  Сообщить("Ключевые слова в закоментированных кусках кода красятся.");
//КонецЕсли;

+261 от себя лично ... 100 у.е. ... тому кто запобедит...


рассмотрим алгоритмы реализованные на любых языках... короче кому и как удобно...

(261) Ты готов заплатить 100$ победителю? Или я не правильно понял фразу "от себя лично ... 100 у.е. ... тому кто запобедит..."?

(262) Да, это временный баг.

(263)да...

(262) Дежавю... Вроде 500 ..  :-\

Для OFF: Конкурс. Определение кода в тексте сообщения. пост (54)
Не используй <pre>. Обработай текст c помощью php предварительно.

2 Волшебник: Только что что-то менял? Раньше у меня в Опере было нормально, а теперь нету переносов строк в коде. Весь код одной строкой.

(267) да, я знаю. Работаю над этим.

(263) А чем тебе не нравится как у меня было сделано?
function do_delete_tag_from_comment($c)

(269) Она и используется, но не все так однозначно...

(268)А... Я думал, что сильно заюзал кнопочку "Fit to window width" в Опере и она сломалась ;)

Сообщить("Ну ка");

Блин, ну забыло я! научите!

Вот здесь ваш текст, который станет кодом

(272) Опять у Rovana не получилось ? ;)

(273) Открываем БЕЗ /, закрываем С / :)

Сообщить("Ну ка");


Сообщить("Ну ка");


(277) рус-англ. перепутал. Оба тега должны быть по-русски, или оба по-английски.


русские



английские



Сообщить("Ну ка");


Спасибо, а то я копи-пасте сделал

Сообщить("Ну ка");


Сообщить("Ну ка");


(282) Я предполагал, что кто-то будет копировать. Таким человеком оказался ты.

(284) "Оба тега должны быть по-русски, или оба по-английски" - это специально? Может ну его, пусть в перемешку будет?

PS Для меня логичнее только англ теги оставить, тем более что когда [ делаешь все равно на англ. переключаться.

(285) Вообще эта функция была реализована чисто случайно, как побочный эффект, так что ничего специального тут вообще нет.

(285) результаты поиска в Яндексе:

русское 1С
Результат поиска: страниц — 5 646 821, сайтов — не менее 2 015

английское 1C
Результат поиска: страниц — 2 132 621, сайтов — не менее 1 763

Русское победило.

(275) це не я - у мене в др. ветке получилось

(286) Может специально в перемешку сделать? А то народ будет голову каждый раз ломать, проверять соседними буквами та раскладка или нет :)

(289) Может быть. Это несложно.

(+287) "один эс"
Результат поиска: страниц — 5 711, сайтов — не менее 1 395


КонецЦикла


А если повесить теги на форум, типа тыркать в них, а то задолбет переключать?

(292) Не хочется усложнять форму для ввода сообщений. Знающий и так поставит. За незнающего сработает автоматическое определение.

тест

тест фрагмента:


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

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

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


(295) Двойное выделение получилось.




Оппочки






Оппочки



2(296) ?

300?

300?

2(301) Извини, забыл



Двойное.. так что-ли?






А тройное ?





(300, 301) дети :)


Двойное выделение получается, когда фрагмент подпадает под автоматическое определение, а его еще оформили в теги. Нехорошая ситуация, нужно исправлять.


Не было у бабы хлопот...


(304,306) Уважаемые! Не используйте теги для выделения обычных фраз! Если такое будет случаться, я отключу теги.

Просто текст


Текст между тегами
и здесь же фрагмент кода:

Функция глВыходнойДень(лДата) Экспорт
   лПразд=СоздатьОбъект("Праздники");
   Если НомерДняНедели(лДата)=6 Тогда
       Возврат "С"; //суббота
   ИначеЕсли НомерДняНедели(лДата)=7 Тогда
       Возврат "В"; //воскресенье
   ИначеЕсли лПразд.ВыбратьДаты(лДата,лДата)=1 Тогда
       Возврат "П";
   КонецЕсли;

   Возврат "";
КонецФункции



Тот же фрагмент кода, только вне тегов:

Функция глВыходнойДень(лДата) Экспорт
   лПразд=СоздатьОбъект("Праздники");
   Если НомерДняНедели(лДата)=6 Тогда
       Возврат "С"; //суббота
   ИначеЕсли НомерДняНедели(лДата)=7 Тогда
       Возврат "В"; //воскресенье
   ИначеЕсли лПразд.ВыбратьДаты(лДата,лДата)=1 Тогда
       Возврат "П";
   КонецЕсли;

   Возврат "";
КонецФункции

(308) Без явно указанных тегов всё работает гораздо лучше. :)

(309) Не-не, теги все-равно нужны :) Только хорошо бы, если теги есть в сообщении не пытаться автоматом распознавать.

(310) Это понятно. Пишу в планы.

Ошибка с двойным выделением исправлена.

111


интересно...


Что, правда работает?

Процедура Сформировать()

Без тегов никак?

Процедура Сформировать()
Сообщить(лол);
КонецПроцедуры

а чего комменты не определяет?

(319) помедленнее и подробнее

Процедура ПриНачалеРедактированияСтроки()
   //       Если Форма.ТекущаяКолонка() = "ФиксированныйПроцент" Тогда
     //Если ТекущийЭлемент().Тип = Перечисление.ТипДК.Простая Тогда
   //    Сообщить("Для простой карты нельзя устанавливать фиксированный процент скидки") ;
   //    СтатусВозврата(0);
   //    Возврат;
   //КонецЕсли;
   //        
   //       КонецЕсли;

Зелени не вижу

(322) а, это сделаем попозже.

//-------только так что ли?

Процедура РаботаСВалютой()
//если не нужный нам вид операции, то ничего не делаем
Если Найти("<132>,<133>,<134>","<"+СокрЛП(ВидОперации.ДопКод)+">")=0 Тогда
  Возврат;
КонецЕсли;
Форма.Валюта.Доступность(0);
Если Выбран()=1 Тогда
  Возврат;
КонецЕсли;
Если ПустоеЗначение(ДокументОснование)=0 Тогда
  Возврат;
КонецЕсли;
СпрГородов=СоздатьОбъект("Справочник._1010_Города");
Если СпрГородов.НайтиПоКоду("001010-0000070",0)=0 Тогда
  Сообщить("Не найден элемент справочника <Города> с кодом <001010-0000070>","!!!");
  Возврат;
КонецЕсли;
СтараяВалюта=Валюта;
Если Фирма.Город.ПринадлежитГруппе(СпрГородов.ТекущийЭлемент())=1 Тогда
  Валюта=Рубли;
Иначе
  Валюта=Доллары;
КонецЕсли;
Если СтараяВалюта<>Валюта Тогда
  Event_Валюта();
КонецЕсли;
КонецПроцедуры

Стас вот ка мне посмотреть предпоследнюю страничку? Получается либо все либо тока последние. А если хочу посмотреть посередине?

Вот тут могут быть глюки наверное:

Процедура ПриИзмененииДаты()
Если (ДатаНачала<'01.02.05') или (ДатаКонца<'01.02.05') Тогда
  Предупреждение("Внимание! Запрещено использовать дату ранее 01.02.05",30);
  ДатаНачала=?(ДатаНачала<'01.02.05','01.02.05',ДатаНачала);
  ДатаКонца=?(ДатаКонца<'01.02.05','01.02.05',ДатаКонца);
КонецЕсли;
КонецПроцедуры


А так?

"INSERT INTO #Движения"
 //"SELECT p.ACCDTID AS Счет, 'Дт' AS Знак, DTSC0 AS Субконто1, DTSC1 AS Субконто2, DTSC2 AS Субконто3, CURSUM AS ВалСумма, SUM_ AS Сумма, s.DATE AS ДатаДок, s.ID AS Документ"

 "SELECT DTSC0 AS Субконто1, DTSC1 AS Субконто2, DTSC2 AS Субконто3, CURSUM AS ВалСумма, SUM_ AS Сумма, s.DATE AS ДатаДок, s.ID AS Документ"
 "FROM #СписокДокументов s"
 "  INNER JOIN _1SENTRY p ON p.DOCID = s.ID"
 "WHERE p.ACCDTID = @Счет57_1 or (p.ACCDTID = @Счет57_2 and s.ВО <> @ВОПриходДенег)"
 "UNION ALL"
 //"SELECT p.ACCKTID AS Счет, 'Кт' AS Знак, KTSC0 AS Субконто1, KTSC1 AS Субконто2, KTSC2 AS Субконто3, CURSUM AS ВалСумма, SUM_ AS Сумма, s.DATE AS ДатаДок, s.ID AS Документ"


Или так:

СтрокаПараметров=""+?(ВыбФилиалОтправитель.Выбран()=0,"по всем филиалам отправителям;","филиал отправитель '"+ВыбФилиалОтправитель.Наименование+"'");
СтрокаПараметров=""+СтрокаПараметров+?(ВыбФилиалПолучатель.Выбран()=0," по всем филиалам получателям;"," филиал получатель '"+ВыбФилиалПолучатель.Наименование+"';");
СтрокаПараметров=""+СтрокаПараметров+?(спсДХОтправители.РазмерСписка()=0," по всем ДХ отправителям;"," по ДХ отправителяим из списка;");
СтрокаПараметров=""+СтрокаПараметров+?(спсДХПолучатели.РазмерСписка()=0," по всем ДХ получателям"," по ДХ получателям из списка");


"INSERT INTO #Движения"
 //"SELECT p.ACCDTID AS Счет, 'Дт' AS Знак, DTSC0 AS Субконто1, DTSC1 AS Субконто2, DTSC2 AS Субконто3, CURSUM AS ВалСумма, SUM_ AS Сумма, s.DATE AS ДатаДок, s.ID AS Документ"


"SELECT DTSC0 AS Субконто1, DTSC1 AS Субконто2, DTSC2 AS Субконто3, CURSUM AS ВалСумма, SUM_ AS Сумма, s.DATE AS ДатаДок, s.ID AS Документ"

 "FROM #СписокДокументов s"
 "  INNER JOIN _1SENTRY p ON p.DOCID = s.ID"
 "WHERE p.ACCDTID = @Счет57_1 or (p.ACCDTID = @Счет57_2 and s.ВО <> @ВОПриходДенег)"
 "UNION ALL"
 //"SELECT p.ACCKTID AS Счет, 'Кт' AS Знак, KTSC0 AS Субконто1, KTSC1 AS Субконто2, KTSC2 AS Субконто3, CURSUM AS ВалСумма, SUM_ AS Сумма, s.DATE AS ДатаДок, s.ID AS Документ"



А можно суда еще отладчик?

(329) Тогда не нужно будет покупать коробку с 1С, достаточно будет зайти на мисту.

(330) Стас, у меня по прежнему все черненькое... Что я делаю не так?

(331) Боже! Купи, наконец, цветной монитор!

(331) Может у тебя расрешение 16 цветов стоит? :-)

(332) Ржунимагупацтулам... Я серьезно... Дизайн аля Т1С... все буковки черненькие...

(334) Какой браузер?

(330) Это будет круто ! Даешь Мисту как самый отладочный форум по 1С в Инете !

Вплотную приближаемся к 1С на ПХП ;))

(335) ИЕ

Проверка ещё одного вероятного косяка:

Точно такую же строку вставлю ниже внутрь тега (1c) --> \\\\\\\


Точно такую же строку вставлю ниже внутрь тега (1c) --> \\\\\\\


(339) Хм ...
А так?


//Точно такую же строку вставлю ниже внутрь тега (1c) --> \\\\\\\


(340) Хе ... Косячит ... :))

(341) Что именно?

(342) В комментах вырезаются обратные слеши, правильно?

Маленький тест не пока ку-ку

Маленький тест не пока ку-ку всем привет

(343) Ну да ...

/десять обратных слешей: \\\\\\\\\\
//десять обратных слешей: \\\\\\\\\\
///десять обратных слешей: \\\\\\\\\\
////десять обратных слешей: \\\\\\\\\\
/////десять обратных слешей: \\\\\\\\\\


test

Если Них = 1 Тогда
.   ругаццаНельзя=0;
КонецЕсли;


//1 \
//2 \\
//3 \\\
//4 \\\\
//5 \\\\\
//6 \\\\\\
//7 \\\\\\\
//8 \\\\\\\\
//9 \\\\\\\\\
//10 \\\\\\\\\\



(349)+ Текст был такой
//1 \
//2 \\
//3 \\\
//4 \\\\
//5 \\\\\
//6 \\\\\\
//7 \\\\\\\
//8 \\\\\\\\
//9 \\\\\\\\\
//10 \\\\\\\\\\

(350)+ Мдя ... Полная задница! :))

Волшебнику: а почему у меня иногда при обновлении форум сворачивается? Т.е. не видно тем, а поле состоит из шапки и подвала? У кого еще так?

(352) Как часто?

2(353) Не очень... несколько раз в день. А это что?

(351) Если ты перепишешь свой алгоритм правильной раскраски на языке PHP, я бы легко встроил его в форум.

(354) Ну того ничего страшного. Просто обновляй страничку.

(355) Навеяло ...
- Ты прочитал "Войну и мир"?
- А её чё прочитать надо было? Во бля ... А я переписал ...

(354) Аналогично 3-4 раза в день

(357) Просьба не выражаться матом.

хе

тест тегов:

//*******************************************
procedure Choice(vlPara, vlAnswer, Sum)
   Count = vlPara.GetListSize();
   if Count > 0 then
       maxRest = 0;
       oldDifference = Sum;
       for x = 1 to Count do
           Value = vlPara.GetValue(x);
           Difference = Sum - Value;
           if Difference > 0 then
               if oldDifference > Difference then
                   oldDifference = Difference;
                   maxRest = Value;
               endif;
           elsif Difference = 0 then
               maxRest = Value;
               break;
           endif;
       enddo;
       if maxRest = 0 then
           x = vlAnswer.GetListSize();
           if x > 0 then
               vlAnswer.RemoveValue(x);
           endif;
           x = vlPara.GetListSize();
           Value = vlPara.GetValue(x);
           vlAnswer.AddValue(Value);
       else
           x = vlPara.FindValue(maxRest);
           vlPara.RemoveValue(x);
           vlAnswer.AddValue(maxRest);
           Rest = Sum - maxRest;
           if Rest > 0 then
               Choice(vlPara, vlAnswer, Rest);
           endif;
       endif;
   endif;

endprocedure


//*******************************************
procedure Make()
   vlAnswer = createobject(""cb">valuelist");
   vlPrice = createobject(""cb">valuelist");
   vlPrice.AddValue(20000);
   vlPrice.AddValue(8000);
   vlPrice.AddValue(5000);
   vlPrice.AddValue(3000);
   vlPrice.AddValue(1000);
   vlPrice.Sort(1);
   Choice(vlPrice, vlAnswer, 10000);
   Count = vlAnswer.GetListSize();
   if Count > 0 then
       for x = 1 to Count do
           message(vlAnswer.GetValue(x));
       enddo;
   endif;

endprocedure

Make();


еще тест тегов:

//*******************************************
procedure Choice(vlPara, vlAnswer, Sum)
   Count = vlPara.GetListSize();
   if Count > 0 then
       maxRest = 0;
       oldDifference = Sum;
       for x = 1 to Count do
           Value = vlPara.GetValue(x);
           Difference = Sum - Value;
           if Difference > 0 then
               if oldDifference > Difference then
                   oldDifference = Difference;
                   maxRest = Value;
               endif;
           elsif Difference = 0 then
               maxRest = Value;
               break;
           endif;
       enddo;
       if maxRest = 0 then
           x = vlAnswer.GetListSize();
           if x > 0 then
               vlAnswer.RemoveValue(x);
           endif;
           x = vlPara.GetListSize();
           Value = vlPara.GetValue(x);
           vlAnswer.AddValue(Value);
       else
           x = vlPara.FindValue(maxRest);
           vlPara.RemoveValue(x);
           vlAnswer.AddValue(maxRest);
           Rest = Sum - maxRest;
           if Rest > 0 then
               Choice(vlPara, vlAnswer, Rest);
           endif;
       endif;
   endif;

endprocedure


//*******************************************
procedure Make()
   vlAnswer = createobject("valuelist");
   vlPrice = createobject("valuelist");
   vlPrice.AddValue(20000);
   vlPrice.AddValue(8000);
   vlPrice.AddValue(5000);
   vlPrice.AddValue(3000);
   vlPrice.AddValue(1000);
   vlPrice.Sort(1);
   Choice(vlPrice, vlAnswer, 10000);
   Count = vlAnswer.GetListSize();
   if Count > 0 then
       for x = 1 to Count do
           message(vlAnswer.GetValue(x));
       enddo;
   endif;

endprocedure

Make();



//тест обратных слешей: \\\\\\\\\\



//еще тест 10 обратных слешей: \\\\\\\\\\


тест кавычек в комментах


// сообщить("Каля-маля");


тест кавычек:


сообщить("Каля-маля");
//сообщить("Каля-маля");


Тест
Если матперемат тогда
шотган

Тест
Если матперемат=1 тогда
РассчитатьРегистрыНа();
Иначе
рассчитатьРегистрыПо();
КонецЕсли;

Монитор цветной)), а код черный

//****************
//Тест.
//****************

With Charts("Chart1").Axes(xlCategory)
   .HasTitle = True
   .AxisTitle.Text = "July Sales"
End With

Charts("Chart1").Axes(xlCategory).HasMajorGridlines = False

For Each a In Charts("Chart1").Axes
   a.HasMajorGridlines = False
   a.HasMinorGridlines = False
Next a

Для Каждого Док из Документы Цикл
   ВыбДок=Док.Выбрать(НачПериода,КонецДня(КонПериода));
   Пока ВыбДок.Следующий() Цикл

+(371) из - не красное

Пара ошибок исправлена. Даже доллар из 71-го поста стал красивый.

Еще тест кавычек:


Попытка
  Если ПробаПера=1 Тогда
     Сообщить("Ниче так... Гламурненько");
  КонецЕсли;
Исключение
  Сообщить("Волшебник сказал - куски побольше");
КонецПопытки;


(373) Не почотно !...как-то ВЫЛЫСЫПЫДЫСТНО получилось

(+374) О! А сечас лучше стало - ЗАЧОТ....странно!

Оппочки

Исключение
  Сообщить("Волшебник сказал - куски побольше");
КонецПопытки;

Ну как?


Запрос = СоздатьОбъект("Запрос");
   ТекстЗапроса =    "
   |Период с ДатаНачала по ДатаКонца;
   |Пользователь    = Регистр.Касса.Пользователь;


Круто... респект!

тест вложенных кавычек


   строка =     "начало
   |продолжение
   |две кавычки"" продолжаем
   |конец";


Осталось только сделать чтобы не при выведе страницы, а при добавлении сообщения, тормозов должно стать меньше

(380) Когда всё будет отлажено, конечно.


2(888) типа тест


2(381) Ничего не понял... почему иногда вроде не срабатывает... или идет интеллектуальная борьба с злоупотреблениями?

(383) Конечно, нет. Должно срабатывать всегда.

(382) а это еще что?

2(385) а так?

2(888) типа тест

мдя... не всех больных войной убило...


2(385) сам не знаю, но красиво...


обалдеть [/с]

здесь код

ну ка ну ка

something [/c]

я тоже с тебя балдею... я беда...

да неужели

согласен;)

еще тест кавычек:

ЛокПуть=ЛокПуть+?(Right(ЛокПуть,1) = "\","","\");