Добрый день!
Есть с первого взгляда не тривиальная задача. Полученный запросом из сторонней базы массив (либо таблица значений)содержит очень много колонок и строк со значением с типом строка. В этих строках есть куча "рандомных" пробелов до и после текста.
Вопрос: Какой способ наиболее быстрый для удаления всех пробелов в Массиве и ТаблицеЗначений.
СокрЛП в цикле не рассматривается.
Может есть какие сторонние компоненты для быстрой обработки сразу всего Массива/ТЗ.
Далее полученный результат будет использоваться в запросе.

СокрЛП в цикле

А что мешает сразу при получении данных из сторонней базы обрезать пробелы?

"Полученный запросом из сторонней базы"

в некоторых сторонних базах есть функция TRIM

(1) Долго

(2) Каким образом
(3) У 1С к сожалению нет такой

(3) Прямое подключение не дают сделать

В javascript есть replace(/\s/g, '') но это работает со строками (

(6) "Полученный запросом из сторонней базы массив"
ну как-то же его получили

В VBScript RegExp.Replace тоже не примет массив

(8) Через COM

(10) через COM из другой базы 1С что ли?

(8) я имел в виду к SQL не дают

(11) Так точно

(9) а если скормить многострочный текст, т.е. каждую колонку лепить в одну строку и скармливать регэкспу?

>> (0) Вопрос: Какой способ наиболее быстрый для удаления всех пробелов в Массиве и ТаблицеЗначений.
Самый быстрый - не удалять вообще.

>> (0) Далее полученный результат будет использоваться в запросе.
А как "результат" или оригинальная ТЗ будет использоваться в запросе?

(14) тогда уж и СокрЛП в цикле по времени не больше займет

(16) а сколько сокрлп занимает времени?

(15) Либо Менеджером либо параметром Список

(16) СокрЛП () для строк COM таблицы?

(17) 4,5 минут

(16) Вызывай функцию ОМ сторонней базы, которая вернет уже обрезанную таблицу

(20) Бред.

(19) )) нет конечно

(22) нет не бред!

(22) Иначе не запрашивал мнения общественности

(21) Тогда она там обрезать их долго будет

(26) Покажи код, как режешь

Я спрашиваю не про штатные 1с методы. А про обработку массивов другими, не 1совскими методами. (внешние компоненты например)

(27) Пока ни ка не режу. ТЗ перебирать, обрезать и обратно совать в ТЗ не вариант - долго.

(28) Помоему, ты штатные методы криво используешь.

Пробовал даже так

RegExp = Новый COMОбъект("VBScript.RegExp");
    RegExp.Pattern = " ";
    RegExp.IgnoreCase = Истина;
    RegExp.Global = Истина;
    Для Каждого Стр Из Результат Цикл
        ИсходнаяСтрока = Стр.КодГ;
        RegExp.Replace(ИсходнаяСтрока, "");
        НовСтр = ТЗ.Добавить();
        НовСтр.КодНорм = RegExp.Replace(ИсходнаяСтрока, "");
    КонецЦикла;

также долго как и СокрЛП().

(31) оно ж все пробелы убирает, не?

(32) да, именно это и надо.

Текст "Литой" без разделителей

(33) Вы уж определитесь, все или только с концов?

(35) В (0) написано "для удаления всех пробелов в Массиве и ТаблицеЗначений"
))

(36) к чему тогда был упомянут СокрЛП ?

Как то я пользовался компонентой GameWithFire.ADOUtils
она очень быстро в ТЗ засовывает из огромных таблиц excel.

Вот бы что то вроде неё для работы с массивами

А сколько значений в ТЗ или Массиве возвращается?

(37) а у 1С есть ещё методы сократить пробелы у строки? (СтрЗаменить не в счет)

ушел на обед

(41)  Пля... Ты взорвал мне моск... Приятного аппетита. И, лучше не возвращайся. :)

(42) есть у меня одна мысль. На стороне базы источника запилить СКД механизм получения таб документа и через построитель запроса получить ТЗ. Вроде как пробелы там должны обрезаться. Изврат конечно но попробовать надо.

(43) Что мешает там тупо получить ТЗ и обрезать ее?

(0)
В 8.3 писали что существенно улучшена работа со строками
Также вроде как появились регуляры

(44) Если бы был метод обрезать целиком ТЗ то не было бы вопросов, а резать по одной строке долго.

(0) А нельзя в сторонней базе хранить данные без этих самых "рандомных" пробелов до и после текста?

(45) надо глянуть (8.3 особо не пользовал)

(0)
проверь такую идею

&НаСервере
Функция СокрЛП_ТЗ(ТЗ)
    Строка = ЗначениеВСтрокуВнутр(ТЗ);
    Пока Найти(Строка,"{""S"","" ")>0 Цикл
        Строка = СтрЗаменить(Строка,"{""S"","" ","{""S"",""");
    КонецЦикла;
    Пока Найти(Строка," ""}")>0 Цикл
        Строка = СтрЗаменить(Строка," ""}","""}");
    КонецЦикла;
    ТЗ=ЗначениеИзСтрокиВнутр(Строка);
    Возврат ТЗ;
КонецФункции

(47) У меня вообще сомнения что в ней дадут что то сделать. Так бы я в той базе убил бы все пробелы, запретил бы их ставить и нет проблем )). Поэтому и бьёмся.

(50) Ну тогда прямой SQL запрос с REPLACE

(49) Спасибо, Функция конечно зачетная (ни когда так не пробовал ;)). К сожалению тоже долго, циклы.

(51) Ах, если бы дали доступ )). Там свои враждебно настроенные сидят ))

Наверно будем пробивать доступ к серверу сиквела.
Пока отдам как есть. Будут говорить долго - скажу давайте доступ к серверу.

Всем спасибо за предложения!


м = Новый Массив;
Для Индекс = 1 По 1000000  Цикл
    м.Добавить("  ааа  ");
КонецЦикла;

s = ЗначениеВСтрокуВнутр(м);
Для каждого э Из м Цикл
    э = СокрЛП(э);
КонецЦикла;

RegExp = Новый COMОбъект("VBScript.RegExp");

RegExp.MultiLine = Истина;
RegExp.Global = Истина;
RegExp.IgnoreCase = Истина;

RegExp.Pattern = " +";
s=RegExp.Replace(s, "");

м2 = ЗначениеИзСтрокиВнутр(s);



3    м = Новый Массив;    0
4    Для Индекс = 1 По 1000000  Цикл    5,79
5    м.Добавить("  ааа  ");    7,56
6    КонецЦикла;    6,15
8    s = ЗначениеВСтрокуВнутр(м);    1,45
9    Для каждого э Из м Цикл    7,25
10    э = СокрЛП(э);    6,43
11    КонецЦикла;    5,09
13    RegExp = Новый COMОбъект("VBScript.RegExp");    0
15    RegExp.MultiLine = Истина;    0
16    RegExp.Global = Истина;    0
17    RegExp.IgnoreCase = Истина;    0
19    RegExp.Pattern = " +";    0
20    s=RegExp.Replace(s, "");    0,93
22    м2 = ЗначениеИзСтрокиВнутр(s);    1,78
23    КонецПроцедуры    0


Расшифрую
СокрЛП 1000000 элементов
7,25 6,43 5,09 - 18.77%

Замена по всему массиву регулярным выражением
1,45 0,93 1,78 - 4.16 %

(53) (54) Точно, как я сам не догадался после чтения (49)
Спс. Наверно так и сделаю.
Еще раз всем СПС, тему можно закрывать.

Ушел тестить.