- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
Функция ВыделитьАртикул(А) Экспорт
Перем СтрВспом, Инд;
Инд = 1;
СтрВспом = "";
Пока Инд <= СтрДлина(А) Цикл
Если (Сред(А,Инд,1)="0") ИЛИ (Сред(А,Инд,1)="1") ИЛИ
(Сред(А,Инд,1)="2") ИЛИ (Сред(А,Инд,1)="3") ИЛИ
(Сред(А,Инд,1)="4") ИЛИ (Сред(А,Инд,1)="5") ИЛИ
(Сред(А,Инд,1)="6") ИЛИ (Сред(А,Инд,1)="7") ИЛИ
(Сред(А,Инд,1)="8") ИЛИ (Сред(А,Инд,1)="9") ИЛИ
(Сред(А,Инд,1)="/") ИЛИ (Сред(А,Инд,1)="-") Тогда
СтрВспом = СтрВспом + Сред(А, Инд, 1);
Инд = Инд + 1;
Иначе
Прервать;
КонецЕсли;
КонецЦикла;
Возврат СтрВспом;
КонецФункции
Нашел у клиента, когда рефакорил код конфы. Страшно подумать, если придется выделять еще с десяток символов...
Follow us!
стрёмно вспоминать
> Сред
среднего
> Инд
индуса
Мне в этом языке не нравится его говняность, непоследовательность и тотальная унылость. Немного сахару в нём бы не помешало.
Это всё случается, когда язык проектируют непрофессионалы.
илита
!!!
Кстати, я жалею, что у меня нет педалей для шифта, контрола и альта. Было бы очень удобно.
Именно для десятипальцевого набора Ctrl, Alt, Shift находятся по обоим сторонам клавиатуры. С педалью много времени уходило бы на синхронизацию :)
v$ - выделить текст с текущей позиции в текущей строке до конца строки
vw - выделить текст до конца текущего/следующего слова
v5w - выделить пять следующих слов
Хотя выделение с vim нужно довольно редко...
другое дело, если нужно переместить, а буфер обмена терять не хочется
Клавиатура скрывается под одной рукой.
просто большой и мизинец под ладонь надо сгибать :)
Но emacs - сильно на любителя, и, обычно, с самого начала вызывает много негативыных эмоций :)
К vim'у нужно привыкать пару месяцев, но он очень эргономичен и позволяет писать текст экстремально быстро. А уж после пары лет практики пальцы сами работают, даже не задумываешься над командами.
Я бы не перешёл на emacs, если бы не огромное количество плагинов. Elisp - главное преимущество emacs'а. К примеру, постоянно пользуюсь org-mode, у vim'а подобных вещей, наверное, никогда не будет (если не считать vim outliner, но он по сравнению с org-mode - унылая поделка).
Ни малейшего юзабилити нет.
Хотя, если мне не отшибает память, пятый борланд цпп билдер вышел примерно в это время и там уже было автодополнение и клёвые фишки.
Думаю, это просто унылый русский высер, совершенно неюзабельный. А что мартышки его освоили - так это они от недостатка годных систем продолжают жрать кактус.
правда - на плечах энтузиастов.
openconf + telepat + colorer + ... , и скрипты в объектной(!) модели(!) конфигуратора(!!!) пишутся на js/vbs самостоятельно для чего угодно и какие угодно. :))
Для своих задач это говно. Просто говно уже привычное, только и всего. И провоцирует кодерков на обезьянокод.
У меня на нетбуке:
Fn+8=8
Fn+(=9
Fn+ш=6
Fn+д=2
В этом есть какая то логика...
Пикча рядом постулирует такую раскладку: http://upload.wikimedia.org/wikipedia/commons/9/9f/APL-keybd2.svg
Не Вы ли постили тогда ссылку на раскладку для 1С, предлагаемую за донат?
http://govnokod.ru/3617#comment36994
Disclaimer: Я её НЕ КОЧАЛ и без понятия, что внутри. Официальное дистро говорит, что там ВИРУС.
Процедурка выглядит примерно так:
Функция ПроверитьАртикул(Артикул)
СтрокаПоиска = "0123456789-/";
Для Инд = 1 по СтрДлина(Артикул) Цикл
ТекСимв = Сред(Артикул, Инд ,1);
Если Найти(СтрокаПоиска, ТекСимв) = 0 Тогда
Возврат Ложь;
КонецЕсли;
КонецЦикла;
Возврат Истина;
КонецФункции
*ладн*
Интересно, константа всегда вычисляется до цикла или на каждой итерации?