Замена двойных кавычек в 1С: от простых строк до сложных форматов

Замена двойных кавычек (") в 1С:Предприятие — задача, с которой рано или поздно сталкивается каждый разработчик. Казалось бы, что может быть проще? Но на практике эта операция таит массу подводных камней: от некорректной работы функции СтрЗаменить() до проблем с экранированием в форматах JSON или XML. В этой статье разберём не только базовые методы замены, но и рассмотрим специфические случаи — когда кавычки встречаются в данных для обмена, при формировании SQL-запросов или при работе с внешними API.

Особенность 1С заключается в том, что двойная кавычка здесь выполняет две роли: она может быть частью строкового литерала (например, в коде) и одновременно — символом, который нужно обработать в данных. Это создаёт путаницу, особенно для новичков. Например, если вы пытаетесь заменить кавычки в строке, которая сама содержит кавычки как разделители, стандартные функции могут дать сбой. Мы покажем, как обойти эти ограничения с помощью встроенных инструментов и пользовательских обработок.

Почему стандартная замена кавычек в 1С не всегда работает

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

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

Однако этот подход ломается в трёх типичных сценариях:

• 🔹 Экранирование в строках кода: если исходная строка сама содержит кавычки как часть кода (например, SQL-запрос), функция может интерпретировать их неверно.
• 🔹 Работа с JSON/XML: в этих форматах кавычки имеют специальное значение, и их замена требует дополнительного экранирования.
• 🔹 Многострочные тексты: если кавычки встречаются в середине длинного текста (например, в описании номенклатуры), простая замена может нарушить структуру данных.

Кроме того, в 1С 8.2 и 8.3 есть различия в обработке строковых литералов. Например, в 8.2 для экранирования кавычек внутри строки использовался символ |, а в 8.3 появилась поддержка двойных кавычек внутри строк с помощью удвоения (""""). Это создаёт дополнительные сложности при переносе кода между версиями платформы.

Способ 1: Базовая замена с помощью СтрЗаменить()

Самый простой метод — использование встроенной функции СтрЗаменить(). Она подходит для большинства случаев, когда нужно заменить все вхождения двойной кавычки на другой символ или строку. Синтаксис:

НоваяСтрока = СтрЗаменить(ИсходнаяСтрока, """", "Замена");

Пример замены кавычек на одинарные:

Текст = "Это ""пример"" строки с кавычками";
Результат = СтрЗаменить(Текст, """", "'");
// Результат: Это 'пример' строки с кавычками

Важный нюанс: чтобы передать двойную кавычку как параметр функции, её нужно удвоить (""""). Это правило действует во всех версиях 1С 8.x. Если вы работаете с 1С 7.7, там используется другой синтаксис — символ | для экранирования.

Способ 2: Замена с учётом регистра и позиций

Иногда требуется заменить кавычки не во всей строке, а только в определённых позициях или с учётом регистра. Для этого можно комбинировать СтрЗаменить() с другими функциями, например Найти() или Лев().

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

Текст = "Кавычка1 ""Кавычка2"" Кавычка3 ""Кавычка4""";
Позиция1 = Найти(Текст, """");
Позиция2 = Найти(Текст, """", Позиция1 + 1);

Если Позиция1 <> 0 И Позиция2 <> 0 Тогда
Результат = Лев(Текст, Позиция1 - 1) + "[" +
Сред(Текст, Позиция1 + 1, Позиция2 - Позиция1 - 1) + "]" +
Сред(Текст, Позиция2 + 1);
КонецЕсли;

Для замены с учётом регистра можно использовать регулярные выражения (доступны в 1С 8.3.10+):

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

⚠️ Внимание: В версиях 1С 8.3 ниже 8.3.10 регулярные выражения не поддерживаются. Для старых релизов используйте цикл по символам или сторонние библиотеки.

Способ 3: Работа с кавычками в JSON и XML

При обмене данными в форматах JSON или XML двойные кавычки имеют специальное значение. Например, в JSON они используются для обозначения строк, поэтому их необходимо экранировать с помощью обратного слэша (\). В 1С для этого есть две стратегии:

1. Ручное экранирование: заменить " на \" перед формированием JSON.
2. Использование ЗаписьJSON: встроенный механизм автоматически экранирует кавычки.

Пример ручного экранирования:

Текст = "Это ""JSON-строка"" с кавычками";
ТекстДляJSON = СтрЗаменить(Текст, """", "\""");
Результат = "{""" + "text" + """: """ + ТекстДляJSON + """}";

Пример с ЗаписьJSON:

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

Способ 4: Замена кавычек в SQL-запросах

При формировании динамических SQL-запросов в 1С двойные кавычки могут конфликтовать с синтаксисом запроса. Например, если вы передаёте в запрос строку с кавычками:

Запрос = Новый Запрос;
Запрос.Текст = "ВЫБРАТЬ * ИЗ Справочник.Номенклатура ГДЕ Наименование = """ + Имя + """";

и переменная Имя содержит кавычки, запрос станет некорректным. Решения:

• 🔧 Экранирование кавычек: заменить " на "" (удвоение).
• 🔧 Использование параметров: передавать значения через параметры запроса.
• 🔧 Функция ЭкранироватьСтроку(): встроенная функция для SQL.

Пример с параметрами (рекомендуемый способ):

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

Пример с экранированием:

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

⚠️ Внимание: При работе с PostgreSQL или Microsoft SQL Server через 1С учитывайте, что эти СУБД по-разному обрабатывают экранирование. Например, в PostgreSQL для экранирования кавычек используется "", а в MSSQL — удвоение или \ в зависимости от контекста.

Способ 5: Пользовательская функция для сложных замен

Если стандартные методы не подходят (например, нужно заменить кавычки с учётом контекста или обработать большие объёмы данных), можно написать собственную функцию. Ниже пример функции, которая заменяет кавычки с учётом их позиции в строке:

Функция ЗаменитьКавычкиСУсловием(Строка, Замена, Условие)
Результат = "";
Длина = СтрДлина(Строка);
Для i = 1 По Длина Цикл
Символ = Сред(Строка, i, 1);
Если Символ = """" И Условие(i, Строка) Тогда
Результат = Результат + Замена;
Иначе
Результат = Результат + Символ;
КонецЕсли;
КонецЦикла;
Возврат Результат;
КонецФункции

// Пример использования: заменить кавычки только если они стоят в начале слова
Условие = Новый Структура("Проверка", Новый ФункцияПроверкиКавычек());
Результат = ЗаменитьКавычкиСУсловием(Текст, "'", Условие.Проверка);

Для обработки больших текстов (например, экспорт/импорт данных) можно оптимизировать функцию с помощью ПотокЧтения и ПотокЗаписи, чтобы избежать переполнения памяти.

Сделать резервную копию базы|Проверить наличие кавычек в критичных полях (наименования, артикулы)|Оценить влияние замены на интеграции с другими системами|Протестировать замену на копии базы-->

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

Даже опытные разработчики 1С допускают ошибки при работе с кавычками. Вот наиболее распространённые:

• 🚫 Забывают удвоить кавычки в строковых литералах: вместо СтрЗаменить(Текст, """", "x") пишут СтрЗаменить(Текст, "", "x"), что приводит к синтаксической ошибке.
• 🚫 Не учитывают кодировку: при работе с текстовыми файлами (например, CSV) кавычки могут отображаться как “ из-за неверной кодировки (UTF-8 vs Windows-1251).
• 🚫 Используют СтрЗаменить() для JSON без экранирования: это ломает структуру данных.
• 🚫 Не проверяют результат замены: после обработки не тестируют, как изменённые данные отобразятся в отчётах или обменах.

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

1. Данные корректно отображаются в печатных формах.
2. Не ломаются интеграции с сайтом или ERP-системой.
3. Сохраняется уникальность наименований (если кавычки были частью уникального идентификатора).

FAQ: Частые вопросы по замене кавычек в 1С

Текст = СтрЗаменить(Текст, """", """""");
Запись.ЗаписатьСтроку(Текст);

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

Попытка
Объект.Записать();
Исключение
Сообщить(ОписаниеОшибки());
КонецПопытки;