Обмен между 1С 7.7 и 1С 8 через "ЗначениеВСтрокуВнутр"
Комментарии
В избранное
Подписаться на ответы
Сортировка:
Древо развёрнутое
Свернуть все
Автор, спасибо.
Прикрутил семерочные ДБФ базы как внешний источник данных, и в некоторых местах таблица значений с формы сохранялась как строка неограниченной длины (привет таблице 1SBLOB).
И надо было распарсить... Восьмерочная процеду ЗначениеИзСтрокиВнутр не понимала семерочный формат, пытался парсить, разбивать на строки, заменять литералы "0", на пустые строки, высчитывать фигурные скобки... Много мороки.
Немного преобразовал, чтобы не писать временный файл, обошелся
Соответственно чтение строки в цикле Для:
Еще раз спасибо!
Прикрутил семерочные ДБФ базы как внешний источник данных, и в некоторых местах таблица значений с формы сохранялась как строка неограниченной длины (привет таблице 1SBLOB).
И надо было распарсить... Восьмерочная процеду ЗначениеИзСтрокиВнутр не понимала семерочный формат, пытался парсить, разбивать на строки, заменять литералы "0", на пустые строки, высчитывать фигурные скобки... Много мороки.
Немного преобразовал, чтобы не писать временный файл, обошелся
ЧтениеТХТ = Новый ТекстовыйДокумент;
ЧтениеТХТ.ДобавитьСтроку(Адрес);Соответственно чтение строки в цикле Для:
КолвоСтрок = ЧтениеТХТ.КоличествоСтрок();
Для Сч = 2 По КолвоСтрок Цикл
Строка = ЧтениеТХТ.ПолучитьСтроку(Сч);Еще раз спасибо!
Автор, спасибо.
Нашел ошибку:
В файле, полученном из 7.7, нет запятой после последнего значения в колонке:
{"Код","Код","1","0","0",{"S","0","0","0","0","0"},"","0",
{
{"S","0","0","0","0","0","8200000000"},
{"S","0","0","0","0","0","8000000000"}
}
Поэтому должно быть условие:
Нашел ошибку:
В файле, полученном из 7.7, нет запятой после последнего значения в колонке:
{"Код","Код","1","0","0",{"S","0","0","0","0","0"},"","0",
{
{"S","0","0","0","0","0","8200000000"},
{"S","0","0","0","0","0","8000000000"}
}
Поэтому должно быть условие:
//После последнего значения нет запятой, поэтому надо срезать справа 2 символа, а не 3
Если Прав(Строка, 1) = "," Тогда
Значение = Лев(Строка, СтрДлина(Строка)-3);
Значение =Прав(Значение, СтрДлина(Строка)-29);
Иначе
Значение = Лев(Строка, СтрДлина(Строка)-2);
Значение =Прав(Значение, СтрДлина(Строка)-28);
КонецЕсли;
Показать