Из строки получаем массив (список значений) или необходимую часть строки с разделителями.
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");
КонецФункции
-
Размещение: http://www.infostart.ru/public/63696/ -
Дата размещения:07.01.2010
Рубим строку на куски…