Рубим строку на куски…
Из строки получаем массив (список значений) или необходимую часть строки с разделителями.
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»);
КонецФункции