Подскажите, каким образом БЫСТРО преобразовать число в строку.
Нужно выделить только цифры, разделитель дробной части может быть как точка, так и запятая. Может есть компонента какая нибудь?

Строка() ?

Тьфу. Наоборот строку в число)

Число()? :)

)

Пока истина цикл
кодсимвола()

Строка может содержать символы, пробелы, неразрывные пробелы

(5)
Нужно БЫСТРО. Это критично

(7) Насколько быстро? Что долгого в варианте (5) ?

(7) если нужно БЫСТРО, сделайте там числовое поле и не парьте нам мозг. Преобразование Число-Число делается очень быстро, практически мгновенно.

Попытка
А = Число(Строка);
Исключение
//пичалька
КонецПопытки

(9) а еще быстрее можно?

(6) "Строка может содержать символы, пробелы, неразрывные пробелы"

Задача не ясная. Например что должно получиться на выходе из строки:
"в5вл валм88044.4449 ваалсс 94940" ? :)

(9) да и строка в число с такой же мгновенной скоростью преобразуется)))

(11) АЦЦ быстрее

откуда строка то берется?

Число()

Короче это прайс. Идет цена с разделителями разрядов (это про пробелы), затем валюта. Валюта может быть - рубли, USD, EUR, после валюты может быть точка (или нет).

regexp!

(18) Ну вот разве. Нет примеров для моего случая, вникать честно говоря неохота)

(17) ты приведи пример строчки. Описание уже увидели. Просто сюда забей какое строковое значение ты пытаешься обработать.

123 000 руб. надо преобразовать в 123000 ?

(17) Все возможные варианты? )
Ну вот для примера: 1 450 руб.
1 450 руб
1450 руб
1450руб
1450руб.
и т.д. с другими валютами

(22) зевая и это всё ?

(22) Ну тогда написать процедурку или функцию, сначала отрезаешь незначащие символы, затем убираешь пробелы. ну а дальше Число()

(24) Я же указал, что важно СКОРОСТЬ

(25) ты не заметишь потерю в скорости если как в (24) сделать

(25) в типовых юзается такая функция

Функция ПолучитьЧислоИзСтроки(Знач НомерДок)
    
    Если ПустаяСтрока(НомерДок) Тогда
        Возврат 0;
    КонецЕсли;
    
    ТолькоЦифры = Истина;
    ДлинаНомера = СтрДлина(НомерДок);
    Для инд = 1 По ДлинаНомера Цикл
        // поиск ведем с конца номера, до первого не цифрового символа
        ПозицияНеЦифровойСимвол = ДлинаНомера - инд + 1;
        
        Код = КодСимвола(НомерДок, ПозицияНеЦифровойСимвол);
        
        Если Код < 48 ИЛИ Код > 57 Тогда
            ТолькоЦифры = Ложь;
            Прервать;
        КонецЕсли;
        
    КонецЦикла;
    
    Если ТолькоЦифры Тогда
        Номер = НомерДок;
    ИначеЕсли ПозицияНеЦифровойСимвол < ДлинаНомера Тогда
        Номер = Сред(НомерДок, ПозицияНеЦифровойСимвол + 1);
    ИначеЕсли ПозицияНеЦифровойСимвол = ДлинаНомера Тогда
        Возврат НомерДок;
    КонецЕсли;
    
    Возврат Число(Номер);
    
КонецФункции

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

адаптируя (27) к задаче
ДлинаНомера = СтрДлина(Строка);
    ТоЧтоБудетЧислом = "";
    Для инд = 1 По ДлинаНомера Цикл

        
        Код = КодСимвола(Строка, инд);
        
        Если Код < 48 ИЛИ Код > 57 Тогда
            продолжить;
        КонецЕсли;
        
        ТоЧтоБудетЧислом = ТоЧтоБудетЧислом + сред(Строка,инд,1);
        
    КонецЦикла;
    число=ТоЧтоБудетЧислом;

Да нехочется 1с циклов нифига

проще договориться с поставщиком о нормальных прайсах

Поставщиков много. Кто гарантирует, что хоть один не заартачится?

(32) гарантирует поле типа число, например. через что идет обмен то?

(33) Через ексель файлы

(34) а там точно "строка"? может быть там "число с форматом"?

(35) строка

(35) Я же говорю, поставщики разные и возможно будут новые, кто как сделает неизвестно

(34) Через ексель файлы

это и есть проблема

(32) а какой смысл в огромной скорости при загрузке прайсов? Ну съэкономите вы максимум 10-12 наносекунд, вам премию что ли дадут? Скорость нужна при обслуживании клиента. А это потом.

(37) универсально все равно не напишешь, придется полууниверсально под каждого все равно допиливать. проще договориться о формате

(40)+ и впихнуть пункт в договор с XSD схемой :)

(39) Объемы прайсов большие, их много.
А вообще вопрос в том, что есть ли простые, известные может быть, решения. Если нет, то нет, загрузить конечно всяко можно.

Всехавающая функция преобразования строки в число

(0) Используй Int32.TryParce(<Строка>);

(32) кто платит денег, тот и заказывает музыку - заартачился - ищи нового клиента

(45) Есть задача и ее можно либо решать, либо нет. Мне нужно решить.

