Классическое упражнение по программированию.
Прежде чем смотреть решение, попробуйте написать сами, проверьте свой уровень.
Мне понадобилось 20 минут, чтобы набросать костяк и еще 10 минут, чтобы добиться точного соответствия.
Результат с исходным кодом сравнивал с помощью сравнения файлов. Тексты действительно идентичны.
Можно, конечно, попробовать вариант с оператором «Выполнить», но и так неплохо.
Суть решения понятна.
Код = "
|Для Инд = 1 По 2 Цикл
|Если Инд = 2 Тогда
|Сообщить(Код);
|Иначе
|Р = ""Код = """""";
|Для ИндС = 1 По СтрДлина(Код) Цикл
|Символ = Сред(Код, ИндС, 1);
|Если Символ = Символы.ПС Тогда
|Р = Р + Символы.ПС + ""|"";
|ИначеЕсли Символ = """""""" Тогда
|Р = Р + """""""""""";
|Иначе
|Р = Р + Символ;
|КонецЕсли;
|
|КонецЦикла;
|Р = Р + """""";"";
|Сообщить(Р);
|КонецЕсли;
|КонецЦикла;";
Для Инд = 1 По 2 Цикл
Если Инд = 2 Тогда
Сообщить(Код);
Иначе
Р = "Код = """;
Для ИндС = 1 По СтрДлина(Код) Цикл
Символ = Сред(Код, ИндС, 1);
Если Символ = Символы.ПС Тогда
Р = Р + Символы.ПС + "|";
ИначеЕсли Символ = """" Тогда
Р = Р + """""";
Иначе
Р = Р + Символ;
КонецЕсли;
КонецЦикла;
Р = Р + """;";
Сообщить(Р);
КонецЕсли;
КонецЦикла;
Идея написать такую программу возникла у меня, когда я прочитал про сборник программ «Hello World» на разных языках программирования, в том числе и на 1с.
А вы за сколько написали такую программу?
Может есть варианты покороче (кроме Выполнить — неспортивно), хотя для коллекции можете написать и с Выполнить — включу в статью.
По здравому размышлению я подумал, что первый цикл в моем коде лишний. А второй цикл можно заменить на функцию «СтрЗаменить«.
Путем оптимизации у меня получилась вот такая программка в две строчки:
Код = "Сообщить(""Код = """""" + СтрЗаменить(Код, """""""", """""""""""") + """""";""); Сообщить(Код);";
Сообщить("Код = """ + СтрЗаменить(Код, """", """""") + """;"); Сообщить(Код);
Related Posts
Получение логина и пароля техподдержки 1С из базы
Класс для вывода отчета в Excel
Счет-фактура для УПП
Библиотека классов для создания внешней компоненты 1С на C#- Акт об оказании услуг (со скидками) — внешняя печатная форма для Управление торговлей 11.1.10.86
Прайс-лист с артикулом в отдельной колонке
Не могу понять, это гениально или бесполезно?
(1) kolubo, Это бесполезно, а вот программа печатающая код другой программы — это гениально. Подобные программы называются декомпиляторами.
(1) это занимательно…
Эта задача и решение здесь уже было .
приведен вариант решения, с использованием 90 символов
Длина Вашего решения в два раза больше.
На хабре относительно недавно была статья об общем подходе к решению этой задачи (независимого от языка).
(4) блин, не нашел ее поиском. 😉
однако у меня можно и почитать, а не только качать.
на усмотрение редакции… или пусть удаляют или пусть оставляют.
таки решение все же другое.
Таки интересно 🙂
Плюс однозначно. На заметку начинающим (и не очень) программистам
Оно подходит всем конфигурациям 1С?
Непонятно как ее можно применить? Как с ним пользоваться? Чем его открывать (конфигуратором или 1С)? Как с ним пользоваться?
(8)(9) она для программистов, у них таких вопросов не возникает.