Home Творчество Разработки Рубим строку на куски…
formats

Рубим строку на куски…

Из строки получаем массив (список значений) или необходимую часть строки с разделителями.
Yемного изменив код можем получить и “обычный” массив и список. Сейчас возвращает либо часть строки по номеру либо COMSafeArray…

 Функция ИзСтрокиСРазделителями(Знач стр, ном = 0, р = “;”, ВернутьМассив = Ложь) Экспорт

            Если ВернутьМассив Тогда
                        TextScript="  
                        |Function Run
                        |          run = split(""" + стр + """, """ + р + """)
                        |End Function
                        |";
            Иначе
                        TextScript="  
                        |Function Run
                        |          myarr = split(""" + стр + """, """ + р + """)
                        |          run = myarr(" + СокрЛП(ном - 1) + ")
                        |End Function
                        |";
            КонецЕсли;
            
            ScrptCtrl         = Новый COMОбъект("MSScriptControl.ScriptControl");
            ScrptCtrl.Language    = "vbscript";
            ScrptCtrl.AddCode(TextScript);   
            Возврат ScrptCtrl.Run("Run");
КонецФункции