ТолькоЦифры="";
РазделительНеНайден=Истина;
Для х=1 По СтрДлина(ИсходнаяСтрока) Цикл
Симв = Сред(ИсходнаяСтрока,х,1);
Если Найти(Симв,"0123456789")<>0 Тогда
ТолькоЦифры=ТолькоЦифры+Симв;
КонецЕсли;
Если РазделительНеНайден И Найти(Симв,".,;=-")<>0 Тогда
ТолькоЦифры=ТолькоЦифры+",";
РазделительНеНайден=Ложь;
КонецЕсли;
КонецЦикла;
ИскомоеЧисло=Число(ТолькоЦифры);

(42) а вообще, де много поставщиков, прайсы грузят отдельно от накладных (можно ночью), обрабатывая спец ящики поставщиков.

(47) а в (27) будет побыстрее, чем Найти()

(49) Ну да. Но хотелось бы внешний вызов, компонента может есть, циклы 1с по каждой позиции грустно выглядят. Там прайсы довольно объемные.

(50) вызов компоненты в 100 раз медленнее, бери решения (24),(27) или (29), они имеют огромную скорость по сравнению с чтением файла Excel.

(50) Прайсы терабайтные что ли у тебя?

(52) Вообще вопрос безотносительно размеров. Можно ли ускорить загрузку, просто УСКОРИТЬ. А какие там прайсы дело десятое.

(53) Можно ли ускорить станок, чтобы он больше деталей выдавал? Просто ускорить, неважно какой станок.

(53) ускорить - это значит ускорить чтения файлов excel, например куда-нибудь их на быстрый диск помести.

(53) Уверен, что нужно ускорять именно преобразование в число? Замер то делал?

(55) Загрузка цен происходит уже из 1с таблицы, которая предварительно обработана.

(56) Ускорять нужно то, что можно ускорить.

(56) или xml например юзать. или тот же dbf, где у поля будет тип число и никак туда всякая шняга не попадет. вот это добавит скорости

(58) Однако, логично! Значит нужно покупать новый комп, а не компоненты искать )

(59) Или сразу документ установка цен материализовать из воздкуха, вот здорово то

(60) Это одно из мест, что можно ускорить. ОДНО ИЗ

(57) блин, так в предварительной обработке и перепишите. Что-то вы совсем фигней страдаете.

(61) Дано: Excel. Решение: ускорить преобразование в число. Причина: преобразование можно ускорить.

Другие вероятные причины за бортом? )

(61) уж лучше напрямую из типизированного файла чем посредством таблицы, где контроль типа вообще никак не осуществляется. хочется скороссти - апгрейдить железо или менять алгоритм

(62) Дык понятно. Но скорее всего данные преобразования будут занимать процентов 5 от общего времени. В работе с экселем основной затык на чтении обычно.

(0) А как данные с ячейки листа получаешь ?

(67) Через ADODB.Recordset

(64) Про другие причины у меня вопросов нет. Вопрос по ЭТОЙ проблеме.

(69) А в этом нет никакой проблемы.

(70) Приблемы нет, да. И?

(68) Покаж код

(72) Какой? И зачем?

(69) Лучший вариант - под формат числа каждого поставщика написать отдельную, наиболее быструю в конкретном случае функцию.

(74) Может и так. Но преобразовывать в любом случае придется.

(71) И вопросов уже тоже не осталось)

(76) Остался, остался.

регулярные выражения юзай

(78) Да, пока к такому же мнению пришел. Разбираться честно говоря в облом. Нет готового шаблона?

(79) ну не факт что regexp будет быстрее. Тут уже надо тестить

(80) Ну потестить не проблема.

(80)Факт, что будет медленнее.

(82) Проверял?

(0) Если это Excel, то прямо в Excel сделать в колонке цены все возможные замены, запятые на точки, пробелы и неразрывные пробелы удалить. различные варианты руб удалить.

Далее


Попытка
    А = Число(Строка);
Исключение
    //пичалька
    // не предусмотренные варианты
    А = ХитроПолучитьЧислоИзСтроки(Строка);
КонецПопытки;


(84)+ Как вариант, для проверки, может так еще и медленнее получится...

Напиши макрос, прицепи его к файлу Ексель, запусти и после этого грузи данные.

(84) Ну тоже вариант. Но пользователи вряд ли будут заморачиваться. Я же говорю, вопрос не то чтобы очень критичный, но если можно ускорить этот момент, то хорошо, если нет вариантов, ну значит нет.

(86) Ну тоже вариант) Но см. (87)

(88) А при чем тут пользователи? Делай это все программно.

(89) Да, попробую.
Ладно, всем спасибо, я поехал с работы)

Где Маня, потенциальный покупатель уходит.

Попробовать обойтись без присвоений, все в одной строке.


Попытка
    А = Число(СтрЗаменить(СтрЗаменить(СтрЗаменить(СтрЗаменить(СтрЗаменить(нрег(Строка),"руб.", ""),"руб", ""),",", ".")," ", ""),НеразрывныйПробел, ""));
Исключение
КонецПопытки;


(91) у мани сейчас скидки, ему невыгодно продавать :)
я бы сделал как в (27) только шел с конца

(92) Не взлетит.