Функция УложитьСписокЗначений(аRS, аСЗЗначений,Знач аИмяТаб, Знач аТип = "") Экспорт
     Перем сТекстЗапроса;
     Если ТипЗначенияСтр(аСЗЗначений) <> "СписокЗначений" Тогда
           Возврат 0;
     КонецЕсли;
     
     // Проверим есть ли такая таблица
     //Если  есть удалим
     аRS.Выполнить("
     |IF EXISTS (SELECT * FROM tempdb..sysobjects WHERE
     |ID=OBJECT_ID('tempdb.."+аИмяТаб+"') AND sysstat & 0xf = 3 )
     |DROP TABLE "+аИмяТаб);
     
     
     чМаксДлина = 1;
     Для к = 1 по аСЗЗначений.РазмерСписка() Цикл
           Знач1 = аСЗЗначений.ПолучитьЗначение(к,);
           чНоваяДлина = СтрДлина(СокрЛП(Строка(Знач1)));
           Если чМаксДлина<  чНоваяДлина  ТОгда
                 чМаксДлина =  чНоваяДлина;
           КонецЕсли;      
     КонецЦикла;

     //Создание временной таблицы
     
     аRS.Выполнить("
     |CREATE TABLE "+аИмяТаб+" (ID int, Val float)
     |");
     

     //Создадим новую
     
     //Запишем данные в таблицу
     Для к = 1 по аСЗЗначений.РазмерСписка() Цикл
           Знач1 = аСЗЗначений.ПолучитьЗначение(к,);
           сТекстЗапроса = "
           |Insert  into " + аИмяТаб+ "  Values (" + Строка(к) + ", " + Строка(Знач1) + ")
           |";
           Если аRS.Выполнить(сТекстЗапроса) = 0 Тогда
                 Сообщить(аRS.ПолучитьОписаниеОшибки());
                 Возврат 0;
           КонецЕсли;
     КонецЦикла;
     
     Возврат 1;
КонецФункции      // УложитьСписокЗначений

RuporAbsurda писал(а) 21. Мая 2008 :: 11:24:


Это можешь смело удалять и ставить длину какая тебе нравится!

Этот вариант тоже не катит. Результат пустой.

RuporAbsurda писал(а) 21. Мая 2008 :: 11:43:

Этот вариант - это какой?