Создание кода 1С из буфера обмена
// Создает код 1С на основе содержимого буфера обмена
МБуфер = Слова.Массив(Буфер.Текст); // массив слов из буфера обмена
МТекст = Слова.Массив(); // новый массив слов
// 1.Если в буфере обмена в буфере находятся строки с имена колонок из отладчика,
// то формируем код 1С вида ТЗ.Колонки.Добавить("Имя");
Если (МБуфер.Количество()>14) Тогда
Если (МБуфер.Найти("Индекс")=0) Тогда
Если (МБуфер.Найти("Имя")=8) Тогда
Если (МБуфер.Найти("Ширина")=14) Тогда
Если (МБуфер.Получить(МБуфер.Количество()-1)<>Слова.Перенос) Тогда
МБуфер.Добавить(Слова.Перенос); // иногда в конце нет переноса
Конец;
п = 15 + 8;
к = п;
Пока (к<МБуфер.Количество()) Цикл
Если (МБуфер.Получить(к)=Слова.Перенос) Тогда
// Сообщить(Текст.Получить(п));
МТекст.Добавить("ТЗ.Колонки.Добавить(");
МТекст.Добавить(МБуфер.Получить(п-1));
МТекст.Добавить(МБуфер.Получить(п));
МТекст.Добавить(МБуфер.Получить(п+1));
МТекст.Добавить(");");
МТекст.Добавить(Слова.Перенос);
п = к + 8;
Конец;
к = к + 1;
Конец;
Конец;
Конец;
Конец;
Конец;
Если (МТекст.Количество()>0) Тогда
Текст = Слова.Строка(МТекст, 1);
// Для Строка Из Текст Цикл
// Сообщить(Строка);
// Конец;
Буфер.Текст = Текст;
Сообщить("Код 1С сформирован и сохранен в буфере обмена");
Конец;