Замена кавычек в 1С: от простых методов до автоматизации

Работа с текстовыми данными в 1С:Предприятие часто требует манипуляций с кавычками — будь то оформление строковых литералов в коде, экспорт данных в форматы с особыми требованиями к экранированию или исправление ошибок при обмене данными. Одиночные (' '), двойные (" ") и «ёлочки» (« ») могут стать источником проблем, если их некорректно обработать. В этой статье разберём, как заменить кавычки в 1С разными способами — от ручного редактирования до написания универсальных функций на встроенном языке.

Особенность задачи в том, что подход зависит от контекста: нужно ли вам заменить кавычки в коде модуля, в данных справочника, при экспорте в XML/JSON или при загрузке из внешнего файла. Мы рассмотрим все сценарии с примерами, предупреждениями о типичных ошибках и рекомендациями по оптимизации. Для начинающих программистов 1С статья станет практическим руководством, а опытные разработчики найдут здесь редкие приёмы, например, работу с непечатаемыми символами или массовую замену в больших базах.

1. Зачем может понадобиться замена кавычек в 1С?

На первый взгляд, замена кавычки на кавычку кажется бессмысленной. Однако в практике 1С это востребовано в нескольких случаях:

• 📜 Экспорт/импорт данных: Форматы JSON, XML или CSV требуют строгого экранирования кавычек. Например, в JSON внутренние двойные кавычки должны заменяться на \".
• 💻 Оформление кода: При переносе фрагментов кода между конфигурациями или при генерации динамических запросов часто приходится заменять одинарные кавычки на двойные (и наоборот) для корректной работы Выполнить().
• 🔄 Обмен данными: При интеграции с внешними системами (например, Битрикс24, МойСклад) кавычки в полях могут конфликтовать с форматами API.
• 📄 Печатные формы: В шаблонах СКД или ТекстовыйДокумент кавычки могут искажать вывод, если их не заменить на HTML-сущности (например, ").

Кроме того, в унаследованных базах иногда встречаются «грязные» данные с нестандартными кавычками (например, „ “ или «»), которые мешают обработке. Их тоже приходится приводить к единому формату.

2. Ручная замена кавычек: когда и как применять

Если речь идёт о разовом исправлении в небольшом объёме данных, проще всего обойтись ручными методами. Это актуально для:

• 📝 Исправления опечаток в справочниках или документах (например, в наименованиях товаров).
• 📋 Редактирования печатных форм, где кавычки мешают корректному отображению.
• 🔧 Быстрого тестирования запросов или кода в консоли.

Для ручной замены используйте:

1. Поиск и замена в конфигураторе:
   • Откройте нужный модуль или объект метаданных.
   • Нажмите Ctrl + H (или выберите Правка → Заменить).
   • В поле «Найти» введите кавычку для замены (например, "), в поле «Заменить на» — целевой символ (например, ').
   • Установите флажок «Учитывать регистр», если нужно.

⚠️ Внимание: При ручной замене в коде легко нарушить синтаксис. Например, если заменить все двойные кавычки на одинарные в строковом литерале "Пример ""текста"" с кавычками", получится некорректный код 'Пример ''текста'' с кавычками'. Всегда проверяйте результат компиляцией (F7).

3. Замена кавычек с помощью встроенного языка 1С

Для автоматизации замены в больших объёмах данных или в динамически формируемых строках используйте функции встроенного языка. Основные методы:

3.1. Функция СтрЗаменить()

Самый простой способ — встроенная функция СтрЗаменить():

Результат = СтрЗаменить(ИсходнаяСтрока, """, "'");

Пример использования для замены двойных кавычек на одинарные во всех наименованиях справочника Номенклатура:

Выборка = Справочники.Номенклатура.Выбрать();
Пока Выборка.Следующий() Цикл
НовоеНаименование = СтрЗаменить(Выборка.Наименование, """", "'");
Выборка.Наименование = НовоеНаименование;
Выборка.Записать();
КонецЦикла;

3.2. Регулярные выражения (для сложных замен)

Если нужно заменить кавычки по сложному шаблону (например, только внутри определённых подстрок), используйте объект РегулярноеВыражение:

РегВыр = Новый РегулярноеВыражение("""([^""]*)""");
Результат = РегВыр.Заменить(ИсходнаяСтрока, "'$1'");

Этот код заменит все двойные кавычки на одинарные, сохранив содержимое между ними. Полезно для обработки JSON-строк.

3.3. Замена в запросах SQL

При работе с внешними базами данных через ADODB или HTTPСервис может потребоваться экранирование кавычек для SQL-запросов:

ЗапросТекст = "SELECT * FROM Таблица WHERE Поле = '" + СтрЗаменить(ЗначениеПоля, "'", "''") + "'";

4. Массовая замена кавычек в данных 1С

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

Выборка = Справочники.Контрагенты.Выбрать();
Пока Выборка.Следующий() Цикл
ТекущееНаименование = Выборка.Наименование;
НовоеНаименование = СтрЗаменить(ТекущееНаименование, """", "«");
НовоеНаименование = СтрЗаменить(НовоеНаименование, "'", "»");

Если НовоеНаименование <> ТекущееНаименование Тогда
Выборка.Наименование = НовоеНаименование;
Выборка.Записать();
КонецЕсли;
КонецЦикла;

Для ускорения обработки больших баз:

• 🔹 Используйте Отбор, чтобы обрабатывать только нужные записи:

Выборка = Справочники.Контрагенты.Выбрать();
Выборка.Отбор.Наименование.УстановитьЗначение("%""%", ТипСравнения.КакСтрока);

• 🔹 Разбивайте обработку на пакеты по 100–200 записей, чтобы избежать блокировок:

Если Выборка.Счетчик() % 100 = 0 Тогда
Сообщить("Обработано " + Выборка.Счетчик() + " записей");
Приостановить(1); // Пауза для разгрузки сервера
КонецЕсли;

UPDATE справочник_контрагенты SET наименование = REPLACE(наименование, '"', '«') WHERE наименование LIKE '%"%';

⚠️ Внимание: Массовая замена может затрагивать системные поля (например, ПометкаУдаления или ЭтоГруппа), если в их значениях случайно попадают кавычки. Всегда проверяйте, какие именно поля вы модифицируете, и используйте ТолькоДляЧтения для защищённых реквизитов.

5. Особенности замены кавычек в разных форматах

В зависимости от целевого формата подход к замене кавычек отличается:

5.1. JSON

В JSON все строки должны быть в двойных кавычках, а внутренние двойные кавычки экранируются обратным слешем:

ТекстJSON = "{"""наименование""" : """" + СтрЗаменить(Наименование, """", "\""") + """"}";

Для упрощения используйте библиотеку ЧтениеJSON/ЗаписьJSON:

ЗаписьJSON = Новый ЗаписьJSON;
ЗаписьJSON.УстановитьСтроку();
ЗаписьJSON.ЗаписатьНачалоОбъекта();
ЗаписьJSON.ЗаписатьЗначение("наименование", Наименование); // Автоматическое экранирование
ЗаписьJSON.ЗаписатьКонецОбъекта();
Результат = ЗаписьJSON.Закрыть();

5.2. XML

В XML кавычки в атрибутах должны экранироваться как ":

ТекстXML = "<Элемент Атрибут="" + СтрЗаменить(Значение, """", """) + """/>";

5.3. CSV

В CSV поля с кавычками оборачиваются в двойные кавычки, а внутренние дублируются:

ТекстCSV = """" + СтрЗаменить(Поле, """", """""") + """,";

6. Типичные ошибки и как их избежать

При замене кавычек в 1С чаще всего допускают следующие ошибки:

• 🚫 Забывают про экранирование:

  Если заменить кавычки в строковом литерале без учёта экранирования, код перестанет компилироваться. Например:

  // Ошибка: после замены будет синтаксическая ошибка
  Текст = "Ошибка ""здесь"""; // → Текст = 'Ошибка ''здесь''';

  ✅ Решение: Используйте Символы.Кавычка для явного указания символа:

  Кавычка = Символы.Кавычка; // ""
  НоваяСтрока = СтрЗаменить(ИсходнаяСтрока, Кавычка, "'");

• 🚫 Не учитывают кодировку:

  При работе с файлами или внешними системами кавычки могут отображаться как “ или � из-за неверной кодировки (например, UTF-8 vs Windows-1251).

  ✅ Решение: Явно указывайте кодировку при чтении/записи:

  Текст = Новый ЧтениеТекста(ИмяФайла, КодировкаТекста.UTF8).Прочитать();

• 🚫 Заменяют кавычки в служебных полях:

  Массовая замена может задеть системные реквизиты (например, Ссылка.УникальныйИдентификатор()), что приведёт к ошибкам.

  ✅ Решение: Всегда проверяйте, какие поля модифицируете, и используйте ТолькоДляЧтения для защищённых данных.

⚠️ Внимание: В конфигурациях с управляемыми формами замена кавычек в клиентском коде (например, в обработчике ПриИзменении) может вызвать рекурсивные ошибки, если не отключить событие на время изменения:

Процедура НаименованиеПриИзменении(Элемент)
Если НЕ ЗначениеЗаполняется(Наименование) Тогда
НаименованиеТекст = СтрЗаменить(Наименование, """", "'");
УстановитьЗначениеРеквизита("Наименование", НаименованиеТекст);
КонецЕсли;
КонецПроцедуры

7. Автоматизация замены кавычек: обработки и расширения

Для регулярной замены кавычек удобно создать внешнюю обработку или расширение конфигурации. Пример обработки с гибкими настройками:

Шаг 1. Создайте обработку с формой:

• 📌 Поле ввода ИсходныйТекст (тип Строка).
• 📌 Поле ввода КавычкаДляЗамены (по умолчанию ").
• 📌 Поле ввода НоваяКавычка (по умолчанию ').
• 📌 Кнопка Заменить с обработчиком:

Процедура Заменить(Команда)
Результат = СтрЗаменить(ИсходныйТекст, КавычкаДляЗамены, НоваяКавычка);
Сообщить(Результат);
КонецПроцедуры

Шаг 2. Для массовой обработки добавьте возможность выбора справочника и реквизита:

Процедура ЗаменитьВСправочнике(Команда)
Выборка = Справочники[ВыбранныйСправочник].Выбрать();
Пока Выборка.Следующий() Цикл
ТекущееЗначение = Выборка[ВыбранныйРеквизит];
НовоеЗначение = СтрЗаменить(ТекущееЗначение, КавычкаДляЗамены, НоваяКавычка);
Выборка[ВыбранныйРеквизит] = НовоеЗначение;
Выборка.Записать();
КонецЦикла;
Сообщить("Замена завершена!");
КонецПроцедуры

Шаг 3. Для интеграции с обменами данными создайте функцию-обёртку:

Функция ПодготовитьСтрокуДляJSON(Строка)
Возврат СтрЗаменить(Строка, """", "\""");
КонецФункции

Функция ПодготовитьСтрокуДляXML(Строка)
Возврат СтрЗаменить(Строка, """", """);
КонецФункции

⚠️ Внимание: При создании расширений для типовой конфигурации (например, 1С:Бухгалтерия 3.0) избегайте модификации системных объектов. Лучше добавляйте новые обработки в подсистему Сервис или Администрирование.

8. Альтернативные подходы: когда стандартные методы не работают

В редких случаях стандартные функции 1С не справляются с заменой кавычек. Например:

• 🔹 Непечатаемые символы: В текстовых полях могут встречаться «невидимые» кавычки (например, U+201C или U+201D), которые не заменяются СтрЗаменить().
• 🔹 Бинарные данные: Если кавычки хранятся в двоичном формате (например, в ХранилищеЗначения), их нужно сначала декодировать.
• 🔹 Многоязычные базы: В разных языковых версиях 1С могут использоваться разные символы кавычек (например, «» в русской локализации vs „“ в немецкой).

Для таких случаев используйте:

8.1. Работа с Unicode-символами

Чтобы заменить «нестандартные» кавычки, используйте их Unicode-коды:

// Замена "ёлочек" («») на двойные кавычки
Текст = СтрЗаменить(Текст, Символ(8220), """");
Текст = СтрЗаменить(Текст, Символ(8221), """");

// Замена "немецких" кавычек („“) на одинарные
Текст = СтрЗаменить(Текст, Символ(8222), "'");
Текст = СтрЗаменить(Текст, Символ(8223), "'");

8.2. Обработка двоичных данных

Если кавычки хранятся в двоичном формате (например, в ХранилищеЗначения), сначала преобразуйте данные в строку:

ДвоичныеДанные = ПолучитьДвоичныеДанныеИзБазы();
Текст = Новый ЧтениеДвоичныхДанных(ДвоичныеДанные).ПрочитатьСтроку(КодировкаТекста.UTF8);
ОбработанныйТекст = СтрЗаменить(Текст, """", "'");
НовыеДвоичныеДанные = Новый ЗаписьДвоичныхДанных();
НовыеДвоичныеДанные.ЗаписатьСтроку(ОбработанныйТекст, КодировкаТекста.UTF8);

8.3. Использование внешних библиотек

Для сложных замен (например, с учётом контекста) подключите внешние компоненты:

• 📖 Библиотека StringUtils из 1Script (для расширенной работы со строками).
• 📖 COM-объект VBScript.RegExp (для регулярных выражений с поддержкой Unicode).

// Пример с VBScript.RegExp
РегВыр = Новый COMОбъект("VBScript.RegExp");
РегВыр.Pattern = "[\""]"; // Шаблон для всех типов кавычек
РегВыр.Global = Истина;
Результат = РегВыр.Replace(ИсходнаяСтрока, "'");

ВЫБРАТЬ
Различные КодСимвола(Символ) КАК Код,
Символ КАК СимволКавычки
ИЗ
(ВЫБРАТЬ """" КАК Символ
ОБЪЕДИНИТЬ ВСЕ
ВЫБРАТЬ "'" КАК Символ
ОБЪЕДИНИТЬ ВСЕ
ВЫБРАТЬ "«" КАК Символ
ОБЪЕДИНИТЬ ВСЕ
ВЫБРАТЬ Символ(8220) КАК Символ)

Запрос.Текст =
"ВЫБРАТЬ
|   Наименование КАК Поле
|ИЗ
|   Справочник.Номенклатура
|ГДЕ
|   Наименование ПОДОБНО '%""%''%''%""%'"; // Экранирование для поиска кавычек в данных

Запрос.Текст = "ВЫБРАТЬ Наименование ИЗ Справочник.Номенклатура ГДЕ Наименование = &Параметр";
Запрос.УстановитьПараметр("Параметр", СтрЗаменить(ПоисковыйТекст, "'", "''"));